Calcul dans une textbox + problème de format

Bonjour,

J'ai un problème dans un calcul de textbox :
j'ai un textbox1 = Prix TTC et textbox2=prix HT

je voudrais pouvoir saisir dans l'un ou dans l'autre soit un prix TTC, soit un HT.
mon HT me donne un 83.3333333333 > je voudrais limiter à 83.33€HT.

Code:

---

1 2 3 4 5

Private Sub txt_ttcad_Change()   txt_htad.Value = Val(txt_ttcad.Value) / (1 + (20 / 100))   End Sub

---

Code:

---

1 2 3 4 5 6

Private Sub txt_htad_Change()   txt_ttcad.Value = Val(txt_htad.Value) * (1 + (20 / 100))   End Sub

---

---

Lorsque je change les formats du textbox ("###0.00 €") je découvre un nouveau problème.

nouveau problème :
> si je saisie dans le textbox TTC cela me fait le calcul suivant:
100€ TTC / 1.2 = 0.83 > 0.83*1.2 = 0.996€ au lieu de 100€ TTC et 83.33€HT
textbox TTC > textbox HT > textbox TTC

Comment éviter que ce calcul se fasse?

Merci de votre aide, :)

bonjour
et si t'ajoute cette partie de code qu'est ce que ça donne ???

Code:

---

txt_ttcad.Value = Format(txt_ttcad, "#,##0.00")

---

cela me créé le deuxième problème de calcul énoncé.

Code:

---

1 2 3 4

Private Sub TextBox1_Change() TextBox2.Value = TextBox1.Value * (1 + (20 / 100)) TextBox2.Value = Format(TextBox2, "#,##0.00") End Sub

---

supprimer ce val

Merci,

Cela ne fonctionne pas. je mets en copie un exemple.

je n'agis que sur le TTC ou le HT et sur le %

re
utiliser CDBL

Code:

---

1 2 3 4 5 6 7

Private Sub txt_ttcad_Change()   If txt_ttcad.Value <> "" Then txt_htad.Value = CDbl(txt_ttcad.Value) / (1 + (20 / 100)) txt_htad.Value = Format(txt_htad, "#,##0.0")   End Sub

---

Code:

---

1 2 3 4 5 6 7

Private Sub txt_htad_Change()   If txt_htad.Value <> "" Then txt_ttcad.Value = CDbl(txt_htad.Value) * (1 + (20 / 100)) txt_ttcad.Value = Format(txt_ttcad, "#,##0.0")   End Sub

---

et au lieu d'utiliser un bouton de commande vous pouvez vider les case avec l’événement mousedown

Merci pour le retour

Cela ne fonctionne pas, j'arrive à mettre un chiffre de 0 à 9 mais c'est tout.

Je ne connais pas mousedown, je vais regarder ce que cela me permettrait.

bonsoir,
admettons que vous ayez la valeur 83,33333333 dans une variable x, si vous écrivez:

Code:

---

Y = round(x, 2)

---

vous verrez que y contient maintenant un arrondi comptable soit 83,33.
Cordialement 8-)

bonjour à toutes et à tous
avec ROUND recommandé par Transitoire à qui je passe un bonjour , votre fichier avec l’événement mousedown
Bonne continuation

Merci à vous cela fonctionne, effectivement mousedown est beaucoup mieux