Mfc VBA - forme

Bonjour,

Ci-dessous le code que j'utilise afin de mettre en forme conditionnelle un rectangle. Celui-ci ne fonctionne pas lorsque le résultat de la cellule F3 est issue d'une formule (Recherchev). Est-ce que quelqu'un peux m'aider ?

Merci par avance.

Diane

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("F3")) Is Nothing Then
Select Case Target.Value
Case Is = "P"
ActiveSheet.Shapes("Rectangle 1").DrawingObject.Interior.Color = RGB(226, 239, 218)
Case Is = "O"
ActiveSheet.Shapes("Rectangle 1").DrawingObject.Interior.Color = RGB(217, 217, 217)
End Select
End If
End Sub

Bonjour DianeFau, le forum,

Peux-tu joindre un fichier test pour mieux comprendre à quel moment la valeur de F3 change ?

Un exemple avec l'évènement Change.....

Cordialement,

Oui, bien sur.

Re,

A tester....

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
 Select Case Range("F3").Value
  Case Is = "P"
    ActiveSheet.Shapes("Rectangle 2").DrawingObject.Interior.Color = RGB(226, 239, 218)
  Case Is = "O"
    ActiveSheet.Shapes("Rectangle 2").DrawingObject.Interior.Color = RGB(217, 217, 217)
  End Select
End Sub

Cordialement,

Tout simplement !

Merci cela fonctionne.