Initialisation de plusieurs boutons ?

[Nuni]

Bonjour à tous,

J'ai, dans une boite de dialogue, plusieurs boutons à bascule (ToggleButton).

Je voudrais pouvoir les remettre tous à zero sans avoir à les nommés un par un ??

Par avance merci

 

[LaurentTBT]

Bonjour,

J'ai pris l'habitude de nommer tous mes ToggleButons en commençant par "Tgb…"
Cela permet de faire un test sur le type de contrôle:
Dim Contrôle as control
For each Contrôle in UserForm1.Controls
If left(Contrôle.name,3)="Tgb" then Contrôle=true
next Contrôle

Sinon, il doit être possible de faire un test pour savoir si tel contrôle est de type ToggleBouton, mais je ne trouve plus comment!

Bon dimanche.

 

[Lord Nelson]

Salut Nuni,

Avec une boucle For Each, bien sûr !

Dim CTL As Control
For Each CTL In Controls
If TypeOf CTL Is ToggleButton Then
CTL.Value = False
End If
Next

Haaaa, la boucle For Each, c'est une merveille.
A+
LN

 

[Lord Nelson]

Salut Laurent,

On a failli se marcher sur les pieds sur ce fil !
Mais heureusement, tu avais laissé la porte ouverte pour TypeOf.
Ouf sauvés...

A+
LN

 

[LaurentTBT]

Hi, My Lord,

Ah oui, c'est ça, TypeOf… je le cherchais depuis quelques temps, merci.

Bon dimanche