Image visible-invisible

[Sokrate]

Bonjour à tous,
Est-il possible de rendre invisible une image insérée dans une feuille, et de la rendre visible à nouveau lorsqu'une cellule change de valeur ?
Par exemple, quand le contenu d'une cellule est égal à 0, je voudrais que l'image soit invisible (ou "masquée"...), et quand le contenu de la cellule est supérieur à 0, je voudrais rendre l'image visible.
Quelqu'un peut-il m'aider ?
Merci d'avance.
Sokrate.

 

[michel]

bonjour Sokrate

j'espere que l'exemple joint repondra ta demande
selon la valeur de la cellule A1 l'image est masquée ou affichée

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Range("A1") = 0 Then
Shapes("image 1").Visible = False
Else
Shapes("image 1").Visible = True
End If
End Sub

bonne journée
michel