Discussion :

[VARACH]

bonjour ,
j ai 3 textbox , et je veux faire l addition de 2

text1=val(text2)+val(text3)mais le resultat est erroné
text2= 0,7
text3=36,9 et text1 le resultat = 36 ..

merci de votre aide

[Vld44]

0 + 36 = 36, le résultat est donc bon.

[bhaal76]

séparateur décimale = "." ou "," ?

[ProgElecT]

bhaal76 doit avoir raison

une solution passe partout (pour gérer le . ou la ,)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Private Sub Form_Load()
'text2 = 0.7 et text3 = 36,9
Text1 = ConversE(Text2) + ConversE(Text3)
'Text1 = 36,9
End Sub
 
Public Function ConversE(Quoi) As Double
On Error Resume Next
Quoi = CDbl(Quoi)
If Err.Number <> 0 Then
 Err.Clear
 ConversE = Replace(CStr(Quoi), ",", ".")
 Else
 ConversE = Quoi
End If
End Function

un point ou une virgule, quelque soit le parametrage de l'ordi, sa passe

[VARACH]

merci de vos reponses ...

je ne peux pas tester ce soir , mais des soustractions sur ces textboxs me donnent de bon resultat ..

mais des demains je teste avec un . pour si ca resoud mon pb

[VARACH]

bjs
c etait bien le pb "." ","

merci de votre aide

je comprend trjs pas pourquoi les soustractions marchaient , mais bon