cathodique
XLDnaute Barbatruc
Bonsoir,
à la recherche d'une solution, je voudrais adapter un exemple de Boisgontier à mon fichier.
En fait, mon fichier est similaire, mon tableau va de la colonne 1 à la colonne 27. En colonne 1, c'est juste un numéro d'ordre. Je voudrais mettre une couleur de fond sur les lignes identiques. les lignes identiques seront celles dont les valeurs des colonnes 2 à 27 seront égales.
En vous remerciant. Fichier exemple de Boisgontier Mon fichier est assez lourd et contient des données confidentielles, j'essaie de l'alléger et de supprimer ce qui doit l'être. Merci de votre compréhension.
à la recherche d'une solution, je voudrais adapter un exemple de Boisgontier à mon fichier.
VB:
Sub GroupColor2CritèresColAColC()
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")
For Each c In Range("a2", [a65000].End(xlUp))
clé = c.Value & c.Offset(, 2)
mondico.Item(clé) = mondico.Item(clé) + 1
Next c
For Each c In Range("a2", [a65000].End(xlUp))
clé = c.Value & c.Offset(, 2)
nocoul = (Application.Match(clé, mondico.keys, 0)) Mod UBound(couleurs) '*** ici
If mondico.Item(clé) > 1 Then c.Resize(, 4).Interior.ColorIndex = couleurs(nocoul)
Next c
End Sub
En vous remerciant. Fichier exemple de Boisgontier Mon fichier est assez lourd et contient des données confidentielles, j'essaie de l'alléger et de supprimer ce qui doit l'être. Merci de votre compréhension.
Dernière édition: