XL 2013 couleur selon contenue

  • Initiateur de la discussion Initiateur de la discussion matte
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

M

matte

Guest
bonjour,
y à t'il quelqu'un qui serai m'aider ?
voila, sur ma feuille "liste C", en colonne a4:a200, j'ai du texte mélanger avec des chiffres, je cherche si il et possible lorsque que plusieurs cellules ont un contenue identiques, que le contenue prennent une couleur identique d'écriture en caractère gras ,si cela est possible je sollicite votre aide .
merci
 
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.
 
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
 
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 modification par un modérateur:
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

S
Réponses
7
Affichages
2 K
syriak
S
C
Réponses
10
Affichages
2 K
A
Réponses
12
Affichages
1 K
AnjyD
A
M
Réponses
1
Affichages
763
P
  • Question Question
Réponses
1
Affichages
2 K
Patrosso
P
T
  • Question Question
Réponses
12
Affichages
2 K
D
  • Question Question
Réponses
10
Affichages
2 K
dplise563
D
K
Réponses
8
Affichages
2 K
kekebrams
K
E
  • Question Question
Réponses
9
Affichages
973
eljimmy
E
Retour