changer couleur cellule

[fredo]

bonjour,
je souhaite dans une colonne, colorier les cellule qui ont la meme valeur de la meme couleur (les cellules sont classées pas ordre croissant donc les cellules similaires sont voisines.
Cependant, j'utilise une boucle for, et je veux alterner la couleur pour n'en utiliser que deux differentes mais mon code ne marche pas

pouvez vous y jetter un coup d'oeil?

voici

Dim couleur
couleur = 4

For x = Range("A65536").End(xlUp).Row To 3 Step -1
If couleur = 4 Then
couleur = 3
ElseIf couleur <> 4 Then
couleur = 4
If Range("A" & x) <> "" Then


Range("A" & x).Select
Selection.Interior.ColorIndex = couleur
Do While Range("A" & x - 1) = Range("A" & x)
Range("A" & x - 1).Select
Selection.Interior.ColorIndex = couleur
x = x - 1


Loop
End If
If couleur = 4 Then
couleur = 3
ElseIf couleur = 3 Then
couleur = 4
Next


merci mcerci

 

[Pascal76]

Bonjour

essaies ceci


Sub toto()

Dim couleur As Integer, x As Integer
couleur = 4

For x = Range("A65536").End(xlUp).Row To 3 Step -1
If Range("A" & x) <> "" And Range("A" & x + 1) <> Range("A" & x) Then
If couleur = 4 Then
couleur = 3
Else
couleur = 4
End If
End If
Range("A" & x).Interior.ColorIndex = couleur

Next

End Sub


Pascal