Associé une couleur en fct la valeur d'une cellule (7 couleurs)
Arnaud2a
-
jc80 Messages postés 4243 Date d'inscription Statut Membre Dernière intervention -
jc80 Messages postés 4243 Date d'inscription Statut Membre Dernière intervention -
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.
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.
A voir également:
- Associé une couleur en fct la valeur d'une cellule (7 couleurs)
- Photofiltre 7 - Télécharger - Retouche d'image
- Excel cellule couleur si condition texte - Guide
- Clé windows 7 - Guide
- Excel compter cellule couleur sans vba - Guide
- Aller à la ligne dans une cellule excel - Guide
2 réponses
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.
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.
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
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
