Bonjour les amis,
je coince sur la création d'un code, j'ai trouvé un code me permettant de trouver les doublons dans une colonne en les colorant,
mais j'aimerai pouvoir colorer la ligne entière de "H" à "U"
Voici le code que j'ai actuellement ainsi qu'une image pour visualiser le concept
en vous remerciant.
je coince sur la création d'un code, j'ai trouvé un code me permettant de trouver les doublons dans une colonne en les colorant,
mais j'aimerai pouvoir colorer la ligne entière de "H" à "U"
Voici le code que j'ai actuellement ainsi qu'une image pour visualiser le concept
en vous remerciant.
VB:
Sub Color_doublons()
couleurs = Array(1, 3, 4, 6, 7, 8, 14, 15, 17, 20, 22, 24, 26, 27, 28, 33, 34, 35, 36, 37, 38, 39, 40, 42, 43, 44, 45, 46, 50, 53)
Set mondico = CreateObject("Scripting.Dictionary")
With Sheets("F_Acceuil")
For Each c In Range("J5", [J65000].End(xlUp))
If c <> "" Then mondico.Item(c.Value) = mondico.Item(c.Value) + 1
Next c
For Each c In Range("J5", [J65000].End(xlUp))
If c <> "" Then
nocoul = (Application.Match(c.Value, mondico.keys, 0)) Mod UBound(couleurs)
If mondico.Item(c.Value) > 1 Then c.Interior.ColorIndex = couleurs(nocoul)
End If
Next c
End With
End Sub