Discussion :

[Flyin_arno]

lorsque je fait ce code pour remplacer

Code :

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

1
2
    Cells.Replace What:=".", Replacement:=",", LookAt:=xlPart, SearchOrder _
        :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False

il me degage toutes les virgules sur certines colonnes (mais pas toutes)ce qui ne m'arrange pas trop au niveau de mes calculs...

au lieu de 111.13039 il me met 11113039 donc a l'aide siouplé...

[XHY65]

toutes tes cellules sont au format texte, numéric ....?

definit dabort ta plage et repsse les en texte, après tu fait ton remplacment, pour tous repasser en numéric.

Attention à ton format numéric (US ou FR) il ne faut pas oublier que pour :

18521,57

us = 18,521.57

fr = 18 521,57

à mon avis soit tu a un problème texte numéric mais essaye juste (déjà) avec le format us, fr, ton pb vient peut être de là.

Cordialement

XHY65

[Flyin_arno]

bah tu dois avoir raison mais j'y arrive toujours pas j'ai essayé de bidouiller les parametre de Replace mais rien n'y fait ca me vire les virgule et effectivement il me met des espaces il doi croire que c'est un format us.. mais comment modifier le format pour lui imposer le format fr.

[Flyin_arno]

non c bon j'ai trouvé

Code :

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

1
2
Selection.TextToColumns Destination:=Range("A3"), DataType:=xlFixedWidth, _
     FieldInfo:=Array(0, 1), DecimalSeparator:=".",TrailingMinusNumbers:=True

c'etait la qu'il falai changer a decimal separator merci

[XHY65]

n'oublie pas le tag résolu

merci

XHY65