Probleme de calcul vba

[Manu62]

Bjr à tous,

J'ai un petit souci de calcul dans mon code

bizarre ???

Dès je je passe le 1000, problème de format...

Pouvez vous m'aider

Manu

 

[13GIBE59]

Re : Probleme de calcul vba

Bonjour manu.

J'ai testé ton fichier avec 100 et 10000, pas de souci particulier...
Quel est ton problème de format ?

 

[Manu62]

Re : Probleme de calcul vba

bjr,

désolé, ex. si je mets

textbox 2 = 100
textbox 3 = 19,6
textbox 4 = 119,60 ici ok

si jem mets


textbox 2 = 1000
textbox 3 = 196
textbox 4 = 11960 ici ok

J'aurais du spécifier l'histoire de ma virgule

manu

 

[13GIBE59]

Re : Probleme de calcul vba

J'aurais du spécifier l'histoire de ma virgule

Toujours pas compris...

 

[Manu62]

Re : Probleme de calcul vba

Salut,

si en ht je saisi 100, les cases jaunes en dessous calcul case 1 = 19.6 case 2 = 119.60
là c'est ok
si je mets 1050, les cases jaunes en dessous calcul case 1 = 205.80 et case 2 1255,8

par contre

si je mets 1000, les cases jaunes en dessous calcul case 1 =196 et case 2 1196
je n'ai plus la virgule ???

Merci

Manu

 

[Paritec]

Re : Probleme de calcul vba

Re Bonsoir Jean Bernard bonsoir Manu,
je pense que ce qu'il appelle un problème c'est qu'il a plus de deux décimales lors de certains calcul
à confirmer si c'est bien cela
a+
papou 🙂

 

[Manu62]

Re : Probleme de calcul vba

Re Bonsoir Jean Bernard bonsoir Manu,
je pense que ce qu'il appelle un problème c'est qu'il a plus de deux décimales lors de certains calcul
à confirmer si c'est bien cela
a+
papou 🙂

Bjr Papou, Jb,

Oui c'est bizarre, c'est avec tous mes chiffres rond, 1000, 1500, 2000...

Merci de vos conseils

Manu

 

[Paritec]

Re : Probleme de calcul vba

Re jean Bernard Manu,
non c'est normal il te donne des chiffres ronds
voilà j'ai modifié les deux du bas regardes
a+
Papou 🙂

 

[13GIBE59]

Re : Probleme de calcul vba

Dans ce cas, puisque c'est du monétaire :

Private Sub TextBox2_Change()
On Error Resume Next
Var = Format(Val(TextBox2) * 19.6 / 100, "#,##0.00 €")
TextBox3.Value = Var
End Sub
Private Sub TextBox3_Change()
On Error Resume Next
Var = Format(Val(TextBox2) * 1.196, "#,##0.00 €")
TextBox4.Value = Var
End Sub

Oups ! Désolé paritec pour la collision.

 

[Manu62]

Re : Probleme de calcul vba

Papou, JB,

Merci à vous deux.

Mon problème est résolu.

Merci

Manu

 

[kjin]

Re : Probleme de calcul vba

Bonjour,

Private Sub TextBox2_Change()
TextBox3 = ""
TextBox4 = ""
If TextBox2 = "" Then Exit Sub
TextBox3 = CDbl(TextBox2) * 0.196
TextBox4 = CDbl(TextBox2) + CDbl(TextBox3)
 
End Sub

Edit : si tu veux limiter à 2 décimales

Private Sub TextBox2_Change()
TextBox3 = ""
TextBox4 = ""
If TextBox2 = "" Then Exit Sub
TextBox3 = Format(CDbl(TextBox2) * 0.196, "0.00")
TextBox4 = Format(CDbl(TextBox2) + CDbl(TextBox3), "0.00")
 
End Sub

Supprime le reste
A+
kjin

 

[Manu62]

Re : Probleme de calcul vba

Bonjour,

J'ai beau tout faire, j'y arrive pas..

zut zut et re zut

Ci joint extrait de mon fichier.

J'ai supprimer tous les différents controle et autre.

Dans mon fichier, j'essai tant bien que mal, si :

je mets en quantité 1, et en PU 100,50.
Mon total ht en bas droite me renvoi la valeur de 100,50. j'ai toujours 100.

Ensuite les calculs de tva et ttc devront aller sans doute.

Merci en tout cas de votre aide qui sera précieuse dans mon projet et les prochains.

Bien cordialement

Manu

 

[Paritec]

Re : Probleme de calcul vba

Re Manu Kjin JB le forum
voilà ton fichier en retour
vas-tu arriver a l'ouvrir? (est-ce que je me moque pas un peu??)
a+
papou 🙂

 

[Manu62]

Re : Probleme de calcul vba

salut paritec

je regarde demain.

merci de ton aide

A++

Manu

 

[kjin]

Re : Probleme de calcul vba

Bonsoir,
Une autre mouture
A+
kjin