Macro excel sur clic

Résolu
clé de 12 -  

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

  1. ccm81

    Bonjour

    Un petit exemple pour cacher/montrer

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

    Cdlmnt

    0
    1. clé de 12 Auteur

      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 Auteur

      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
    3. clé de 12 Auteur
      @clé de 12

      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

Discussions similaires

Transformer un chiffre en lettres dans excel sans macro
vincentphilippos

6 réponses