Discussion :

[fmris]

Bonjour,
j'ai un soucis que je n'arrive pas a resoudre.
J'ai un fichier excel dans lequel je veux remplacer les "." par des ",".
Si cela fonctionne correctement en passant par les menus (edition puis remplacer), ca ne fonctionne pas en placant l'action dans une macro

Code :

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

1
2
3
4
 Columns("A:A").Select
    Selection.Replace What:=".", Replacement:=",", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False

j'obtiens le resultat suivant avec la macro :
1.0 devient 10
2.5487 devient 25487

Je ne comprend pas dans la mesure ou, en passant par "edition" et "remplacer" ca fonctionne...

[lioco]

salut

essai ça (moi ça marche)

Code :

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

1
2
3
 
Columns ("a:a").Select
Selection.Replace What:=".", Replacement:=","

cordialement

[fmris]

chez moi ca ne fonctionne pas
il est a noter que le fichier que j'importe est un fichier .txt que j'ouvre avec excel.
exemple avec ta macro :

2.548715 se transforme en 2 548 715

bref le pb subsiste

[lioco]

tu travail sur quel version de excel

moi j'ai un problème avec des importation de donnée sous Excel 2007 que je n'ai pas avec Excel 2003

si tu est sous 2007 je crains que je ne pourrai pas t'aider

[fmris]

jai la version 2003

[lioco]

j'ai fais ça sur mon PC ouvre un nouveau classeur et essai le code si sa marche pas c'est dû ,a mon avis, a une option sinon ça vient de ta macros

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
27
28
29
30
31
With ActiveSheet.QueryTables.Add(Connection:= "TEXT;C:"le chemin de ton fichier"\""nom de ton fichier".txt", Destination:=Range("A4"))
        .Name = "nom de ton fichier"
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .TextFilePromptOnRefresh = False
        .TextFilePlatform = 850
        .TextFileStartRow = 1
        .TextFileParseType = xlDelimited
        .TextFileTextQualifier = xlTextQualifierDoubleQuote
        .TextFileConsecutiveDelimiter = False
        .TextFileTabDelimiter = True
        .TextFileSemicolonDelimiter = False
        .TextFileCommaDelimiter = False
        .TextFileSpaceDelimiter = False
        .TextFileColumnDataTypes = Array(1)
        .TextFileTrailingMinusNumbers = True
        .Refresh BackgroundQuery:=False
    End With
    ActiveWindow.SmallScroll Down:=5
 
Columns("a:a").Select
    Selection.Replace What:=".", Replacement:=","
End Sub