Remplacer un point par une virgule dans Textbox
Bonjour,
J'ai fais ce petit bout de code simple mais si jamais je rentre un nombre sous un format avec un point, j'ai une erreur d'incompatibilité.
J'ai essayé avec la fonction Replace mais je n'y arrive pas. (Surement une erreur de syntaxe). Comme je suis relativement nouveau je sollicite donc votre aide
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
| Private Sub BTN_Resultat_Click()
Dim SommeTS_Inc As Double
Dim SommeTI_Inc As Double
Dim DifTS_Inc As Double
Dim DifTI_Inc As Double
Dim ValMesure As Double
'Range("A2").Value = Replace(Range("A2").Value, ".", ",") ne convertie pas
Range("A2") = CDbl(TS.Value)
Range("B2") = CDbl(TI.Value)
Range("C2") = CDbl(Incertitude.Value)
Range("D2") = CDbl(Mesure.Value)
'ValMesure = Replace(ValMesure, ".", ",")
ValMesure = Mesure.Value
Range("AA15").Formula = Range("A2") + Range("C2")
SommeTS_Inc = Range("AA15")
Range("AA16").Formula = Range("B2") + Range("C2")
SommeTI_Inc = Range("AA16")
'...
End Sub |
Cordialement
