Discussion :

[pilounet54]

bonjour il faut que je remplace les virgules par un point avec ceci

Code :

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

Worksheets("Cotisations").Range("I3").FormulaLocal = "=SOMME(H3*90)/100"

es que l'on peu lui appliquer le format ?

Code :

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

, "# ##0.00")

[jfontaine]

Bonjour,

Une solution radicale pour régler les problèmes de symboles décimales est de forcer le passage au point à l'ouverture du classeur

Code :

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

1
2
3
Private Sub Workbook_Open()
Application.DecimalSeparator = "."
End Sub

[pilounet54]

cela me fait absolument rien!

[kiki29]

Salut, qqch dans le genre

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
Option Explicit
 
Private Sub Workbook_Open()
    With Application
        .DecimalSeparator = "."
        .UseSystemSeparators = False
    End With
End Sub
 
Private Sub workbook_BeforeClose(Cancel As Boolean)
    With Application
        .DecimalSeparator = ","
        .UseSystemSeparators = True
    End With
End Sub

[arnaud.123]

Bonjour,

Si tu as une version 2000, le DecimalSeparator n'est pas reconnu, tu peux tester ce code (Bien entendu ca mange des cycles).
Si quelqu'un a une astuce sous 200 pour détecter plus facilement avec quel séparateur décimal est l'environnement, je prends.

PS : je ne suis pas sûr d'avoir bien compris ton problème.

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
Option Explicit
 
Sub Test()
    Static v
    v = ConvertirSelonSeparateurDec("12.25")
    v = ConvertirSelonSeparateurDec("1,4587")
End Sub
 
Function ConvertirSelonSeparateurDec(v)
    Static xx
    xx = 1 / 2
    xx = CStr(xx)
    If Mid(xx, 2, 1) = "," Then
        v = Replace(v, ".", ",")
    Else
        v = Replace(v, ",", ".")
    End If   
    ConvertirSelonSeparateurDec = v
End Function

[patricktoulon]

bonjour pilounet et at tous

tu a tes données entre guillemet alors traite les comme des valeurs (string format texte)

Code :

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

1
2
3
4
5
6
Sub Test()
 dim v1 as string,v2 as string   
v1 =replace("12.25",",",".")
    v2 = replace("1,4587",",",".")
msgbox v1 & chr(13) & v2
End Sub

au plaisir