XL 2019 colorier deux lignes sur deux

[LE BLEVEC]

bonjour
j'utilise la formule mod pour colorier 1 ligne sur 2, mais je voudrais avec cette formule, colorier :exemple ligne 1 et 2 en orange, ligne 3 et 4 rien ou une autre couleur et ainsi de suite
je vous remercie par avance de votre réponse
merci
camille

 

[Dranreb]

Bonjour.
Je suppose que vous parlez de formule de mise en forme conditionnelle.
Vous pouvez prendre =MOD(ENT((LGNE()+1)/2);2) par exemple.

 

[TooFatBoy]

Bonjour,

Essayer ceci :
Lignes 1 et 2 : =mod((Ligne(A1)-1)/2;2)=0
Lignes 3 et 4 : =mod((Ligne(A1)-1)/2;2)=1


[edit] Je n'avais pas pu tester et en fait... ça ne fonctionne pas [/edit]

 

[sylvanu]

Bonjour,
Ou encore :

=EST.IMPAIR(ARRONDI.SUP(LIGNE()/2;0))
=EST.PAIR(ARRONDI.SUP(LIGNE()/2;0))

 

[LE BLEVEC]

bonjour
j'utilise la formule mod pour colorier 1 ligne sur 2, mais je voudrais avec cette formule, colorier :exemple ligne 1 et 2 en orange, ligne 3 et 4 rien ou une autre couleur et ainsi de suite
je vous remercie par avance de votre réponse
merci
camille

Bonjour.
Je suppose que vous parlez de formule de mise en forme conditionnelle.
Vous pouvez prendre =MOD(ENT((LGNE()+1)/2);2) par exemple.

mercci a tous
merci a tous pour la réponse rapide
je vous joint un fichier ce sera plus compréhensible
c'est a dire de la ligne 4 a 79 un exemple j'ai colorié quelques lignes
il faut que ça reste sur ces lignes meme si il y a des tries
Camille

 

[TooFatBoy]

je vous joint un fichier ce sera plus compréhensible

Proposition de formule pour la MFC :

=MOD(ENT(LIGNE()/2);2)=0

"S'applique à" : =$B$4:$U$123

 

[TooFatBoy]

Ou alors tout simplement avec un TS (Tableau Structuré).

 

[LE BLEVEC]

Proposition de formule pour la MFC :

=MOD(ENT(LIGNE()/2);2)=0

"S'applique à" : =$B$4:$U$123

Proposition de formule pour la MFC :

=MOD(ENT(LIGNE()/2);2)=0

"S'applique à" : =$B$4:$U$123

Bonjour
je te remercie
mais mes macros ne fonctionne pas, pour tant macro activé

Proposition de formule pour la MFC :

=MOD(ENT(LIGNE()/2);2)=0

"S'applique à" : =$B$4:$U$123

Bonjour
je te remercie
ça fonctionne mais les macros ne fonctionne plus pourtant macro activé
je te joint le fichier en xlms

 

[TooFatBoy]

ça fonctionne mais les macros ne fonctionne plus pourtant macro activé

Les MFC sont indépendantes des macros.

Qu'est-ce qui ne fonctionne plus dans tes macros ? Si c'est le coloriage des cellules, c'est normal car les MFC sont "prioritaires".

---

As-tu essayé la version sous forme de TS ?

 

[sylvanu]

Re,
Peut être en remplaçant les MFC par une macro qui serait appeler par chaque module :

Sub MFC()
    Dim DL%, L%
    [A:E].Interior.Color = xlNone
    DL = Application.Max(Cells(Cells.Rows.Count, "A").End(xlUp).Row, Cells(Cells.Rows.Count, "D").End(xlUp).Row)
    For L = 1 To DL Step 4
        Range("A" & L & ":B" & L + 1).Interior.Color = vbYellow
        Range("D" & L & ":E" & L + 1).Interior.Color = vbYellow
    Next L
End Sub

 

[LE BLEVEC]

Re,
Peut être en remplaçant les MFC par une macro qui serait appeler par chaque module :

Sub MFC()
    Dim DL%, L%
    [A:E].Interior.Color = xlNone
    DL = Application.Max(Cells(Cells.Rows.Count, "A").End(xlUp).Row, Cells(Cells.Rows.Count, "D").End(xlUp).Row)
    For L = 1 To DL Step 4
        Range("A" & L & ":B" & L + 1).Interior.Color = vbYellow
        Range("D" & L & ":E" & L + 1).Interior.Color = vbYellow
    Next L
End Sub

je te remercie encore mais je préfère la formule

 

[TooFatBoy]

As-tu essayé la version sous forme de TS ?

 

[LE BLEVEC]

Les MFC sont indépendantes des macros.

Qu'est-ce qui ne fonctionne plus dans tes macros ? Si c'est le coloriage des cellules, c'est normal car les MFC sont "prioritaires".

---

As-tu essayé la version sous forme de TS ?

c'est l'ecxecution

 

[TooFatBoy]

c'est l'ecxecution

Si les macros ne s'exécutent plus, ça n'a rien à voir avec la mise en place d'une MFC.

 

[LE BLEVEC]

Si les macros ne s'exécutent plus, ça n'a rien à voir avec la mise en place d'une MFC.

essai le fichier en feuille protegé