Discussion :

[yougmeaz]

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 :

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

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

[Sebphyto]

Bonjour,
A voir et à adapter

Code :

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

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

[yougmeaz]

Bonjour Seb,

Ta proposition fonctionne parfaitement, merci !

[Sebphyto]

Re,
De rien, on est la pour çà

A+
seb

[clementmarcotte]

Bonjour,

Bonjour à tous !

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

Code :

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

    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 :

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

1
2
dim wdFormsOptionbutton = Quelque_chose
Case wdFormsOptionbutton

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