calcul dans Tbx ce fait mal

[MuscatMimi]

Bonjour a tout le forum

Dans la procédure ci-dessous, le calcul ce fait bien, mais le résultat n'est pas bon :

Private Sub Cal()
TextBox4 = Val(TextBox1.Value) * Val(TextBox2.Value) / Val(TextBox3.Value) 'ici erreur de calcul
TextBox4 = Format(TextBox4, "# ##0.00 €")
TextBox7 = CDbl(TextBox4) - CDbl(TextBox1)
TextBox7 = Format(TextBox7, "# ##0.00 €")

End Sub

dans la Tbx4 il est de 717.20€ alors qu'il devrait être de 716.57€
dans la Tbx7 est de 27.02€ alors qu'il devrait être de 26.57€

je n'arrive pas a trouver l'erreur

Merci a tous par avance

Ci_joint Photo Usf

Cordialement

 

[pierrejean]

Re : calcul dans Tbx ce fait mal

Bonjour Vaucluse immobilier

Pas tres facile de travailler sur Photo !!

Verifie cependant qu'en Tbx2 , le nombre soit bien ecrit avec virgule (et non point)

 

[Cousinhub]

Re : calcul dans Tbx ce fait mal

Bonsoir,

Hi PierreJean 🙂

Au vu de son code, il vaudrait mieux qu'il mette des points, la fonction "Val" ne reconnaissant que le point " . " comme séparateur décimal.

S'il veut utiliser des virgules, je lui conseillerai d'utiliser la fonction "CDbl".

Bonne soirée

 

[Pierrot93]

Re : calcul dans Tbx ce fait mal

Bonjour Vaucluse, PierreJean🙂

perso, je formaterais la textbox après avoir effectué tous les calculs... mais comme le dit PierreJean, pas facile de travailler sur une photo...

bon après midi
@+

Edition : boujour bhbh🙂

 

[Pierrot93]

Re : calcul dans Tbx ce fait mal

Re,

A noter également, peut être positionner des parenthèses...

TextBox4 = [B][COLOR="Red"]([/COLOR][/B]Val(TextBox1.Value) * Val(TextBox2.Value)[COLOR="red"][B])[/B][/COLOR] / Val(TextBox3.Value)

 

[MuscatMimi]

Re : calcul dans Tbx ce fait mal

Bonjour bhbh et pierre-jean, et pierrot


Bon avec votre aide j'ai réussi
voici le code qui fonctionne,j'avais pas pensé aux "," et au "."
J'ai donc pris l'option "," idem dans ma Bdd et dans ma saisie dans TextBox2
"Nouvel Indice"
et ça fonctione nickel, calcul bon

Private Sub Cal()
TextBox4 = CDbl(TextBox1.Value) * CDbl(TextBox2.Value) / CDbl(TextBox3.Value) 
TextBox4 = Format(TextBox4, "# ##0.00 €")
TextBox7 = CDbl(TextBox4) - CDbl(TextBox1)
TextBox7 = Format(TextBox7, "# ##0.00 €")

End Sub

Merci a tous
bon aprés-midi(surtout a Nouméa)veinard

a++++++++++++

 

[pierrejean]

Re : calcul dans Tbx ce fait mal

Re

@ bhbh

Heureux de constater que tu es toujours parmi nous
Les brebis ' pas nettes ' ne sont tout de même pas la majorité