Macro excel sur clic

Résolu

clé de 12 Messages postés 141 Date d'inscription Statut Membre Dernière intervention -
clé de 12 Messages postés 141 Date d'inscription Statut Membre Dernière intervention - 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

Afficher la suite

1 réponse

Réponse 1 / 1
ccm81 Messages postés 11033 Statut Membre 2 434

Bonjour

Un petit exemple pour cacher/montrer

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

Cdlmnt
0
1. clé de 12 Messages postés 141 Date d'inscription Statut Membre Dernière intervention 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
2. clé de 12 Messages postés 141 Date d'inscription Statut Membre Dernière intervention 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
  1. clé de 12 Messages postés 141 Date d'inscription Statut Membre Dernière intervention 1 > clé de 12 Messages postés 141 Date d'inscription Statut Membre Dernière intervention
    
    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

Macro excel sur clic

1 réponse

Discussions similaires

Newsletters