Discussion :

[fanfan89]

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!

[OokieDookie91]

Bonjour,

Quelque chose comme ça devrait le faire je pense :

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

[fanfan89]

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