Discussion :

[kdison13]

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!

[Didier Gonard]

Bonjour,

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

cordialement,

Didier

[rvtoulon]

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 :

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

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...

[kdison13]

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!

[MaelB]

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 :

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

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