décocher un optionButton

Bonjour,

j'ai un petit problème sur lequel je me casse la tête et sur lequel quelqu'un pourrait éventuellement m'aider!

J'ai fait un questionnaire en utilisant des userforms et des OptionButton (case à cocher) qui sont regroupés dans des groupes (1 seul choix possible par groupe). Le problème que j'ai c'est que lorsqu'on se trompe, je n'arrive pas à décocher les optionButton! Je m'explique:
si jamais on ne souhaite pas répondre à une question mais que par inadvertance on coche l'une des réponses possibles alors je n'arrive pas à décocher la case! Effectivement je peux choisir une autre réponse, mais pas AUCUNES REPONSES (= toutes les réponses possibles à blanc) !!

Si quelqu'un à une solution, je le remercie par avance de m'en faire part! 8O

Bonjour,

rajoutes un optionbutton : "aucun choix" ;) dans tes séries

cordialement,

Didier

Bonjour,
je pense que la solution de ormonth est la meilleure.
Il existe d'autre possibilité qui t'obligerais par exemple à agir sur l'évènement click de chaque frame et mettant ceci :

Code:

---

1 2 3 4 5 6

Private Sub Frame1_Click() Dim ctrl As Control For Each ctrl In Me.Frame1.Controls If ctrl = True Then ctrl = False Next ctrl End Sub

---

un click sur la frame et les options buttons se réinitialize. je l'ai écrit vite fait ça devrait fonctionné mais lourd puisque si tu as beaucoup de frame il faut répéter ce code donc...

Merci bien!!! C'est effectivement la solution à laquelle j'avais pensé: ajouté un bouton "sans avis" ou "aucun choix" !
Au départ je pensais qu'il y avait peut-être une propriété qui permettait de décocher en un click, mais non!!!
Aller...je m'en vais rajouter des OptionButton! lol
Bonne journée et encore merci!

Bonjour,

Tout d'abord je précise que je début sur VBA mais j'ai récupéré un code pour effacer les userform. Celui-ci ne fonctionnait pas pour les OptionButton alors je l'ai légèrement modifier. Voici les deux versions. Pour ceux que ça pourrait inspirer...

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23

'Nettoyer le formulaire SANS les OptionButtons Dim ctl As Control For Each ctl In Me.Controls If TypeName(ctl) = "TextBox" Or TypeName(ctl) = "ComboBox" Then ctl.Value = "" ElseIf TypeName(ctl) = "CheckBox" Then ctl.Value = False End If Next ctl 'Nettoyer le formulaire AVEC les OptionButtons Dim ctl As Control For Each ctl In Me.Controls If TypeName(ctl) = "TextBox" Or TypeName(ctl) = "ComboBox" Then ctl.Value = "" ElseIf TypeName(ctl) = "CheckBox" Or TypeName(ctl) = "OptionButton" Then ctl.Value = False End If Next ctl

---

Si cela peut te donner un début de solution... Tiens moi au courant:ccool: