Discussion :

[tibs1502]

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 :

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
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

[Daniel.C]

Bonjour,

Code :

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

TS.Text = Replace(TS.Text, ".", ",")

[tibs1502]

Impeccable,

Merci beaucoup

Cordialement