afficher image(suite)

[dad62]

salut,

voici une macro tirer d'un cour de jean michel gilles elle permet a partir d'un bouton, d'afficher une image en clic 1 fois et de l'effaçer en cliquant une deuxieme fois, mais l'image dois se trouver sur la feuille active ce que j'aurai aimer et le meme principe en ayant l'image ssur une autre feuille.


merci pour votre aide.


Sub Action3()
If ActiveSheet.Shapes("Image 10").Visible = False Then
ActiveSheet.Shapes("Image 10").Visible = True
Else
ActiveSheet.Shapes("Image 10").Visible = False
End If
End Sub