Boucle sur case d'options

Bonjour,

Je suis sur Excel 2010.

Dans ma feuille, j'ai inséré une série de 5 contrôles ActiveX => Cases d'option.

J'ai une 6ième case d'option dont la fonction est de réinitialiser les 5 premières.

Dans la fonction "Click" de cette 6ième case d'option, je cherche à faire une boucle sur les 5 autres cases d'option au lieu d'écrire :

Code:

---

1 2 3 4 5

OptionButton1.Value=False   OptionButton2.Value=False   ...

---

Merci d'avance pour votre aide.

Cdt.

Bonsoir à toi,

Si tes OptionButton s'appelent comme ceci OptionButtonX (ou X va de 1 à.....) :

Code:

---

1 2 3

For i = 1 To 10 'Nb d'optionboutons :) Me("OptionButton" & i).Value = False Next

---

Cela s'appel de l'indirection, Me étant l'objet USF et il est possible d'accéder aux contrôles qui le compose par leur noms ;)

Par définition, un seul OptionButton d'un groupe est coché par opposition aux CheckBox

Ben sauf s'il ne font pas parti du même groupe :aie:

Code:

---

1 2 3 4 5

Dim Ob As OLEObject   For Each Ob In Feuil1.OLEObjects If TypeName(Ob.Object) = "OptionButton" Then Ob.Object.Value = False Next Ob

---

Citation:

---

Envoyé par cerede2000

Bonsoir à toi,

Si tes OptionButton s'appelent comme ceci OptionButtonX (ou X va de 1 à.....) :

Code:

---

1 2 3

For i = 1 To 10 'Nb d'optionboutons :) Me("OptionButton" & i).Value = False Next

---

Cela s'appel de l'indirection, Me étant l'objet USF et il est possible d'accéder aux contrôles qui le compose par leur noms ;)

---

Merci.
Par contre, je ne sais pas par quoi remplacer Me ?
J'ai essayé Activesheet mais ça ne fonctionne pas.
Quel est mon objet USF ? (en supposant que USF veut dire userform)

Merci d'avance.

Code de Mercatog pour les contrôle de feuille ;)

Citation:

---

Envoyé par cerede2000

Code de Mercatog pour les contrôle de feuille ;)

---

D'accord mais avec le code de mercato, comment je cible seulement 5 cases sur les 6 ?

Merci d'avance.

En mélangeant les deux codes :mrgreen:

Code:

---

1 2 3

For i = 1 To 5 'Nb d'optionboutons :) Feuil1.OLEObjects("OptionButton" & i).Object.Value = False Next

---

Citation:

---

Envoyé par cerede2000

En mélangeant les deux codes :mrgreen:

Code:

---

1 2 3

For i = 1 To 5 'Nb d'optionboutons :) Feuil1.OLEObjects("OptionButton" & i).Object.Value = False Next

---

---

Merci beaucoup.
Ca fonctionne parfaitement.
A bientôt.