Addition des chiffres après la virgule

Bonjour,

peut-etre un probleme de definition de variable.

Bonjour l'Ami

C'est toujours avec un plaisir que je reçois vos remarques et vos suggestion l'Ami.
Merci toujours.

A propos de la définition de mes variables, c'est comme suite :

Dim A as single

A=Val(TZone1) + Val(TZone2)

TSommeZone= A

TSomme = Format( TSomme, " #,##0.00")

Avec ce que j'ai écris, le code ne reconnait pas les chiffres après la virgule. Ildonne seulement le total des chiffres réel ( ceux placés devant la virgule )

A plus

Bonjour,

C'est un probleme ce conversion: attention le separateur decimal saisi dans la textbox doit etre le meme que celui defini dans le panneau de config (. ou , suivant) sinon plantage.

Dim A As Single

A = CSng(TZone1) + CSng(TZone2)

TSommeZone = A

TSomme = Format(TSomme, " #,##0.00")

Bonjour l'Ami

Grâce à votre suggestion, le résultat recherché est obtenu.

Merci avec mes sincères respects