XL 2013 couleur selon contenue

vgendron

XLDnaute Barbatruc

• 11 Novembre 2020

• #2

Bonjour
Va voir du coté de la Mise en Forme Conditionnelle.. je crois qu'elle permet de mettre en évidence les doublons

 

Vote positif 0 Vote négatif

M

matte

XLDnaute Junior

• 11 Novembre 2020

• #3

bonjour Vgendron, le fil,
merci,
en fait ce que je voudrai c'est ne pas avoir à faire une comparaison avec une autre cellule pour appliquer la mise en forme mes à l'ensemble, sachant que très souvent plusieurs cellules ont le même contenue.

 

Vote positif 0 Vote négatif

M

matte

XLDnaute Junior

• 11 Novembre 2020

• #4

bonjour,
ok c'est bon j'ai trouver merci Vgendron

 

Vote positif 0 Vote négatif

M

matte

XLDnaute Junior

• 11 Novembre 2020

• #5

bonjour,
En faite non, cela ne vas pas, lorsque plusieurs paquets de doublons sont présent tous les doublons prennent la même couleur, alors que je que je souhaite, c'est justement dissocier les paquets de doublons par couleurs
merci

 

Vote positif 0 Vote négatif

M

matte

XLDnaute Junior

• 11 Novembre 2020

• #6

bonjour,
j'ai trouver une macro, poste du 12 mai 2013 de Regueiro,

VB:

Sub GroupColor()
   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))
     If c <> "" Then mondico.Item(c.Value) = mondico.Item(c.Value) + 1
   Next c
   For Each c In Range("a2", [a65000].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 Sub

serai t'il possible de le modifier pour qu'il soit automatique sans ce servir de bouton, en faite que si un doublons supplémentaire est ajouter les couleur s'active et ce coupe au bout de 30 second svp merci

 

Dernière édition: 11 Novembre 2020

Vote positif 0 Vote négatif

M

matte

XLDnaute Junior

• 11 Novembre 2020

• #7

bonjour,
y à t'il quelqu'un qui aurez une solution pour moi svp
merci

 

Vote positif 0 Vote négatif