Bonjour à tous
J'essaye d'identifier mon erreur sur cette macro mais en vain.
En effet, je souhaite mettre un fond de couleur les cellules non vide de la colonne A, les valeurs identiques de la même couleur et les cellules vide rien
Existe-il quelqu'un pour m'aider à rectifier le tire svp ?
J'ai mis en PJ un fichier illustrant ce que je veux sur le deuxième onglet (Résultat souhaité). (Ne faite pas attention aux couleurs cela se fait aléatoirement)
La macro se fait sur l'onglet Feuil1
Je vous remercie de votre aide précieuse
Harry
J'essaye d'identifier mon erreur sur cette macro mais en vain.
En effet, je souhaite mettre un fond de couleur les cellules non vide de la colonne A, les valeurs identiques de la même couleur et les cellules vide rien
Existe-il quelqu'un pour m'aider à rectifier le tire svp ?
VB:
Sub MiseEnCouleur()
Dim fin&, coul&, i&, d As Object, aa, bb, a&
Set d = CreateObject("Scripting.Dictionary")
coul = 4
With Worksheets("Feuil1")
fin = .Range("A" & Rows.Count).End(xlUp).Row
aa = .Range("A5:A197")
For i = 1 To UBound(aa)
If aa(i, 1) <> "" And Not d.exists(aa(i, 1)) Then d.Add aa(i, 1), aa(i, 1)
Next i
bb = d.keys
For i = 0 To UBound(bb)
coul = coul + 1
For a = 1 To UBound(aa)
If bb(i) = aa(a, 1) Then .Cells(a + 1, 1).Interior.ColorIndex = coul
Next a
Next i
End With
End SubJ'ai mis en PJ un fichier illustrant ce que je veux sur le deuxième onglet (Résultat souhaité). (Ne faite pas attention aux couleurs cela se fait aléatoirement)
La macro se fait sur l'onglet Feuil1
Je vous remercie de votre aide précieuse
Harry