Opération avec des textbox

Bonjour,

Un petit souci que je n'arrive pas à régler.

J'ai trois textbox dans lesquelles un utilisateur peut saisir dans chacune une valeur (en €) de 0 à x

J'ai une textbox d'input avec une valeur (toujours en €) et une dernière qui doit recevoir le résultat de Textbox1- (textbox2+textbox3+textbox4) = textbox5

J'arrive à le faire sans problème si je le fais sur une seule style tbx5 ) = tbx1 tbx2 mais quand j'essaie d’enchaîner ça ne fonctionne plus.

J'ai essayé avec une condition si mais je me suis un peu perdu.

Si vous avez une idée.

Cordialement.

Bonjour

A tester

Private Sub TextBox5_Change()

If IsNumeric(TextBox1) And IsNumeric(TextBox1) And IsNumeric(TextBox3) And IsNumeric(TextBox4)And IsNumeric(TextBox5)Then

TextBox5 = TextBox1-(TextBox2 +TextBox3 +TextBox4)

End Sub

Cordialement

Merci Joco

J'ai testé mais ça ne fonctionne pas.

Je vais essayer en travaillant à partir de cela

Cordialement.

Bonjour toutes et tous,

coucou Joco et merci

j'ai placé un bouton de commande et ne rien mettre dans la textbox 5

5 textbox + 1 bouton de commande

à tester à modifier après evaluate

Private Sub CommandButton1_Click()

If TextBox1 <> "" And TextBox2 <> "" And TextBox3 <> "" And TextBox4 <> "" Then
TextBox5 = Evaluate(TextBox1 - TextBox2 + TextBox3 + TextBox4)
End If
End Sub

crdlt,

André

Bonjour à vous deux,

Ça fonctionne bien, sauf qu'il faut renseigner chaque textbox, je suis en train de regarder pour que chaque textbox indique 0 par défaut, ou alors que les conditions <> "" ne s’enchaîne pas. Dés que j'ai la solution je la oublie ici.

Cordialement

Xavier

Bonjour…

Les contrôles étant nommées T1, T2…T5, vite fait ,sans aucune indication d’erreur (à éviter) :

Private Sub CommandButton2_Click()
  On Error Resume Next
  T5 = T1 - T2 - T3 - T4
End Sub

Sinon

Private Sub CommandButton1_Click()
     For n = 1 To 4
        If Not IsNumeric(Me("T" & n)) Then Me("T" & n) = 0
    Next
    T5 = Evaluate(T1 - T2 - T3 - T4)
End Sub

Nota : ici, le 0 est pour une somme algébrique (nombres signés ou pas). Si on veut avoir les contenus par des fonctions avec des erreurs d’évaluation … ce sera une autre histoire à raconter !

Rebonjour,

Donc j'ai contourné le problème, dans le UserForm_Initialize j'ai ajouté une condition pour que la valeur par défaut soit égale à 0 et à 0€

If TextBox_1.Value = "" Then

TextBox_1 = 0
TextBox_1.Value = Format(TextBox_1.Value, "# ##0.00 €")
End If

J'ai mis cette condition pour chaque TextBox

Cordialement.