Format conditionnel avec couleur en fonction d'un chiffre dans une case de la feuille
2 réponses
Steph
Bonjour,
Est-il possible de faire un format conditionnel qui changerait la couleur d=
u fond de la case C1 si A1 =3D 1 (=E7a c'est facile) mais la difficult=E9 e=
st que la couleur du fond elle doit vari=E9 en fonction d'un chiffre (repr=
=E9sentant une couleur) qui est plac=E9 en case B1 ?
Exemple1:
A1 =3D 0 (ou <> de 1)
B1 =3D n'importe quoi
C1 =3D Le fond reste sans couleur
Exemple2:
A1 =3D 1
B1 =3D 3 (pour le rouge)
C1 devient rouge
Exemple3:
A1 =3D 1
B1 =3D 4 (pour le vert)
C1 =3D Le fond devient vert
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
MichD
Bonjour,
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 '----------------------------------------
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
'----------------------------------------
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 '----------------------------------------