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
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
A voir également:
- Associé une couleur en fct la valeur d'une cellule (7 couleurs)
- Excel cellule couleur si condition texte - Guide
- Aller à la ligne dans une cellule excel - Guide
- Somme si couleur - Guide
- Schéma branchement autoradio couleur fils - Forum Autoradio
- Changer la couleur de la barre des taches - Guide
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
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.
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.
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
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
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