Bonjour,
J'utilise très régulièrement la macro suivante (en PJ // "Macro Alterner couleur ligne"), permettant d'alterner la couleur des lignes en fonction de la colonne A, du moment où la valeur en de la cellule en colonne A est différente de la valeur de la cellule précédente en colonne A.
Exemple : si A4 = A3, alors la couleur de ligne A4 reste identique à la couleur de la ligne A3 // si A5 dif A4, alors la couleur de la ligne A4 change par rapport à la couleur de la ligne 4, et passe gris // etc etc etc...
Sub ReperRefs()
Application.ScreenUpdating = False
Range([A2], [A65536].End(xlUp)).Select
NbItemsSource = Selection.Rows.Count
ReDim tabl(1 To NbItemsSource, 1 To 1)
i = 1
T = 1
For Each Cell In Selection
tabl(i, 1) = Cell.Value
i = i + 1
Next Cell
X = 2
For j = 1 To NbItemsSource
If Cells(j + 2, 1).Value = "" Then
Range(Cells(j + 1, 1), Cells(j + 1, 150)).Interior.ColorIndex = X
Range("A1").Select
End
End If
If tabl(j + 1, 1) = tabl(j, 1) Then
Range(Cells(j + 1, 1), Cells(j + 1, 150)).Interior.ColorIndex = X
Else
Range(Cells(j + 1, 1), Cells(j + 1, 150)).Interior.ColorIndex = X
T = T + 1
If X = 2 Then
X = 15
ElseIf X = 15 Then
X = 2
End If
End If
Next j
End Sub
Sur cet macro, la première ligne est ignorée actuellement.
J'aimerai conserver exactement la même macro, mais arriver à ignorer les 2 premières lignes, pour que cette macro s'effectue à partir de la cellule A3, et donc de la 3ème ligne, pour ne pas toucher à la mise en forme de la 2nd ligne (et de la 1ère).
Voici le résultat que je souhaiterais :
En vous remerciant par avance pour votre aide