Simplification d'une écriture

[lilianfred]

Bonsoir au FORUM

ESt ce qu'il est possible de simplifier cette écriture?

"Commandboutton1.Visible=True
Commandboutton2.Visible=True
Commandboutton3.Visible=True
...."

Le but est d'éviter d'écrire sur plusieurs lignes et donc de n'écrire le code que sur une ligne.

Merci de votre aide

Lilianfred

 

[Excel-lent]

Re : Simplification d'une écriture

Bonsoir et bienvenu sur le forum LilianFred,

Ne pouvant pas tester ma solution sur ton fichier, je te donne la réponse brut et te laisse la tester et l'adapter à ton cas.

For i = 1 To 3
Controls("Commandboutton" & i)).Value = True
Next i

Bonne soirée et bonne fin de week-end

 

[Staple1600]

Re : Simplification d'une écriture

Bonjour à tous, salut Excel-lent

Sur la même piste qu'Excel-lent
Ici on boucle sur tous les contrôles de l'userform, mais on ne prend en compte que les CommandButton

Dim ctrl As Control
For Each ctrl In Me.Controls
 If TypeOf ctrl Is MSForms.CommandButton Then ctrl.Visible = True
Next ctrl

 

[Papou-net]

Re : Simplification d'une écriture

Bonjour lilianfred, Excel-lent, JM,

Le monsieur a dit "sur une seule ligne" !

Donc voilà :

For i = 1 To 3: Me.Controls("Commandbutton" & i).Visible = True: Next i

Ou bien :

For Each ctrl In Me.Controls: If TypeOf ctrl Is MSForms.CommandButton Then ctrl.Visible = True: Next ctrl

Plus sérieusement, la solution de JM est plus souple car elle permet une évolution du nombre de CommandButton sans avoir à modifier le code. Mais, si le fichier comprend un nombre important de contrôles de tous types, celle de Excel-lent devrait s'avérer plus rapide.

Voilà, c'était juste pour d(r)ire.

Bon dimanche à vous.

 

[lilianfred]

Re : Simplification d'une écriture

Bonsoir Excel-lent, JM, Papou-net

Je vous remercie pour votre aide, je vais tester tout cela demain.

Bonne soirée