Transformer . en , par une macro

[catschuster]

Bonjour,

Je reçois des données d'une base spécfique anglaise. Du coup, les "," sont remplacées par des "." et inversement. Je dois réaliser des calculs qui sont du même coup faux (la "," étant remplacée par ".", il y a un message d'erreur).

J'ai bien tenté le "Remplacer par" mais je dois faire ça dans une dizaine de fichiers excel et ça me fait perdre un temps fou. De plus, je ne peux pas toucher à la base de données d'origine.

J'avais pensé faire une macro pour transformer les "." en "," et inversement mais mes connaissances en VB sont nulles.

Si quelqu'un pouvait m'aider ça serait super.

Merci d'avance.

 

[JHA]

Re : Transformer . en , par une macro

Bonjour Catshuster, le forum,

As tu essayé dans outils/options/internationnal
change "," par un point.

JHA

 

[pierrejean]

Re : Transformer . en , par une macro

bonjour catschuster

Salut JHA

au cas ou tu ne souhaiterais pas modifier l'option

une macro:

Sub modif()
For Each cel In ActiveSheet.UsedRange
cel.NumberFormat = "0.00"
cel.Value = Replace(cel.Value, ".", ",")
 If IsNumeric(cel.Value) And cel.Value <> "" Then
   cel.Value = CDbl(cel.Value)
 End If
Next cel
End Sub

 

[kiki29]

Re : Transformer . en , par une macro

Oops voir en dessous

 

[kiki29]

Re : Transformer . en , par une macro

Jour Bon
Dans ThisWorkBook de ton fichier Excel de traitement

Private Sub Workbook_Open()
    With Application
        .DecimalSeparator = "."
        .ThousandsSeparator = "*"
    End With
End Sub

ou

Private Sub Workbook_Open()
    Application.UseSystemSeparators = True
End Sub