Macro excel sur clic

Résolu
clé de 12 Messages postés 154 Statut Membre -  
clé de 12 Messages postés 154 Statut Membre -

Bonjour,

Problème simpliste que j'ai résolu en son temps... Comment rendre une image non visible sur le clic de cette image. En gros je voudrais faire un truc qui marche comme ça :

Sub Picture2_Clic()
this(Picture2).Visible = False
End Sub

Je sais que ma syntaxe est pourrie mais je compte sur vous.... car je dois appliquer cette démarche dédiée à 30 autres objets

Cordialement
 


Windows / Edge 120.0.0.0

1 réponse

ccm81 Messages postés 11033 Statut Membre 2 433
 

Bonjour

Un petit exemple pour cacher/montrer

https://www.cjoint.com/c/NAqnUmGuVfB

Cdlmnt

0
clé de 12 Messages postés 154 Statut Membre 1
 

Merci beaucoup. J'ai adapté à mes besoins 

Sub Picture2_Clic()
    ActiveSheet.Shapes(Picture2).Visible = False
End Sub

Idem pour Picture3, 4 etc... et la RAZ m'a évité beaucoup de recherches....

Bravo

0
clé de 12 Messages postés 154 Statut Membre 1
 

bonjour ccm81,

j'ai clos un peu vite ma question. J'ai ecris 

Sub Picture2_Clic()
    ActiveSheet.Shapes(Picture2).Visible = False
End Sub

Sub Picture3_Clic()
    ActiveSheet.Shapes(Picture3).Visible = False
   
End Sub
Sub Picture4_Clic()
    ActiveSheet.Shapes(Picture4).Visible = False
End Sub

Si le 1er sub fonctionne, les autres non. Est ce normal ou je fais une toile? Merci

0
clé de 12 Messages postés 154 Statut Membre 1 > clé de 12 Messages postés 154 Statut Membre
 

OK j'ai fait une toile sur les apostrophes ;o) La bonne syntaxe étant 

Sub Picture6_Clic()
    ActiveSheet.Shapes("Picture 6").Visible = False
End Sub

0