Discussion :

[Fdc_53]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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,

[BENNASR]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Fdc_53]

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

[BENNASR]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Fdc_53]

Merci,

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

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

[BENNASR]

re
utiliser CDBL

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Fdc_53]

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.

[Transitoire]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Y = round(x, 2)

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

[BENNASR]

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

[Fdc_53]

Merci à vous cela fonctionne, effectivement mousedown est beaucoup mieux