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
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
MichD
Le #25762312
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
'----------------------------------------

MichD
---------------------------------------------------------------
Steph
Le #25762572
Cela fonctionne très bien, merci MichD ;-)


Le lundi 4 novembre 2013 23:42:23 UTC+1, MichD a écrit :
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

'----------------------------------------



MichD

---------------------------------------------------------------
Publicité
Poster une réponse
Anonyme