Macro excel sur clic

Résolu/Fermé
clé de 12 Messages postés 139 Date d'inscription samedi 19 juin 2010 Statut Membre Dernière intervention 3 novembre 2024 - 15 janv. 2024 à 21:20
clé de 12 Messages postés 139 Date d'inscription samedi 19 juin 2010 Statut Membre Dernière intervention 3 novembre 2024 - 16 janv. 2024 à 22:40

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

A voir également:

1 réponse

ccm81 Messages postés 10907 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 24 janvier 2025 2 430
Modifié le 16 janv. 2024 à 14:49

Bonjour

Un petit exemple pour cacher/montrer

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

Cdlmnt

0
clé de 12 Messages postés 139 Date d'inscription samedi 19 juin 2010 Statut Membre Dernière intervention 3 novembre 2024 1
16 janv. 2024 à 19:17

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 139 Date d'inscription samedi 19 juin 2010 Statut Membre Dernière intervention 3 novembre 2024 1
16 janv. 2024 à 20:13

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 139 Date d'inscription samedi 19 juin 2010 Statut Membre Dernière intervention 3 novembre 2024 1 > clé de 12 Messages postés 139 Date d'inscription samedi 19 juin 2010 Statut Membre Dernière intervention 3 novembre 2024
16 janv. 2024 à 22:40

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