Format conditionnel avec couleur en fonction d'un chiffre dans une case de la feuille
Le
Steph
Bonjour,
Est-il possible de faire un format conditionnel qui changerait la couleur d=
u fond de la case C1 si A1 = 1 (ça c'est facile) mais la difficulté e=
st que la couleur du fond elle doit varié en fonction d'un chiffre (repr=
ésentant une couleur) qui est placé en case B1 ?
Exemple1:
A1 = 0 (ou <> de 1)
B1 = n'importe quoi
C1 = Le fond reste sans couleur
Exemple2:
A1 = 1
B1 = 3 (pour le rouge)
C1 devient rouge
Exemple3:
A1 = 1
B1 = 4 (pour le vert)
C1 = Le fond devient vert
Est-ce faisable ça ?
D'avance merci pour vos réponses,
Steph
Est-il possible de faire un format conditionnel qui changerait la couleur d=
u fond de la case C1 si A1 = 1 (ça c'est facile) mais la difficulté e=
st que la couleur du fond elle doit varié en fonction d'un chiffre (repr=
ésentant une couleur) qui est placé en case B1 ?
Exemple1:
A1 = 0 (ou <> de 1)
B1 = n'importe quoi
C1 = Le fond reste sans couleur
Exemple2:
A1 = 1
B1 = 3 (pour le rouge)
C1 devient rouge
Exemple3:
A1 = 1
B1 = 4 (pour le vert)
C1 = Le fond devient vert
Est-ce faisable ça ?
D'avance merci pour vos réponses,
Steph
Fais un clic droit sur l'onglet de la feuille où l'action se déroule,
La commande "Visualiser le code"
Tu codes la procédure suivante :
Tu saisis manuellement un chiffre entre 1 et 56 et la cellule B1 est
automatiquement affectée de la couleur choisie.
'----------------------------------------
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = Range("B1").Address Then
If IsNumeric(Target) Then
If Target > 0 And Target < 57 Then
Range("A1").Interior.ColorIndex = Target
Else
Range("A1").Interior.ColorIndex = xlNone
End If
Else
Range("A1").Interior.ColorIndex = xlNone
End If
End If
End Sub
'----------------------------------------
MichD
---------------------------------------------------------------
Le lundi 4 novembre 2013 23:42:23 UTC+1, MichD a écrit :