Simplifier l'écriture d'une macro

steph7489 Messages postés 6 Statut Membre -  
lermite222 Messages postés 9042 Statut Contributeur -
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

  1. lermite222 Messages postés 9042 Statut Contributeur 1 199
     
    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+
    0
  2. steph7489 Messages postés 6 Statut Membre
     
    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 @+
    0
  3. lermite222 Messages postés 9042 Statut Contributeur 1 199
     
    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+
    0