afficher résultat dans une TextBox

Staple1600

XLDnaute Barbatruc

• 1 Janvier 2014

• #2

Re : afficher résultat dans une TextBox

Bonsoir à tous

Essaie ceci

Code:

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

 

Vote positif 0 Vote négatif

M

mordious

XLDnaute Occasionnel

• 1 Janvier 2014

• #3

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

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 1 Janvier 2014

• #4

Re : afficher résultat dans une TextBox

`Re

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

 

Vote positif 0 Vote négatif

M

mordious

XLDnaute Occasionnel

• 1 Janvier 2014

• #5

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

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 1 Janvier 2014

• #6

Re : afficher résultat dans une TextBox

Re

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

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

M

mordious

XLDnaute Occasionnel

• 1 Janvier 2014

• #7

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

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 1 Janvier 2014

• #8

Re : afficher résultat dans une TextBox

Re

Une possibilité ci-dessous

Code:

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

 

Vote positif 0 Vote négatif

M

mordious

XLDnaute Occasionnel

• 1 Janvier 2014

• #9

Re : afficher résultat dans une TextBox

impeccable , super

merci

bonne soirée

 

Vote positif 0 Vote négatif

M

mordious

XLDnaute Occasionnel

• 8 Janvier 2014

• #10

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

 

Pièces jointes

• Classeur2.xls

  42 KB · Affichages: 29
• Classeur2.xls

  42 KB · Affichages: 30
• Classeur2.xls

  42 KB · Affichages: 34

Vote positif 0 Vote négatif