Message d'alerte sous condition HELP(RESOLUT)

chaelie2015 · 8 Juillet 2015

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

Pierrot93 · 8 Juillet 2015

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
@+

chaelie2015 · 8 Juillet 2015

Re : Message d'alerte sous condition HELP

bONJOUR pIERROT
Merci pour la réponse, il manque si la somme des texbox=100 donc affecter ces valeurs dans les cellules qui les correspondante
Salutations

Pierrot93 · 8 Juillet 2015

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

chaelie2015 · 8 Juillet 2015

Re : Message d'alerte sous condition HELP

Re
d'accord mais je souhaite si la sommes est 100 affecter ces derniers a leurs cellules
salutations

Pierrot93 · 8 Juillet 2015

Re : Message d'alerte sous condition HELP

Re,

d'accord mais je souhaite si la sommes est 100 affecter ces derniers a leurs cellules

bah si différent de 100, sortira de la procédure si égale à 100 continuera et affectera donc valeur textbox aux cellules.... As tu testé au moins ??

chaelie2015 · 8 Juillet 2015

Re : Message d'alerte sous condition HELP

Pierrot93 à dit:
Re,

bah si différent de 100, sortira de la procédure si égale à 100 continuera et affectera donc valeur textbox aux cellules.... As tu testé au moins ??

Re
ci joint le fichier test
salutations

Pierrot93 · 8 Juillet 2015

Re : Message d'alerte sous condition HELP

Re,

bah fonctionne chez moi.... si au moins 1 textbox est vide et somme des 4 = 100... relis se que tu indiquais post 1...

Pierrot93 · 8 Juillet 2015

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 · 8 Juillet 2015

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

Pierrot93 · 8 Juillet 2015

Re : Message d'alerte sous condition HELP

Re,

As tu vu et testé la nouvelle proposition du post #9 ?

chaelie2015 · 8 Juillet 2015

Re : Message d'alerte sous condition HELP

Re
tellement tu es rapide; je n'ai pas vu ta réponse du post #9
Merci pour la réponse c'est exactement ce que je cherchais, Problème est résolut
Salutations

Message d'alerte sous condition HELP(RESOLUT)

chaelie2015

XLDnaute Accro

Pierrot93

XLDnaute Barbatruc

chaelie2015

XLDnaute Accro

Pierrot93

XLDnaute Barbatruc

chaelie2015

XLDnaute Accro

Pierrot93

XLDnaute Barbatruc

chaelie2015

XLDnaute Accro

Pièces jointes

Pierrot93

XLDnaute Barbatruc

Pierrot93

XLDnaute Barbatruc

chaelie2015

XLDnaute Accro

Pierrot93

XLDnaute Barbatruc

chaelie2015

XLDnaute Accro

Discussions similaires

Message d'alerte sous condition HELP(RESOLUT)

XLDnaute Accro

XLDnaute Barbatruc

XLDnaute Accro

XLDnaute Barbatruc

XLDnaute Accro

XLDnaute Barbatruc

XLDnaute Accro

Pièces jointes

XLDnaute Barbatruc

XLDnaute Barbatruc

XLDnaute Accro

XLDnaute Barbatruc

XLDnaute Accro

Discussions similaires

Privacy & Transparency

Privacy & Transparency