alexis trotta
XLDnaute Nouveau
Bonjour à tous,
je dispose du code suivant pour mettre en valeur mon tableau:
Sub coloriage()
Application.ScreenUpdating = False
couleur = 36
'de la ligne 4 à la ligne 65000
For i = 4 To [A65000].End(xlUp).Row
If Cells(i, 1) <> Cells(i - 1, 1) Then couleur = IIf(couleur = 36, 34, 36)
'jusqu'a la colonne 24
Cells(i, 1).Resize(, 24).Interior.ColorIndex = couleur
Next i
Application.ScreenUpdating = True
End Sub
Lorsque je filtre une colonne, l’alternance des couleurs dans les cellules ne correspond plus.
Peut-on modifier cette macro?
je dispose du code suivant pour mettre en valeur mon tableau:
Sub coloriage()
Application.ScreenUpdating = False
couleur = 36
'de la ligne 4 à la ligne 65000
For i = 4 To [A65000].End(xlUp).Row
If Cells(i, 1) <> Cells(i - 1, 1) Then couleur = IIf(couleur = 36, 34, 36)
'jusqu'a la colonne 24
Cells(i, 1).Resize(, 24).Interior.ColorIndex = couleur
Next i
Application.ScreenUpdating = True
End Sub
Lorsque je filtre une colonne, l’alternance des couleurs dans les cellules ne correspond plus.
Peut-on modifier cette macro?
