Discussion :

[marsupilami34]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
For each OptionButton In ...

Merci d'avance

Marsup

[ouskel'n'or]

Je mis le code sur un bouton

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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+

[marsupilami34]

Ca met une incompatibilité de type à la ligne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
For each optbut in Me.Controls

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Dim OptBut As OptionButton

C'est pas ca ?

[tonton fred]

Je pense que c'est plutot

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Dim OptBut As Object

[marsupilami34]

En fait je viens d'essayer avec

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
As control

Et ca a l'air de marcher.

Merci pour votre aide