Colorer Ligne doublon

[kaki31]

Bonjour:

Comment faire pour colorer des lignes ( de la colonne A a la colonne H ) avec différentes couleurs ? sans utiliser la couleur rouge que j'utiliserai pour autres choses.

Merci.
🙂

 

[Fo_rum]

Re : Colorer Ligne doublon

Bonsoir,

un autre essai (avec une autre colonne).

 

[kaki31]

Re : Colorer Ligne doublon

Bonsoir Fo_rum;

Merci pour votre contribution,elle répond totalement a mes attentes.

On peut toujours mieux faire.

🙂

 

[klin89]

Re : Colorer Ligne doublon

Bonjour le forum,
Bonjour kaki31, Fo_rum

Dans la palette des couleurs, j'ai choisi les 5 couleurs indexées de 35 à 39 (ton clair)
Tu visualises ainsi tes doublons avec une alternance de 5 couleurs.

A tester cette nouvelle version dans le fichier du post #1

Sub Mise_en_Forme_des_Doublons1()
  Set mondico = CreateObject("Scripting.Dictionary")
  couleur = 34
  For Each c In Range("A1", [A65000].End(xlUp))
     mondico.Item(c.Value) = mondico.Item(c.Value) + 1
  Next c
  Application.ScreenUpdating = False
  For Each c In Range("A1", [A65000].End(xlUp))
    c.Resize(, 8).Interior.ColorIndex = 0
    If mondico.Item(c.Value) > 1 Then
      On Error Resume Next
      If Cells(c.Row, 1) <> Cells(c.Row - 1, 1) Then
        'If couleur = 5 Then couleur = 0
        If couleur = 39 Then couleur = 34
          couleur = couleur + 1
        End If
      On Error GoTo 0
      Cells(c.Row, 1).Resize(, 8).Interior.ColorIndex = couleur
    End If
  Next c
  Application.ScreenUpdating = True
End Sub

Après on peut aussi rajouter des conditions, pour pouvoir finalement choisir les indexs de couleurs 🙄

Klin89

 

[kaki31]

Re : Colorer Ligne doublon

Bonjour klin89 ;

C'est vraiment génial.

Merci 🙂

 

[klin89]

Re : Colorer Ligne doublon

Re le forum, kaki31

Une ultime version avec le choix des couleurs dans un tableau 🙂
Alternance de 5 couleurs appliquées sur les doublons.

Sub Mise_en_Forme_des_Doublons2()
  Set mondico = CreateObject("Scripting.Dictionary")
  Set Plage = Range("A1:H" & [A65536].End(xlUp).Row)
  'Index des couleurs dans un array
   tablo = Array(0, 44, 43, 33, 35, 37) '5 couleurs
   n = 0
  For Each c In Range("A1", [A65536].End(xlUp))
    mondico.Item(c.Value) = mondico.Item(c.Value) + 1
  Next c
  Application.ScreenUpdating = False
  Plage.Interior.ColorIndex = xlNone
  For Each c In Range("A1", [A65536].End(xlUp))
    If mondico.Item(c.Value) > 1 Then
      On Error Resume Next
      If Cells(c.Row, 1) <> Cells(c.Row - 1, 1) Then
        If n = 5 Then n = 0
        couleur = tablo(n + 1)
        n = n + 1
      End If
      On Error GoTo 0
      Cells(c.Row, 1).Resize(, 8).Interior.ColorIndex = couleur
    End If
  Next c
  Application.ScreenUpdating = True
End Sub

Avec cet exemple, tu peux décliner ce code avec autant de couleurs souhaitées.

A tester

Klin89

 

[kaki31]

Re : Colorer Ligne doublon

Bonsoir Klin89;

C'est vraiment super,merci infiniment

🙂