OVH Cloud OVH Cloud

Boucle For each Next sur des OptionButton

3 réponses
Avatar
Sylvain
Bonjour,

Dans une feuille Excel, je veux initialiser tous les OptionButton à false au
démarrage.

J'essaie de faire une boucle For Each comme suit :

Dim Ctrl As Control
For Each Ctrl In OptionButton
Ctrl.Value = False
Next

Je pense que c'est mon groupe OptionButton qui n'est pas bon.

Quelqu'un saurait me préciser la bonne syntaxe ?

Merci.

3 réponses

Avatar
ru-th
Salut

une possibilité
Sub testy()
For i = 1 To 2
ActiveSheet.OLEObjects("optionbutton" & i).Object.Value = False
Next
End Sub

a+
rural thierry
"Sylvain" a écrit dans le message de news:

Bonjour,

Dans une feuille Excel, je veux initialiser tous les OptionButton à false
au

démarrage.

J'essaie de faire une boucle For Each comme suit :

Dim Ctrl As Control
For Each Ctrl In OptionButton
Ctrl.Value = False
Next

Je pense que c'est mon groupe OptionButton qui n'est pas bon.

Quelqu'un saurait me préciser la bonne syntaxe ?

Merci.





Avatar
Sylvain
Ca marche !

J'imaginais une autre solution, mais celle ci est efficace.

Merci !

"Sylvain" a écrit dans le message de news:

Bonjour,

Dans une feuille Excel, je veux initialiser tous les OptionButton à false
au

démarrage.

J'essaie de faire une boucle For Each comme suit :

Dim Ctrl As Control
For Each Ctrl In OptionButton
Ctrl.Value = False
Next

Je pense que c'est mon groupe OptionButton qui n'est pas bon.

Quelqu'un saurait me préciser la bonne syntaxe ?

Merci.





Avatar
Jean-Claude
Salut,
Si tes boutons sont dans un contrôle frame, le code suivant fonctionne

For Each ctrl In Me.Frame1.Controls
ctrl.Value = False
Next ctrl
a+
jC
"Sylvain" a écrit dans le message de
news:
Bonjour,

Dans une feuille Excel, je veux initialiser tous les OptionButton à false
au

démarrage.

J'essaie de faire une boucle For Each comme suit :

Dim Ctrl As Control
For Each Ctrl In OptionButton
Ctrl.Value = False
Next

Je pense que c'est mon groupe OptionButton qui n'est pas bon.

Quelqu'un saurait me préciser la bonne syntaxe ?

Merci.