Modifier la couleur d'une case sans passer par la MFC

Bonjour,

je suis novice en excel et voila quelques temps que je cherche sans trouver de solution.

je suis sous excel 2008 donc avec une limite de 3 condition pour la MFC et pas d'option pour créer une nouvelle règle (ou du moins je ne l'ai pas trouvé).

mon objectif est très simple à comprendre, j'ai une cellule avec un menu déroulant de 5 valeurs (A,B,C,D,E) et je désire que la cellule en dessous change de couleur en fonction de la valeur indiqué dans la première.

=SI($F$15="A";"SUPER";SI($F$15="B";"COOL";SI($F$15="C";"BOF";SI($F$15="D";"PAS TOP";SI($F$15="E";"NUL")))))

ceci étant la formule que j'avais trouvé et qui fonctionne mais maintenant il faudrait que j'arrive à remplacer les SUPER, COOL, BOF, PAS TOP, NUL, par les couleurs choisies en fond de cellule

En vous remerciant par avance pour le temps passer à lire mon questionnement.

bonne journée

Bonjour

Un exemple a tester

Bonjour arb, Joco7915, le forum,

Une variante...

Private Sub Worksheet_Change(ByVal Target As Range)
 If Not Application.Intersect(Target, Range("F15")) Is Nothing Then
  cancel = True
   Select Case Target.Value
    Case "A"
     Target.Offset(1, 0).Interior.ColorIndex = 4
    Case "B"
     Target.Offset(1, 0).Interior.ColorIndex = 5
    Case "C"
     Target.Offset(1, 0).Interior.ColorIndex = 6
    Case "D"
     Target.Offset(1, 0).Interior.ColorIndex = 45
    Case "E"
     Target.Offset(1, 0).Interior.ColorIndex = 3
    Case Else
      Target.Offset(1, 0).Interior.ColorIndex = xlnone
   End Select
 End If
End Sub

il faudrait que j'arrive à remplacer les SUPER, COOL, BOF, PAS TOP, NUL, par les couleurs choisies en fond de cellule

Private Sub Worksheet_Change(ByVal Target As Range)
 If Not Application.Intersect(Target, Range("F15")) Is Nothing Then
  cancel = True
   Target.Offset(1, 0).Interior.ColorIndex = _
    IIf(Target.Value = "A", 4, _
    IIf(Target.Value = "B", 5, _
    IIf(Target.Value = "C", 6, _
    IIf(Target.Value = "D", 45, _
    IIf(Target.Value = "E", 3, xlNone)))))
 End If
End Sub

Cordialement,