Simplifier l'écriture d'une macro
steph7489
Messages postés
6
Statut
Membre
-
lermite222 Messages postés 9042 Statut Contributeur -
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
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
A voir également:
- Simplifier l'écriture d'une macro
- Écriture facebook - Guide
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Ecriture en gras - Guide
- Ecriture instagram - Guide
- Écriture à l'envers miroir - Guide
3 réponses
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+
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+
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 @+
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 @+
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+
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+
