Jeux de couleur en VBA

[JC de Lorient]

Bonjour ou rebonjour à tous
je suis en train de me battre avec un code VBA :

Sub couleurs()
Dim cel As Range
Dim a, x As Integer
a = Range("B65536").End(xlUp).Row
Range("A1:H1").Interior.ColorIndex = 38
For x = 2 To a
If Range("B" & x) = Range("B" & x).Offset(-1, 0) Then
'on garde la même couleur
Else
'on change la couleur
End If
Next
End Sub

le but est de changer la couleur de la ligne au changement de la valeur en colonne B
ça marche bien sue le 1er changement mais après aie aie aie !!!!

si quelqu'un pouvait m'aider ça serait le bonheur
merci a vous
JC

 

[ERIC S]

Re : Jeux de couleur en VBA

Bonjour

à tester alternance de 2 couleurs

Dim cel As Range
Dim x As Integer, couleur As Single
couleur = 38
Range("A1:H1").Interior.ColorIndex = couleur
For x = 2 To Range("B65536").End(xlUp).Row
If Not Range("B" & x) = Range("B" & x).Offset(-1, 0) Then
If couleur = 38 Then
couleur = 40
Else: couleur = 38
End If
End If
Range("A" & x & ":H" & x).Interior.ColorIndex = couleur
Next

 

[JC de Lorient]

Re : Jeux de couleur en VBA

re....
Excellent
ça marche comme je voulais
mille merci
JC