Sub colore()
col = 3
For n = 1 To Range("A65536").End(xlUp).Row
If Range("A" & n + 1) <> Range("A" & n) Then
col = col + 1
If col > 6 Then col = 2
End If
'Range("A" & n + 1).Interior.ColorIndex = col
Rows(n + 1).Interior.ColorIndex = col
Next n
End Sub
Cette macro fonctionne de la facon suivante:
Dans la colonne A, toutes les cellules qui ont une meme valeur auront leur ligne colorée de la meme facon
Mon probleme est que les couleurs sont un peu trop "vives" et ce n'est pas tres agreable a l'oeil
Serait il possible de mettre des couleurs un peu plus ternes ou alors de choisir entre 4 ou 5 couleurs differentes meme si celles ci se repetent un peu plus bas ?
Mon but etant juste de bien voir des groupes ayant la meme valeur en A sur toute ma feuille excel
Sub colore()
Dim col As Byte
Dim n As Long
col = 33
For n = 1 To Range("A65536").End(xlUp).Row
If Range("A" & n + 1) <> Range("A" & n) Then
col = col + 1
If col > 42 Then col = 33
End If
Rows(n + 1).Interior.ColorIndex = col
Next n
End Sub
Dim col As Byte
Dim n As Long
col = 33
For n = 1 To Range("A65536").End(xlUp).Row
If Range("A" & n + 1) <> Range("A" & n) Then
col = col + 1
If col > 42 Then col = 33
End If
[B]Range("A" & n & ":L" & n).Interior.ColorIndex = col[/B]
Next n