Calcul Décimale Text1 + Text 2Résolu

Question

Salut à tous !

Je ne comprends pas pourquoi j'ai un gros problème de calcul :
Private Sub Text1_LostFocus()Text1 = Format(Text1, "Standard")End SubPrivate Sub Text2_LostFocus()Text2 = Format(Text2, "Standard")End SubPrivate Sub Text3_LostFocus()Text3 = Format(Text3, "Standard")End SubPrivate Sub Timer1_Timer()Total = Val(Text1) + Val(Text2) + Val(Text3)Label1 = Format(Total, "Standard")Label2 = FormatNumber(Total, 2, True, True, True)Label3 = FormatCurrency(Total, 2, True, True, True)End Sub

Quelque soit les chiffres que je met je reviens toujours à un gros hic et je ne comprends pas pourquoi.
Pouvez-vous m'aider svp ?

Text1 = 10 000,00Text2 = 9 000,00Text3 = 10 000,00Me renvois 29,00

et

Text1 = 10,00Text2 = 9,00Text3 = 10,00Me renvois 29,00

Merci

----------
OS        : Windows 7 Pro 64 Bit
Platforme : Visual Basic 6.0

cs_petchy · Answer

salut
essaye sa

Total = CDbl(Text1) + CDbl(Text2) + CDbl(Text3)

NHenry · Answer

Je pense que ton problème vient de l'espace : 
"10 000,00"
essayes plutôt :
"10000,00"

Sinsitrus · Answer

Merci cs_petchy, le CDbl fonctionne parfaitement !
Mon problème est résolu et effectivement NHenry, l'espace me créait un soucis (c'est ce qui arrive lorsqu'on utilise le "Format Standard", il crée un séparateur de millier et le calcul y est impossible sauf avec le CDbl que m'a enseigné cs_petchy :))

Encore une fois merci !

Calcul Décimale Text1 + Text 2

3 réponses

Votre réponse

Discussions similaires