Re : Cellules identiques dans une colonne
Bonjour à tous,
Désolé de venir déterrer un sujet qui date de 2007, mais je me sers de cette macro très charmante.
J'ai un tableau de 4000 lignes, avec en colonne R seulement 480 valeurs différentes. Les cellules identiques se suivent : ex
Ax
Ax
Ax
Bz
Bz
Bz
Bz
Cb
Cb
Cb
Cb
Cb
Cb
J'utilise donc la macro sur la colonne R :
Sub Macro1()
Dim pl As Range 'déclare la variable pl
Dim cel1 As Range 'déclare la variable cel1
Dim cel2 As Range 'déclare la variable cel2
'définit la variable pl(ici toutes les cellules éditées de la colonne A)
Set pl = Range("R1:R" & Range("A65536").End(xlUp).Row)
pl.Interior.ColorIndex = 0 'supprime toutes les couleurs dans la plage pl
coul = 5 ' mais ce n'est qu'une histoire de goût
For Each cel1 In pl 'boucle 1 : sur toutes les cellules cel2 de la plage pl
For Each cel2 In pl 'boucle 2 : sur toutes les cellules cel2 de la plage pl
If cel1.Value = cel2.Value Then 'condition : si les cellules sont identiques
cel1.Interior.ColorIndex = coul 'colorie la cellule cel1
cel2.Interior.ColorIndex = coul 'colorie la cellule cel2 avec la même couleur
End If 'fin de l a condition
Next cel2 'prochaine cellule de la boucle 2
coul = coul + 1 'change de couleur
Next cel1 'prochaine cellule de la boucle 1
End Sub
En fait, j'ai une erreur après l'utilisation du gris foncé (10ème couleur dans l'ordre, sur mon tableau) : "Erreur d'execution 1004 ; Impossible de définir la propriété ColorIndex de la classe Interior"
J'ai donc changé la ligne coul = coul + 1 'change de couleur
en : coul = coul + 0.1 'change de couleur
Ce qui ralentit le défilement des couleurs, et me permet de colorer beaucoup + de cellules, environ 500.
J'ai aussi essayé avec 0.05, même constat, j'obtiens environ 1000 cellules colorées avant l'erreur.
Quelqu'un parmi vous aurait une solution, par exemple une redondance des couleurs utilisées à partir du gris foncé ?
Merci d'avance.