CACHER une image en fonction du résultat d'une formule

Bonjour à Tous !

Voila je rencontre un soucis sur une de mes macros (voir fichier en PJ)

Je souhaite cacher l'image (LOGO CE) en fonction du résultat de la formule se trouvant en case M1, qui est une simple rechercheV du contenu G-K1.

J'ai donc un bout de macro :

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Address = "$M$1" Then

ActiveSheet.Shapes("Picture 3").Visible = (Target <> "0")

End If

End Sub

Jusque la tout vas bien, seulement lorsque je change le contenu "N°fiche", ma formule ce met bien a jour et m'affiche 0 ou 1, mais la macro de "masquage" du logo, ne s'enclenche pas.

Je suis obligé de repasser sur ma formule en M1 pour que ça fonctionne.

Auriez vous une idée ?

Merci ;)

Bonjour,

Ce n'est pas M1 dont la valeur change mais G1.

Ton code revisité :

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$G$1" Then
    If [M1] = 0 Then
    ActiveSheet.Shapes("Picture 3").Visible = False
    Else
    ActiveSheet.Shapes("Picture 3").Visible = True
    End If
End If
End Sub

Cdlt,

Rien a dire d'autre. merci.

Ca fonctionne.