évenement OptionButton

bonjour
J'ai crée une UsrForm avec 3 OptionButton et 1 bouton de commande dont voici le code :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Private Sub CommandButton1_Click() Unload choix_guide End Sub Private Sub OptionButton1_Click() nom_equipement = OptionButton1.Caption End Sub Private Sub OptionButton2_Click() nom_equipement = OptionButton2.Caption End Sub Private Sub OptionButton3_Click() nom_equipement = OptionButton3.Caption End Sub

---

Cette UserForm apparait plusieurs fois dans le programme j'ai donc fait en sorte que l'UserForm se réouvre comme l'UserForm précédente.
Le problème c'est comme l'évenement des OptionButton est un clic si l'utilisateur ne modifie pas la croix (ne clique pas) car il a besoin du même équipement et qu'il clique directement sur le bouton de commande ça ne prend pas en compte son choix.

La variable nom_équipement à changer par rapport à la fois précedente.
Comment puis-je faire que à la place d'un évenement clique ça prend juste la valeur cochée??

En espérant mettre bien fait comprendre

Bonsoir,

Citation:

---

...j'ai donc fait en sorte que l'UserForm se réouvre comme l'esprécédente...

---

Comment ?
Si tu utilises "Unload choix_guide", l'Usf se vide mais si tu sors par "choix_guide.Hide", tu gardes la dernière configuration au prochain affichage.

Pour garder en mémoire l'UserForm précédente j'avais utilisé les fonctions SaveSetting et GetSetting qui fonctionne bien.
Mon problème est plutot au niveau de l'événement "click" des OptionButton.

Citation:

---

Envoyé par manouk

Le problème c'est comme l'évenement des OptionButton est un clic si l'utilisateur ne modifie pas la croix (ne clique pas) car il a besoin du même équipement et qu'il clique directement sur le bouton de commande ça ne prend pas en compte son choix.

---

Je n'ai rien compris à cette phrase, qui me semble pourtant décrire ton problème...

Je vais essayer de mieux m'expimer.
En fait j'ai une UserForm dont une optionbutton est déja cocher. Donc je veux sans avoir à recliquer sur la case déja cocher que nom_équipement prenne la valeur de l'OptionButton.

Par exemple si OptionButton 1 est coché quand l'UserForm s'ouvre. L'utilisateur est content de se choix il clique donc directement sur le bouton de commande (OK). Et la je veux que ça prenne en compte se choix (nom_equipement = nom de l'optionbutton) mais comme on clique pas sur l'Option ça ne marche pas .

Code:

---

1 2 3

Private Sub OptionButton1_Click() nom_equipement = OptionButton1.Caption End Sub

---

Dans ce cas, si tu coches ton optionbutton, il faut que tu verrouilles ta zone de saisie. ;)

Désolé j'ai du mal à saisir ce que t'endend par vérouiller la zone de saisie.
Est ce que tu peux m'expliquer à quoi ça consiste?

Bonjour,

ce ne serait pas plus simple de tester les valeurs des optionbuttons après avoir clické sur le bouton ?

Quelque chose de ce genre là :

Code:

---

1 2 3 4 5 6 7

Private Sub CommandButton1_Click() Dim opb As Control For Each opb In Me.Controls If opb.Value = True And TypeOf opb Is OptionButton Then nom_equipement = opb.Caption Next opb Unload choix_guide End Sub

---

Pas testé donc à adapter ...

Merci pour l'idée ça marche.
J'ai par contre changé le code que voici si un jour ça aide quelqu'un :

Code:

---

1 2 3 4 5 6 7 8 9 10

Private Sub CommandButton1_Click() If OptionButton1.Value = True Then nom_equipement = OptionButton1.Caption ElseIf OptionButton2.Value = True Then nom_equipement = OptionButton2.Caption ElseIf OptionButton3.Value = True Then nom_equipement = OptionButton3.Caption End If Unload choix_guide End Sub

---