couleur sur valeur identique de deux ou plus cellules

JCGL

XLDnaute Barbatruc

• 6 Mai 2012

• #2

Re : couleur sur valeur identique de deux ou plus cellules

Bonjour à tous,

Passe la dernière MeFC en premier

A + à tous

 

Vote positif 0 Vote négatif

riton50

XLDnaute Nouveau

• 6 Mai 2012

• #3

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

 

Pièces jointes

• valeur identiques.xlsx

  9.1 KB · Affichages: 102
• valeur identiques.xlsx

  9.1 KB · Affichages: 129
• valeur identiques.xlsx

  9.1 KB · Affichages: 131

Vote positif 0 Vote négatif

R@chid

XLDnaute Barbatruc

Supporter XLD

• 6 Mai 2012

• #4

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

 

Vote positif 0 Vote négatif

R@chid

XLDnaute Barbatruc

Supporter XLD

• 6 Mai 2012

• #5

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

 

Pièces jointes

• valeur identiques_2.xlsx

  11.1 KB · Affichages: 169
• valeur identiques_2.xlsx

  11.1 KB · Affichages: 165
• valeur identiques_2.xlsx

  11.1 KB · Affichages: 137

Dernière édition: 6 Mai 2012

Vote positif 0 Vote négatif

riton50

XLDnaute Nouveau

• 6 Mai 2012

• #6

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

 

Pièces jointes

• valeur identiques.xlsx

  9.4 KB · Affichages: 87
• valeur identiques.xlsx

  9.4 KB · Affichages: 85
• valeur identiques.xlsx

  9.4 KB · Affichages: 72

Vote positif 0 Vote négatif

R@chid

XLDnaute Barbatruc

Supporter XLD

• 6 Mai 2012

• #7

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
@ +

 

Pièces jointes

• valeur identiques_2.xlsx

  11.5 KB · Affichages: 134
• valeur identiques_2.xlsx

  11.5 KB · Affichages: 136
• valeur identiques_2.xlsx

  11.5 KB · Affichages: 130

Vote positif 0 Vote négatif

riton50

XLDnaute Nouveau

• 6 Mai 2012

• #8

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+

 

Vote positif 0 Vote négatif

S

Softmama

XLDnaute Accro

• 6 Mai 2012

• #9

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 :

VB:

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.

 

Pièces jointes

• valeur identiques.xlsm

  14.3 KB · Affichages: 105

Vote positif 0 Vote négatif

R@chid

XLDnaute Barbatruc

Supporter XLD

• 6 Mai 2012

• #10

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 😱

 

Pièces jointes

• valeur identiques_2.xlsx

  11.7 KB · Affichages: 104
• valeur identiques_2.xlsx

  11.7 KB · Affichages: 108
• valeur identiques_2.xlsx

  11.7 KB · Affichages: 117

Vote positif 0 Vote négatif

riton50

XLDnaute Nouveau

• 6 Mai 2012

• #11

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+

 

Vote positif 0 Vote négatif

S

Softmama

XLDnaute Accro

• 6 Mai 2012

• #12

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

Cliquez pour agrandir...

par

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

Cliquez pour agrandir...

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.

 

Vote positif 0 Vote négatif

S

Softmama

XLDnaute Accro

• 6 Mai 2012

• #13

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):

VB:

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"

Cliquez pour agrandir...

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

VB:

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.

 

Pièces jointes

• valeur identiques2.xlsm

  16.7 KB · Affichages: 113

Vote positif 0 Vote négatif

riton50

XLDnaute Nouveau

• 6 Mai 2012

• #14

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+

 

Vote positif 0 Vote négatif

C

Cumulonymbus

XLDnaute Nouveau

• 27 Août 2012

• #15

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.

 

Vote positif 0 Vote négatif