Créer une variable OptionButton

Bonjour à tous,

Voilà j'ai plusieurs optioBtuon dans ma fenêtre.
J'aiemrai lorsque on a cliquer sur un boutton "Mise à jour" par exemple que toutes mes OptionButon aient la propriété Enabled à false
Y a t il un moyen de passer par un truc du genre

Code:

---

1 2	For each OptionButton In ...

---

Merci d'avance

Marsup

Je mis le code sur un bouton ;)

Code:

---

1 2 3 4 5 6 7

Private Sub CommandButton1_Click() For Each OptBut In Me.Controls If TypeName(OptBut) = "OptionButton" Then MsgBox "C'est moi que je suis l'option button !" End If Next End Sub

---

A+

Ca met une incompatibilité de type à la ligne

Code:

---

1 2	For each optbut in Me.Controls

---

J'ai déclaré au début de ma procédure

Code:

---

Dim OptBut As OptionButton

---

C'est pas ca ?

Je pense que c'est plutot

Code:

---

Dim OptBut As Object

---

En fait je viens d'essayer avec

Code:

---

1 2	As control

---

Et ca a l'air de marcher.

Merci pour votre aide