couleur sur valeur identique de deux ou plus cellules

[riton50]

Bonjour à tous,
J'ai un gros soucis avec une plage de donnée dont je cherche à faire ressortir en couleur différente les valeurs identique.
J'ai essayé pas mal de formule mais sans succés

Merci d'avance à ceux qui pourrons trouver une solution à mon probléme
A bientôt
riton50

 

[JCGL]

Re : couleur sur valeur identique de deux ou plus cellules

Bonjour à tous,

Passe la dernière MeFC en premier

A + à tous

 

[riton50]

Re : couleur sur valeur identique de deux ou plus cellules

Bonjour à tous,

Les MeFCs qui étaient active ne sont pas efficace, je les ai enlevée car il faut que chaque valeur identique ait une couleur différente des autres
Je vous joins le nouveau fichier

Merci d'avance à tous

 

[R@chid]

Re : couleur sur valeur identique de deux ou plus cellules

Bonsoir riton,
Salut le Premier Ministre,
Essayer de colorier manuellement le résultat souhaité, comme ça on va mieux comprendre
@ te relire

 

[R@chid]

Re : couleur sur valeur identique de deux ou plus cellules

ReBonsoir @ tous,
Voir PJ, je t'ai fais une MFC de 4 couleurs tu peux continuer pour les autres, en attendant mieux...
Amicalement

 

[riton50]

Re : couleur sur valeur identique de deux ou plus cellules

Bonsoir à tous,
Bonsoir rachid_0661,
Je vous renvoi le fichier colorié en manuel de façon aléatoire, sachant que les valeurs changerons régulièrement

Merci d'avance à tous

 

[R@chid]

Re : couleur sur valeur identique de deux ou plus cellules

Rebonsoir,
sur le premier fichier j'ai exclu les valeurs qui ne sont pas en double,
Voir PJ après modification...
en Attendant une intervention en VBA
@ +

 

[riton50]

Re : couleur sur valeur identique de deux ou plus cellules

Rebonsoir
Super, c'est ce que je chercher en terme d'application, le plus dur maintenant et de le rendre en couleur différente automatique si les valeurs changent.
Merci encore pour cette recherche
En attendant la suite
A+

 

[Softmama]

Re : couleur sur valeur identique de deux ou plus cellules

Bonjour riton50, Rachid_0661

Une proposition par macro évènementielle qui réagit à la modification d'une cellule de la feuille :

Private Sub Worksheet_Change(ByVal T As Range)
Dim Zone As Range, c As Range
Set Zone = [B5].CurrentRegion
For Each c In Zone
  c.Interior.ColorIndex = Application.WorksheetFunction.Rank(c, Zone) + 2
Next c
End Sub

cf. fichier joint.

 

[R@chid]

Re : couleur sur valeur identique de deux ou plus cellules

Bonsoir,
Si le champ va avoir juste les 30 lignes ça ne pose aucun problème tu peux faire avec MFC car on sait auparavnt qu'on va utiliser 30 couleur comme MAX,
Voir PJ,
Mais si le champ va augmenter de taille avec les jours, alors la il faut le faire en VBA.

Edit : Salut Softmama

 

[riton50]

Re : couleur sur valeur identique de deux ou plus cellules

Bonsoir à tous, bonsoir Softmama,
J'adore ta proposition elle répond à ce que je recherche, mais serait il possible d'avoir des couleurs plus claire, car celle qui sont mise cache les valeurs qui doivent rester visible
En attendant la suite
Merci d'avance à tous ceux qui cherche une solution à mon problème
A+

 

[Softmama]

Re : couleur sur valeur identique de deux ou plus cellules

Bonjour,

s'il n'y a pas 100 valeurs différentes, tu peux tenter de remplacer :

c.Interior.ColorIndex = Application.WorksheetFunction.Rank(c, Zone) + 2

par

c.Interior.ColorIndex = Application.WorksheetFunction.Rank(c, Zone) + 25

qui doit pointer sur des couleurs plus claires. Sinon, il faut passer par une variable couleurs, avec les numéros de couleurs à la suite que tu veux. Fais-moi savoir si cela te va ainsi ou pas.

 

[Softmama]

Re : couleur sur valeur identique de deux ou plus cellules

re,

une proposition ci-joint légèrement différente.
La macro Voir te montre les 56 couleurs disponibles par défaut sur ta machine (elles peuvent varier d'un ordinateur à l'autre):

Sub voir()
Dim c As Range
Set c = [G1]
For u = 1 To 56
  Cells(u, "G") = u
  Cells(u, "H").Interior.ColorIndex = u
Next
End Sub

A partir de là, j'ai isolé dans un tableau les n° de celles que je veux utiliser pour résoudre ton problème ainsi :

couleurs = ",2,3,4,5,6,7,8,10,12,13,14,15,17,19,20,22,23,24,33,34,35,36,37,38,39,40,43,44,45,46,50"

Reste plus qu'à appeler ces couleurs dans la macro :

Private Sub Worksheet_Change(ByVal T As Range)
Dim Zone As Range, c As Range, couleurs As String
couleurs = ",2,3,4,5,6,7,8,10,12,13,14,15,17,19,20,22,23,24,33,34,35,36,37,38,39,40,43,44,45,46,50"
Set Zone = [B5].CurrentRegion
For Each c In Zone
  c.Interior.ColorIndex = Split(couleurs, ",")(Application.WorksheetFunction.Rank(c, Zone) Mod UBound(Split(couleurs, ",")))
Next c
End Sub

Pour modifier les couleurs que tu veux utiliser, tu n'as qu'à modifier la variable couleurs, en mettant les n° de couleurs que tu veux entre virgules.
Vois ton fichier.

 

[riton50]

Re : couleur sur valeur identique de deux ou plus cellules

rebonsoir à tous, rebonsoir Soft mama,
Je te remercie pour ton aide très précieuse, tu as fait mon bonheur depuis le temps que je parcourais les forum à la recherche d'une formule.
Merci encore
Bonne nuit à tous
A+

 

[Cumulonymbus]

Re : couleur sur valeur identique de deux ou plus cellules

Bonjour,

J'aimerai réutiliser votre code de macro car il m'intéresse et répond à ce que je cherche aussi. Mais quand j'essaie de la lancer, chez moi il me dit "Erreur 13; Incompatibilité de type"...
Et la ligne "c.Interior.ColorIndex = Split(couleurs, ",")(Application.WorksheetFunction.Rank(c, Zone) Mod UBound(Split(couleurs, ",")))" est soulignée en jaune...
Quelqu'un sait-il pourquoi?
merci d'avance.