UserForm avec OptionButton

Bonjour,

j'ai créé un UserForm avec deux OptionButton qui permettent à l'utilisateur de dire s'il est un homme ou une femme et un bouton OK en dessous.

je n'arrive pas à écrire le code qui fait que la valeur "Homme" ou "Femme" soit copiée dans la case D7 de la feuille active UNIQUEMENT lorsque l'utilisateur clique sur le bouton OK

Pouvez-vous m'aider svp? Merci!

Bonjour,

Quelque chose comme ça devrait le faire je pense :

Code:

---

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

Dim Sexe as String   ' Sur les options on ne charge que la valeur de sexe Private Sub Bt_Opt_H_Click() Sexe = "Homme" End Sub   Private Sub Bt_Opt_F_Click() Sexe = "Femme" End Sub   ' En cliquant sur le bouton on met à jour D7 Private Sub Bt_Valider_Click() ActiveSheet.Range("D7").value = Sexe End Sub

---

Bonne journée

Merci beaucoup ca fonctionne et c'est beaucoup plus clair que tout ce que j'ai pu trouver jusqu'ici!