Initialisation de plusieurs boutons ?

L

LaurentTBT

Guest

• 23 Mai 2004

• #2

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.

 

Vote positif 0 Vote négatif

L

Lord Nelson

Guest

• 23 Mai 2004

• #3

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

 

Vote positif 0 Vote négatif

L

Lord Nelson

Guest

• 23 Mai 2004

• #4

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

 

Vote positif 0 Vote négatif

L

LaurentTBT

Guest

• 23 Mai 2004

• #5

Hi, My Lord,

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

Bon dimanche

 

Vote positif 0 Vote négatif