Réinitialiser OptionButton d'activeX

Bonjour à tous !

Je souhaite crééer un bouton pour réinitialiser les choix dans un formulaire comportant des OptionButton activeX.

J'ai déjà fait la manip avec du contentcontrols sous Word, et j'ai don cessayer de "transposer" ça sur excel mais visiblement je suis loin du compte...

Si quelqu'un a une idée, voilà ce que j'ai bricolé pour débuter :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Sub reinitialiser() For Each Forms In ActiveSheet.Forms   Select Case Forms.Type   Case wdFormsOptionbutton Forms.OptionButton.Value = False Case Else   End Select   Next   End Sub

---

Merci par avance :)

Bonjour,
A voir et à adapter

Code:

---

1 2 3 4 5 6 7

Sub reinitialiser() Dim Forms As OLEObject   For Each Forms In ActiveSheet.OLEObjects If TypeOf Forms.Object Is MSForms.OptionButton Then Forms.Object.Value = False 'ou NULL Next Forms End Sub

---

seb

Bonjour Seb,

Ta proposition fonctionne parfaitement, merci ! 8-)

Re,
De rien, on est la pour çà

A+
seb

Bonjour,

Citation:

---

Envoyé par yougmeaz

Bonjour à tous !

Je souhaite crééer un bouton pour réinitialiser les choix dans un formulaire comportant des OptionButton activeX.

Code:

---

Case wdFormsOptionbutton

---

---

Attention. En partant, cela ne peut pas marcher dans Excel. Tu utilises une constante interne de Word. Pour l'utiliser dans Excel, même si cela ferait bizarre :

Code:

---

1 2	dim wdFormsOptionbutton = Quelque_chose Case wdFormsOptionbutton

---

Mais, il doit y avoir une constante Excel équivalente. (XLquelque_chose)