Calcul en euro à partir de textbox Fermé

Question

Bonjour,

J'ai créé un userform dans excel avec inscription des données dans un tableau. Il fonctionne, j'ai repris des éléments de programmation sur divers forums, mais il y a un petit bug.
En résumé :

Textbox 1 (saisie en euros)
Textbox 2 (=textbox1*0.03, affichage en euros)
Textbox3 (saisie en euros)
Textbox4 (=textbox2-textbox3, mais ne peut être inférieur à 0, c'est ce qui pose problème ... il faudrait un If   then  ?  et apparition d'une boîte de dialogue pour dire "montant de textbox incorrect")
Textbox5 (saisie en euros)
Textbox6 (textbox4+textbox5)

Il m'est venu une idée en tapant la situation, peut être faut-il simplement vérifier le montant introduit lors de la saisie de la textbox3 ...

pijaku · Answer

Bonjour,

Un exemple :
Private Sub TextBox1_Change()
TextBox2 = CDbl(TextBox1) * 0.003
End Sub

Private Sub TextBox3_Change()
If TextBox3 = "" Then Exit Sub
On Error Resume Next
TextBox4 = CDbl(TextBox2) - CDbl(TextBox3)
End Sub

Private Sub TextBox4_Change()
If TextBox3 > TextBox2 Then TextBox3 = "": TextBox4 = ""
End Sub 
 
Il conviendra toutefois d'ajouter tous les tests nécessaires pour éviter des plantages dus à la saisie (de lettres par exemple...).

Calcul en euro à partir de textbox

1 réponse

Discussions similaires