Message d'alerte sous condition HELP(RESOLUT)

chaelie2015

XLDnaute Accro
Bonjour Forum
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
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
 
Dernière édition:

Pierrot93

XLDnaute Barbatruc
Re : Message d'alerte sous condition HELP

Bonjour,

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

peut être ceci, enfin si j'ai bien compris, pas sur...

Code:
If (TextBox1 <> "" And TextBox2 <> "" And TextBox3 <> "" And TextBox4 <> "") _
    Or (Val(Replace(TextBox1, ",", ".")) + Val(Replace(TextBox2, ",", ".")) + _
    Val(Replace(TextBox3, ",", ".")) + Val(Replace(TextBox4, ",", ".")) <> 100) Then
        MsgBox "Attention, la pondération n'est pas correcte."
        Exit Sub
End If

bon après midi
@+
 

Pierrot93

XLDnaute Barbatruc
Re : Message d'alerte sous condition HELP

Re,

bah tu avais déjà ce code :
Code:
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
 

Pierrot93

XLDnaute Barbatruc
Re : Message d'alerte sous condition HELP

Re,

si tu voulais dire qu'elles soient toutes renseignées + total = 100
Code:
Private Sub CommandButton1_Click() 'valider
If (TextBox1 = "" Or TextBox2 = "" Or TextBox3 = "" Or TextBox4 = "") _
    Or (Val(Replace(TextBox1, ",", ".")) + Val(Replace(TextBox2, ",", ".")) + _
    Val(Replace(TextBox3, ",", ".")) + Val(Replace(TextBox4, ",", ".")) <> 100) Then
        MsgBox "Attention, la pondération n'est pas correcte."
        Exit Sub
End If
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
 

chaelie2015

XLDnaute Accro
Re : Message d'alerte sous condition HELP

Re,
Tu as raison, j’ai mal posé mon souci je suis désolé, en réalité si j’ai remplié toutes les textboxs et la somme de ces derniers est différente de 100 Afficher un message sinon si toutes les textbox rempliées et leur somme est 100 alors affecter les valeurs de ces textbox a leurs cellule
Merci de m’avoir corriger l’erreur
 

Discussions similaires