Bouton d'option

Il faut placer avant tout chose un cadre (Frame) sur l'userform
Propriété => Caption : Fille ou garçon



Ensuite place sur ce cadre 2 boutons d'option
Nomme le 1er : fille
Le 2ème : garçon
Utilise comme d'habitude les propriétés "BackColor, ForeColor, Font etc..." pour la mise en forme.

 Le code

Double-clique sur le premier bouton(Fille) et tape ce code:

Private Sub OptionButton1_Click()
If Controls("OptionButton1").Value = True Then
[C4] = "Vous êtes une " & Controls("OptionButton1").Caption
End If
End Sub

Ce qui écrira dans la cellule C4 "Vous êtes une fille"
lorsque ce bouton sera coché.

Double-clique sur le deuxième bouton(Garçon) et tape ce code:

Private Sub OptionButton2_Click()
If Controls("OptionButton2").Value = True Then
[C4] = "Vous êtes un " & Controls("OptionButton2").Caption
End If
End Sub

Ce qui écrira dans la cellule C4 "Vous êtes un garçon" lorsque ce bouton sera coché.

usf5.zip   10 ko  Télécharge l'exemple