XL 2016 Colorier une liste par lot de quatre

[ROMY007]

Bonjour à Tous!

J'ai besoin de votre précieuse aide. Pour être précis, j'ai besoin d'une technique ou un code VB me permettant de colorier avec deux couleurs une liste par lot de quatre lignes. Je joins un fichier pour permettre une meilleure compréhension de ma préoccupation. Merci

 

[fanfan38]

Bonjour et bienvenu sur le forum
ci joint ma solution par macro

A+ François

 

[mapomme]

Bonjour @ROMY007 , @fanfan38 ,

Une autre piste par MFC (formule) sur la zone :
La formule de la MFC : =EST.IMPAIR(ENT((LIGNES(A$2:A2)-1)/4))

 

[sylvanu]

Bonjour Romy, Fanfan, Mapomme,
Ou encore avec celle ci :

=ET($A2<>"";MOD(LIGNE();8)>=2;MOD(LIGNE();8)<=5)

 

[ROMY007]

Bonjour et bienvenu sur le forum
ci joint ma solution par macro

A+ François

J'ai fini par choisir vos lignes de code!!! C'est super et ça me va très bien. Mille merci

 

[ROMY007]

Bonjour @ROMY007 , @fanfan38 ,

Une autre piste par MFC (formule) sur la zone :
La formule de la MFC : =EST.IMPAIR(ENT((LIGNES(A$2:A2)-1)/4))

Regarde la pièce jointe 1174599Merci Beaucoup, ça m'a été vraiment utile

 

[ROMY007]

Bonjour Romy, Fanfan, Mapomme,
Ou encore avec celle ci :

=ET($A2<>"";MOD(LIGNE();8)>=2;MOD(LIGNE();8)<=5Ca passe tès
[/QUOTE]

Ca passe très bien Merci bien...

 

[TooFatBoy]

Bonjour,

Ou encore celle-ci :

=MOD(LIGNE($A1)-2;8)<4

à appliquer à =$A:$B