Mise en forme conditionnelle bicolore par macro

[Adri74]

Bonjour,

Jusqu'à aujourd'hui, j'ai toujours trouvé des réponses à mes questions dans ce forum, mais là je n'ai rien trouvé...

J'ai un tableau de 10 000 lignes sur 18 colonnes. Dans la colonne A sont renseignés des numéros de projet (2000XXXX). Un projet peut contenir une ou plusieurs lignes. Je souhaiterai mettre en forme les lignes de mon tableau en alternant 2 couleurs pour chaque projet différent.
Pour être plus explicite, voici un fichier exemple de ce que j'ai réussi à faire et de ce que je cherche à obtenir.

Un grand merci d'avance à ceux qui pourront m'aider.
N'hésitez pas à me demander des précisions si mon explication n'est pas claire.

Cordialement

 

[BOISGONTIER]

Re : Mise en forme conditionnelle bicolore par macro

onjour,

La mise en forme conditionnelle

=MOD(ENT(SOMME(1/NB.SI($A$6:$A6;$A$6:$A6)));2)=1

JB

 

[Adri74]

Re : Mise en forme conditionnelle bicolore par macro

Merci beaucoup, c'est exactement ce que je cherchais... Quelle efficacité et quelle rapidité !

Par contre avec 10 000 lignes, mon fichier est extrêmement lent. Peut être que je vais être obligé de réduire mon nombre de lignes...
Sinon, peut être que la même MFC par macro est moins gourmande en ressources ?

Cordialement

 

[BOISGONTIER]

Re : Mise en forme conditionnelle bicolore par macro

Voir PJ

Sub coloriage()
   Application.ScreenUpdating = False
   [A1].CurrentRegion.Sort Key1:=[A2], Order1:=xlAscending, Header:=xlGuess  'tri
   couleur = 36
   For i = 2 To [A65000].End(xlUp).Row
     If Cells(i, 1) <> Cells(i - 1, 1) Then couleur = IIf(couleur = 36, 34, 36)
     Cells(i, 1).Resize(, 2).Interior.ColorIndex = couleur
   Next i
   Application.ScreenUpdating = True
End Sub

JB

 

[Adri74]

Re : Mise en forme conditionnelle bicolore par macro

Tout simplement parfait. Merci beaucoup !