Discussion :

[bipemn]

Bonjour à tous,
Quelqu'un pourra t-il m'aider.
Dans un UserForm, J'ai un groupement dans un Frame de trois boutons d'option. L'un est coché par défaut. J'ai créé un bouton RAZ pour enlever la valeur True de l'un pour le mettre à l'autre (pour deux boutons d'option seulement).
Voici le code :

Code :

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

1
2
3
4
Private Sub RAZ_Click()
     OptionButton1.Value = False
     OptionButton2.Value = True
    End Sub

Mais comment faire pour maintenir la nouvelle valeur True à l'autre bouton d'option, ce qui éviterait à chaque fois de cliquer sur ce bouton pour lui faire prendre la valeur TRUE ?
Merci pour vos compétences et votre disponibilité.

[Thautheme]

Bonsoir Bipemn, bonsoir le forum,

Je n'ai pas compris ce que tu voulais faire. Si tu veux qu'au départ aucune option ne soit cochée, il te faut attribuer à la propriété [Value] de l'OptionButton1 la valeur False.
• Si tu veux réinitialiser comme dans ton exemple en redonnant la valeur True à l'OptionButton1 une seule ligne suffit :

Code :

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

1
2
3
Private Sub RAZ_Click()
OptionButton2.Value = True
End Sub

• si tu veux réinitialiser avec aucune option cochée:

Code :

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

1
2
3
4
5
Private Sub RAZ_Click()
OptionButton1.Value = false
OptionButton2.Value = false
OptionButton3.Value = false
End Sub

• si tu veux pouvoir attribuer la valeur True à deux boutons d'option il te faut différencier leur groupe avec la propriété [GroupName]. Mais dans ce cas des cases à cocher seraient peut-être mieux adaptées

[OBO29]

Bonjour,

Tu peux utiliser une cellule inutilisée pour mémoriser la dernière valeur utilisée (sachant que bouton1 = pas bouton 2).

[bipemn]

En fait, j'ai donné la valeur True par défaut à l'optionButton1 (P). Mais lorsque je vais passer à l'OptionButton2(R) je veux qu'il reste par défaut, donc sans avoir à cliquer dessus à chaque fois.

[clementmarcotte]

Je fais une grève de réponse.

UserForm_initialize

Ou dans l'aide de VBA:

SaveSettings et getsettings

open "conserve.txt" for output as 1 et open "conserve.txt" for input as 1

Ou dans l'Api Windows, les fichiers .ini

Pour comprendre, voir là:

http://www.developpez.net/forums/d84...s-discussions/

[NVCfrm]

Bonjour,
Petite orientation à bipemn.
Si je comprends ce que tu veux, il te faut faire un groupe séparé pour chaque option, ce qui n'est pas un choix pertinent en utilisant que deux OptionButton qui s'entendent comme une option dans un groupe d'options, des CheckBox qui sont des choix à cocher seraient mieux.

[bipemn]

Ok pour le code :
J'avais trouvé :

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
24
25
26
27
28
Private Sub RAZ_Click()
 Range("R2") = ""
 End Sub
 
 
Private Sub UserForm_Initialize()
 If Range("R2") = "oui" Then
        OptionButton1.Value = True
    End If
 
    If Range("R2") = "non" Then
        OptionButton2.Value = True
    End If
End Sub
Sub OptionButton1_Click() 'N°1
   If OptionButton1.Value = True Then 'Si coché ...
       Sheets("Feuille de présence").Range("R2") = "oui"
    Else 'Si non coché ...
       Sheets("Feuille de présence").Range("R2") = "non"
    End If
End Sub
Sub OptionButton2_Click() 'N°2
   If OptionButton2.Value = False Then 'Si coché ...
       Sheets("Feuille de présence").Range("R2") = "oui"
    Else 'Si non coché ...
       Sheets("Feuille de présence").Range("R2") = "non"
    End If
End Sub

Mais la solution d'un VBAiste ! est parfaite ;

Code :

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

1
2
3
Private Sub UserForm_Initialize()
    Me.Controls("OptionButton" & Range("R1").Value) = True
End Sub

Merci encore à tous.

[NVCfrm]

Salut,

Ok pour le code :
...

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
 
Sub OptionButton1_Click() 'N°1
   If OptionButton1.Value = True Then 'Si coché ...
       Sheets("Feuille de présence").Range("R2") = "oui"
    Else 'Si non coché ...
       Sheets("Feuille de présence").Range("R2") = "non"
    End If
End Sub
 
Sub OptionButton2_Click() 'N°2
   If OptionButton2.Value = False Then 'Si coché ...
       Sheets("Feuille de présence").Range("R2") = "oui"
    Else 'Si non coché ...
       Sheets("Feuille de présence").Range("R2") = "non"
    End If
End Sub

...

Pfff... Les signalisations semblent inutiles avec certains chauff...
Je ne peux m'empêcher de me demander pourquoi une telle obstination à la surcharge ?
Un seul CheckBox à la propriété ControlSource liée à Range("R2") suffit à t'épargner les 2 codes OptionButtonX_Click() et un contrôle de moins sur ta boîte de dialogue ...