Discussion :

[alexis trotta]

Bonjour à tous et bonne année.

avec la macro ci-dessous j'alterne la couleur à chaque changement de valeur dans la colonne A
Lorsque je filtre mon tableau, l'alternance de couleur ne correspond plus; C'est normal.
Quelqu'un peut-il m'aider pour modifier cette macro s'il vous plait?
Merci d'avance

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Sub coloriage()
 
  Application.ScreenUpdating = False
  couleur = 36
  For I = 4 To [A65000].End(xlUp).Row
     If Cells(I, 1) <> Cells(I - 1, 1) Then couleur = IIf(couleur = 36, 34, 36)
     Cells(I, 1).Resize(, 24).Interior.ColorIndex = couleur
  Next I
  Application.ScreenUpdating = True
 
End Sub

AT

[SfJ5Rpw8]

Regarde si les mises en formes dans l'onglet "Acceuil" puis "Mettre sous forme de tableau" ne réponde pas à ton besoin ...

[alexis trotta]

Non. Ca me demande de supprimer le filtre auto avant.

[SfJ5Rpw8]

ben essai de le supprimer ... pour voir ...

[alexis trotta]

Sans le filtre auto ça colorie une ligne sur deux même si la valeur des cellules de la colonne A sont égales. Vu que mon tableau comporte 8000 lignes, j'ai besoin de distinguer les changements de valeurs de la colonne A de manière visuelle.