Re : GMTexteValeur problème avec les décimales
RE
Et testant ceci
sepDéci = ","
ça donne quoi ?
Merci pour ta réponse ultra rapide, mais non, j'ai essayé avant de vous consulter, ça ne marche.
Ca m'a l'air plus ardu que ça...
Le passage important dans le code est peut-être celui-là:
sepDéci = Application.International(xlDecimalSeparator)
If Fix(CDbl(valConv)) = CDbl(valConv) Then
valEnt = LTrim(valConv)
valDéci = "0"
Else
valEnt = LTrim(Left(valConv, Application.Search(sepDéci, valConv) - 1))
valDéci = Right(valConv, Len(valConv) - _
Application.Search(sepDéci, valConv))
If Len(valDéci) < textMon.nbreDéci Then
For i = 1 To textMon.nbreDéci - Len(valDéci)
valDéci = valDéci & "0"
Next
End If
End If
Mais je ne suis pas assez fortiche pour solutionner ce problème...