Discussion :

[Freudsw]

Bonjour,

J'ai un groupe de case d'option qui fonctionnent ensemble (je peux cocher seulement l'une d'elles).

Mon soucis, c'est que l'utilisateur peut décider de ne rien cocher du tout. Or, si l'utilisateur a déjà coché, il ne peut plus décocher.

Ce que je veux faire, c'est pouvoir décocher la case d'option en cliquant dessus une deuxième fois.

Des idées ?

j'ai l'idée de créer une autre case d'option qui sera invisible, quand je clique une deuxième fois sur une case d'option déjà activée, elle active la case d'option invisible. A priori ça règle mon problème mais je ne sais pas comment l'affecter au clique de la souris.

Voici mon code :

Code :

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

1
2
3
Private Sub OptionButton1_DblClick()
If OptionButton1.Value = True Then OptionButton93.Value = True
End Sub

Avec ce ci, j'ai un message d'erreur de compilation.

Je vous remercie pour votre aide.

Cordialement,

Freudsw

[Invité]

Bonsoir,
Un groupe d'option, contrairement aux case à cocher, a pour objet de sélectionner une option parmi d'autre! Ajoute une option qui aura pour objet de désélectionner les autre dès l'instant ou c'est elle qui est coché!

[eriiic]

Bonjour,

recliquer dessus ne déclenche aucun événement.
Par contre avec un clic-droit sur un autre tu as Enter que tu peux exploiter :

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
Private Sub OptionButton1_Enter()
    razOpt
End Sub
 
Private Sub OptionButton2_Enter()
    razOpt
End Sub
 
Private Sub OptionButton3_Enter()
    razOpt
End Sub
 
Sub razOpt()
    Dim i As Long
    For i = 1 To 3
        Controls("OptionButton" & i).Value = False
    Next i
End Sub

eric

edit : mais ajouter une option Aucun comme proposé par dysorthographie est une bonne idée plus simple.