Associé une couleur en fct la valeur d'une cellule (7 couleurs)

Fermé
Arnaud2a - 8 déc. 2014 à 12:41
jc80 Messages postés 4243 Date d'inscription mardi 5 février 2013 Statut Membre Dernière intervention 25 février 2019 - 8 déc. 2014 à 14:10
Bonjour,

Je dispose d'une liste que j'aimerais travailler.
Je voudrais qu'en fonction du nombre de la cellule, cette cellule apparaisse d'une certaine couleur. Il y'a 7 différentes couleurs que j'aimerais pouvoir mettre en place
(ex : consommation de machine à laver : classe A, B, C, D ...etc)

Ps : j'ai l'impression que la mise en forme conditionnelle me limite à 2 ou 3 couleurs maximum

Merci pour vos réponses qui j'imagine me permettront de résoudre ce casse tête.

2 réponses

g Messages postés 1262 Date d'inscription vendredi 23 avril 2004 Statut Membre Dernière intervention 15 mai 2017 575
8 déc. 2014 à 13:20
Bonjour,

Avec Excel de version inférieure à 2007 la MFC est effectivement limitée à 3 conditions.
Il est possible d'aller au delà en utilisant VBA.
Mais pour cela le mieux est de transmettre le fichier concerné avec toutes précisions.

Cordialement.
0
jc80 Messages postés 4243 Date d'inscription mardi 5 février 2013 Statut Membre Dernière intervention 25 février 2019 1 424
Modifié par jc80 le 8/12/2014 à 14:12
Bonjour

En supposant que tu veuilles la couleur en A1 colle le code suivant dans ta feuille

Private Sub Worksheet_Change(ByVal Target As Range)

If Not Intersect(Target, Range("A1")) Is Nothing Then
For Each cell In Target
If cell.Value = "A" Then
cell.Interior.ColorIndex = 3
ElseIf cell.Value = "B" Then
cell.Interior.ColorIndex = 4
ElseIf cell.Value = "C" Then
cell.Interior.ColorIndex = 5
ElseIf cell.Value = "D" Then
cell.Interior.ColorIndex = 6
ElseIf cell.Value = "E" Then
cell.Interior.ColorIndex = 7
ElseIf cell.Value = "F" Then
cell.Interior.ColorIndex = 8
ElseIf cell.Value = "G" Then
cell.Interior.ColorIndex = 9
ElseIf cell.Value = "H" Then
cell.Interior.ColorIndex = 10
ElseIf cell.Value = "I" Then
cell.Interior.ColorIndex = 11
End If
Next
End If

End Sub

Cordialement

Ci dessous le code des couleurs
http://gerard.g.pagesperso-orange.fr/logexl_09.htm#palette_couleurs
0