Soustraire des TextBox

[Lipadec]

Bonjour le Forum

J'ai un USF où il y a 6 TextBox : Qté=TextBox1 - P.U=TextBox2 - Montant=TextBox3 - Acompte=TextBox4 - Reste=TextBox5 - Payé=TextBox6

Pour multiplier la Qté par le P.U, j'ai écrit le code suivant:

Sub multiplie()
If TextBox1 <> "" And TextBox2 <> "" Then
TextBox3 = Val(Replace(TextBox1, ",", ".")) * Val(Replace(TextBox2, ",", "."))
Else
TextBox3 = ""
End If
End Sub

Je voudrai compléter mon code de façon quand on a un acompte, le Reste = Montant - Acompte, et quand le reste est "0", dans le TextBox Payé il s'écrit "Réglé" sinon "Non Réglé"

Quelqu'un pourra-t-il m'aider

Merci

Lipadec

 

[JNP]

Re : Soustraire des TextBox

Bonjour Lipadec 🙂,
Il suffit de continuer dans la voie où tu as commencé :

Sub multiplie()
If TextBox1 <> "" And TextBox2 <> "" Then
TextBox3 = Val(Replace(TextBox1, ",", ".")) * Val(Replace(TextBox2, ",", "."))
If TextBox4 <> "" Then TextBox5 = TextBox3 - TextBox4
If TextBox5 = 0 Then TextBox6 = "Payé"
Else
TextBox3 = ""
End If
End Sub

Bonne soirée 😎

 

[Lipadec]

Re : Soustraire des TextBox

Re

Bonjour JNP, et merci pour ta réponse, mais quand j'ai fait comme tu me l'as conseillé,j'ai " Erreur de compilation-Variable non définie "

Je suis perdu, et je ne sais pas comment continuer

Alors au secours!!!

Merci Lipadec

 

[JNP]

Re : Soustraire des TextBox

Bonsoir Lipidec 🙂,
Si tu as ce message, c'est qu'il y a des variables non déclarées. Tu peux commencer par supprimer (temporairement, le temps de vérifier) la ligne Option Explicit en début de module.
Maintenant, le plus simple serait de poster un fichier avec ton USF (sans données confidentielles). Ce serait plus facile de l'analyser.
Bonne soirée 😎

 

[Lipadec]

Re : Soustraire des TextBox

Re - et Bonne année 2009

Ne pouvant pas continuer tou seul, veuillez trouver ci joint le fichier qui manque de code et dont j'espère recevoir la réponse

Pour information, Qté * P.U = Montant
Montant - Acompte = Reste
Si le reste est "0" ; le TextBox Payé s"écrit "Payé", si non "En cours"

Merci pour votre aide, et une autre fois, bonne annéee

Lipadec

 

[JNP]

Re : Soustraire des TextBox

Bonsoir Lipadec 🙂,
Vu que tu as renommé ta boite en txtPaye, c'est sûr que textbox6 ne fait pas parti des variables admissibles... Si tu remplaces textbox6 par txtpaye dans le code, ça marche...
Bonne soirée 😎