afficher résultat dans une TextBox

[mordious]

Bonjour

je souhaite afficher le résultat d'une opération
"addition/soustraction de valeurs TextBox"

affiche dans "Texbox5"le résultat de
Dim sommeTB As Double, valTB As Double, result As Double

Private Sub TextBox5_Change()
sommeTB = Val(TextBox2) + Val(TextBox3) + Val(TextBox4)
valTB = Val(TextBox1)
result = valTB - sommeTB
End Sub

ci-joint fichier

bonne soirée

 

[Staple1600]

Re : afficher résultat dans une TextBox

Bonsoir à tous

Essaie ceci

Private Sub TextBox4_Change()
sommeTB = Val(TextBox2) + Val(TextBox3) + Val(TextBox4)
valTB = Val(TextBox1)
result = valTB - sommeTB
TextBox5 = result
End Sub

 

[mordious]

Re : afficher résultat dans une TextBox

bonsoir
ne marche pas

en gros je souhaite que lorsque les "textbox 1,2,3,4" sont saisies
le résultat affiche instantanément dans la "textbox5"
pour poursuivre la saisie sur d'autres "textbox"

bonnes soirée

 

[Staple1600]

Re : afficher résultat dans une TextBox

`Re

Si,si ca marche.
Sinon je n'aurai pas posté ma proposition ...

 

[mordious]

Re : afficher résultat dans une TextBox

désolé erreur lors de la copie de la SUB

mais pourquoi la "sub" sur textbox4 et non pas sur textbox5 ?

bonne soirée

 

[Staple1600]

Re : afficher résultat dans une TextBox

Re

mais pourquoi la "sub" sur textbox4 et non pas sur textbox5 ?

Parce que c'est la dernière des TextBox à devoir être remplie pour les calculs se fassent.

 

[mordious]

Re : afficher résultat dans une TextBox

ok, merci
mais il y a t'il une solution pour faire:

le total des TextBox 2 ,3 ,4 (meme si une ou toute les textbox sont vides) moins TextBox1
et d'afficher le résultal dans TextBox5

cordialement

 

[Staple1600]

Re : afficher résultat dans une TextBox

Re

Une possibilité ci-dessous

Dim sommeTB As Double, valTB As Double, result As Double

Private Sub TextBox1_Change()
If TextBox1 > 0 Then
calcul
End If
End Sub

Private Sub TextBox2_Change()
calcul
End Sub

Private Sub TextBox3_Change()
calcul
End Sub

Private Sub TextBox4_Change()
calcul
End Sub

Private Sub calcul()
sommeTB = Val(TextBox2) + Val(TextBox3) + Val(TextBox4)
valTB = Val(TextBox1)
result = valTB - sommeTB
TextBox5 = result
End Sub

 

[mordious]

Re : afficher résultat dans une TextBox

impeccable , super

merci

bonne soirée

 

[mordious]

Re : afficher résultat dans une TextBox

bonsoir
je souhaite réduire la taille du code
existe 'il une fonction qui puisse regrouper toute les SUB
voir fichier

Bonne soirée