PB avec \"case à cocher\"

dg62

XLDnaute Barbatruc

• 22 Février 2006

• #2

ReB avec "case à cocher"

Bonsoir Schum

Code:

Private Sub CommandButton2_Click()
If OptionButton3.Value = True Then
    Worksheets(2).Range('D1') = UserForm1.TextBox1 & ' ' & UserForm1.TextBox2 & [C1]
Else
    Worksheets(3).Range('D1') = UserForm1.TextBox1 & ' ' & UserForm1.TextBox2 & [C1]
End If
End Sub

Une remarque, dans ton userform tu utilises des ChechBox et non des OptionButtons.

 

Vote positif 0 Vote négatif

S

schum

XLDnaute Nouveau

• 23 Février 2006

• #3

ReB avec "case à cocher"

Salut le forum,
salut dg62,

Merci pour ta reponse ca marche nickel, j'ai preferé utiliser les CheckBox car j'ai rajouté deux conditions en plus. Qu'elles sont les differences entre les optionbuttons et les checkbox? Est ce adapté à mon cas?

 

Vote positif 0 Vote négatif

dg62

XLDnaute Barbatruc

• 23 Février 2006

• #4

ReB avec "case à cocher"

Bonjour Schum


Les checkbox permettent plusieurs options simultanées tandis que les OptionsButtons ne permettent qu'un seul choix. Il peut y avoir plusieurs groupes d'optionButtons.

 

Vote positif 0 Vote négatif