chaelie2015
XLDnaute Accro
Bonjour Forum
je souhaite arrêter l'affectation des textbox aux cellules et afficher un message si toutes les TextBox sont non vide et la somme de ces dernier diff de 100
Merci pour votre aide
Salutations
Code:
Private Sub CommandButton1_Click() 'valider
If TextBox1.Value <> "" And TextBox2.Value <> "" And TextBox3.Value <> "" And TextBox4.Value <> "" And TextBox1.Value + TextBox2.Value + TextBox3.Value + TextBox4.Value <> 100 Then MsgBox "Attention, la pondération n'est pas correcte."
Exit Sub
Range("Y1") = TextBox1.Value 'Ecrit enY1 la valeur de Textbox1
Range("Y2") = TextBox2.Value 'Ecrit enY2 la valeur de Textbox2
Range("Y3") = TextBox3.Value 'Ecrit enY3 la valeur de Textbox3
Range("Y4") = TextBox4.Value 'Ecrit enY4 la valeur de Textbox4
Unload Me 'Vide et ferme le UserForm
End Sub
Merci pour votre aide
Salutations
Dernière édition: