F
fredo
Guest
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
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