Simplification d'une écriture

Excel-lent

XLDnaute Barbatruc

• 21 Juillet 2012

• #2

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

Cliquez pour agrandir...

Bonne soirée et bonne fin de week-end

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 22 Juillet 2012

• #3

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

Code:

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

 

Dernière édition: 22 Juillet 2012

Vote positif 0 Vote négatif

Papou-net

XLDnaute Barbatruc

• 22 Juillet 2012

• #4

Re : Simplification d'une écriture

Bonjour lilianfred, Excel-lent, JM,

Le monsieur a dit "sur une seule ligne" !

Donc voilà :

Code:

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

Ou bien :

Code:

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.

 

Dernière édition: 22 Juillet 2012

Vote positif 0 Vote négatif

L

lilianfred

Guest

• 22 Juillet 2012

• #5

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

 

Vote positif 0 Vote négatif