PB d'arrondi en VBA

[GGPS58]

Bonjour,

J'ai une série de textbox qui sont le résultat d'un calcul (fait avec CDbl et j'ai mis un format "#0.00").
JE veux ensuite additionner toutes ces textbox (je le fait avec Val, parce que Cdbl ne fonctionne pas (il génére une erreur 13)).
Mais le résultat est érroné (si j'ai 14,21 + 27,51 il affiche 41,00. C'est à dire qu'il ne tiens pas compte des décimales pour le calcul)
Quelqu'un aurait-il une astuce ???

D'avance merci de votre aide

GGPS58

 

[pierrejean]

Re : PB d'arrondi en VBA

bonjour GGPS58

est-ce que tu fait bien =val(textbox1)+val (textbox2) ..etc ??

 

[porcinet82]

Re : PB d'arrondi en VBA

Salut,

En plus de la demande de PierreJean que je salue au passage, je te propose le lien suivant dans lequel nous avons participé tout les deux et ou tu trouveras peut etre une solution.

@+

 

[GGPS58]

Re : PB d'arrondi en VBA

Bonjour à vous deux, je vous joins mon fichier (en cours de mise au point)
Selectionner quelques articles, leur quantités et Vous verrez en appuyant sur la touche calculer du userform)
Vous reconnaitrez sans doute de votre oeuvre, j'ai déjà consulté le forum à maintes reprises.

Merci

 

[pierrejean]

Re : PB d'arrondi en VBA

bonjour GGPS58

pour ma part je ne peux guère debugger il me manque une reference (tablet PC)

si elle n'est pas indispensable remets le fichier sans cette ref

 

[PascalXLD]

Re : PB d'arrondi en VBA

Bonjour

Tu dois utiliser CDbl et non Val car tu as de svirgules dans tes textbox et non des points

Par contre quand tu fais ton test sur tes textbox vides tu compares avec "" alors que tu as un espace dans tes textbox don il faut comparer avec " "

tes dernières lignes de ton bouton calculer deviennent donc

 For I = 86 To 101 'boucle sur les 16 TextBoxes
'si la TextBox est vide alors elle prend la valeur 0 (donc ne génère pas d'erreur à la convertion)
If Me.Controls("TextBox" & I).Value = " " Then Me.Controls("TextBox" & I).Value = 0
'définit la variable MyThreeTextBoxSumm
Test = Test + CDbl(Me.Controls("TextBox" & I).Value)
Next 'prochaine TextBox
TextBox68 = Format(Test * 1, "#0.00")