JC de Lorient
XLDnaute Impliqué
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
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