XL 2021 Doublons, Colorer partie de ligne en fonction de valeur dans colonne défini

[Nicolas JACQUIN]

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.

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

 

[sylvanu]

Bonjour Nico,
Un petit fichier test serait le bienvenu.
Alors au pif et en aveugle, essayez :

If mondico.Item(c.Value) > 1 Then Range(Cells(c.Row, "H"), Cells(c.Row, "U")).Interior.ColorIndex = couleurs(nocoul)

 

[Nicolas JACQUIN]

Bonjour Sylvanu,

mettre même qu'une partie du fichier aurait été compliqué, mais je te remerci, ça fonctionne directement comme il faut avec ton morceau de code.
en te remerciant encore