Valider le choix fait avec les Checkbox

[niepce26]

Bonjour,

Je souhaite quand je click sur mon bouton (CommandButton1) renvoyer deux valeurs (Textbox1 & 2) à condition que les checkbox soit coché vers la dernière cellule libre.

Mais quand je click sur mon bouton il me coche toute les checkbox...

Voici le code :

Private Sub CommandButton1_Click()

Controls("CheckBox1").Value = True
Sheets("feuil1").Range("IV1").End(xlToLeft).Offset(0, 1).Value = TextBox1
Sheets("feuil1").Range("IV1").End(xlToLeft).Offset(0, 1).Value = TextBox2

Controls("CheckBox2").Value = True
Sheets("feuil1").Range("IV2").End(xlToLeft).Offset(0, 1).Value = TextBox1
Sheets("feuil1").Range("IV2").End(xlToLeft).Offset(0, 1).Value = TextBox2

Controls("CheckBox3").Value = True
Sheets("feuil1").Range("IV3").End(xlToLeft).Offset(0, 1).Value = TextBox1
Sheets("feuil1").Range("IV3").End(xlToLeft).Offset(0, 1).Value = TextBox2

MsgBox "Panier Validé" 'on affiche que c'est validé

End

Worksheets("feuil2").Select

End Sub


Merci de votre aide...

Niepce

 

[kjin]

Re : Valider le choix fait avec les Checkbox

Bonjour,
Dans ton code, tu ne vérifies pas la valeur de tes checkbox mais tu les coches toutes !

If Controls("CheckBox1").Value = True then
Sheets("feuil1").Range("IV1").End(xlToLeft).Offset (0, 1).Value = TextBox1
Sheets("feuil1").Range("IV1").End(xlToLeft).Offset (0, 1).Value = TextBox2
End if
...

A+
kjin

 

[niepce26]

Re : Valider le choix fait avec les Checkbox

Merci Kjin si simple avec un peu de logique.. 😱

Niepce