Simplifier l'écriture d'une macro

Bonjour,
Existe-t-il une solution plus simple pour écrire ceci :

Image1.Visible = False
Image2.Visible = False
Image3.Visible = False
btnchercher.Visible = False
btncable.Visible = False

Dans l'atttente d'une réponse

Merci
Configuration: Windows XP
Internet Explorer 6.0

3 réponses

  • Votes
  • Date
  • Date décroissante
  1. Contributeur
    Bonjour,
    Il y a en effet, moyen de simplifier mais avec seulement 3 contrôles ça ne vaut pas la peine, le code prendrait plus de place que tes 3 lignes.
    A+
    1. Bonjour,
      en effet pour 3 contrôles, ce n'est peu être pas la peine, mais il sagissait d'un exemple car j'ai des macros plus longues, pas exemples :
      btnparametre.Visible = True
      btnchercher.Visible = True
      btncable.Visible = True
      btPhotoDGM.Visible = False
      btPhotoDGS.Visible = False
      btPhotoBooster93014721.Visible = False
      btPhotoBooster93014747.Visible = False
      btPhotoBooster93023708.Visible = False
      btPhotoBooster93041943.Visible = False
      btPhoto92500087.Visible = False
      btPhotoConver92500132.Visible = False
      btPhotoConver92500137.Visible = False
      btPhotoConver92500968.Visible = False
      btPhotoConver92501003.Visible = False
      btPhotoConver93031176.Visible = False
      btPhoto92500087.Visible = False
      btPhoto92500250.Visible = False
      btPhoto92500306.Visible = False
      btPhoto92500934.Visible = False
      btPhoto93025126.Visible = False
      btPhoto93029207.Visible = False
      btPhoto93034893.Visible = False
      btPhoto93058281.Visible = False
      btPhotoMCA.Visible = False
      btPhotoMCS.Visible = False
      btPhotoMCS2.Visible = False
      btPhotoMCX.Visible = False
      btPhotoPrise98040010.Visible = False
      btPhotoPrise92501015.Visible = False
      btPhotoPrise95796059.Visible = False
      btPhoto98050025.Visible = False
      btPhoto95796054.Visible = False
      btPhoto92500403.Visible = False
      btPhotoCAB29803.Visible = False
      btPhoto92501091.Visible = False
      btPhoto92500404.Visible = False
      btPhoto92500197.Visible = False
      btPhoto92501092.Visible = False
      btPhoto92500595.Visible = False
      btPhoto92501084.Visible = False
      btPhoto92501093.Visible = False
      btPhoto95796054.Visible = False
      btPhoto92500232.Visible = False
      btPhoto92500722.Visible = False
      btPhoto92500737.Visible = False
      btPhotoCABA26186.Visible = False
      btPhotoMAC17502.Visible = False
      btPhoto95796065.Visible = False
      btn2D92500968.Visible = False
      btn3D92500968.Visible = False
      btn2D92500978.Visible = False
      btn3D92500978.Visible = False

      Alors y a t'il une solution ?

      Merci et @+
      1. Contributeur
        je ne sais pas ce que sont tes contrôles mais avec cette astuce à adapter c'est faisable en quelque lignes de code, en fait, 6 lignes de code.
        Si tu a des problèmes pour adapter tu dit mais en spécifiant les type de contrôles et il faudra ajouter des chiffres aux noms de tes contrôles, si c'est faisable (de modifier les noms) tu dit.
        A+