Discussion :

[anne1208]

Bonjour,

J'ouvre dans Excel un fichier texte comportant une colonne avec des chiffres mais sous format texte : 1.200,30. Je veux supprimer les "." pour pouvoir avoir un format numérique par un remplacer "." par "" dans un code VBA (que j'ai écris grace à l'enregistreur de macros) mais j'obtiens le résultat suivant : 120030 (le séparateur decimal qui est une virgule est supprimé aussi). Quand je fais cette manip directement sur excel (Menu/Edition/Remplacer cela fonctionne parfaitement.

Quelqu'un peut-il m'aider

Merci bcp

Anne

[ucfoutu]

Bonsoir,

Quand je fais cette manip directement sur excel (Menu/Edition/Remplacer cela fonctionne parfaitement.

Bien !

Ouvre alors l'enregistreur de macro et :

1) fais les mêmes gestes
2) enregistre la macro
3) vois comment Monsieur VBA a écrit la chose ...

Et tu sauras tout...

[Gorfael]

Salut
Si t'as un code qui ne fonctionne pas comme tu le voudrais... pourquoi tu ne le donnes pas ? Ce serait plus facile à te le corriger.

Code :

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

1
2
3
4
5
6
Sub test()
Dim X As Long
For X = 1 To Range("A65536").End(xlUp).Row
    Range("A" & X) = Replace(Range("A" & X), ".", "")
Next X
End Sub

A+

[fred65200]

bonjour Gorfael,

je me permets de modifier ton code pour une compatibilité Excel 2007

Code :

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

1
2
3
4
5
6
Sub test()
Dim X As Long
For X = 1 To Range("A" & Application.Rows.Count).End(xlUp).Row
    Range("A" & X) = Replace(Range("A" & X), ".", "")
Next X
End Sub

Cordialement

[AlainTech]

Après avoir supprimé le point, il faut remplacer la virgule par un point.

C'est Excel qui va se charger de traduire le point de VBA en virgule pour l'affichage dans la feuille.

[LeForestier]

Bonjour,
Comme précisé par AlainTech..
Tu peu le faire en une seule passe..

Code :

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

1
2
A$ = "1.250,32"
Range("A1").Value = Replace(Replace(A$, ".", ""), ",", ".")

A+

[anne1208]

Merci pour votre aide.
Je ne suis pas une grande pro de VBA ms je vais essayer vos solutions.
Pour repondre à ucfoutu, j'ai utilisé l'enregistreur pour ecrire mon code ce qui donne :

Code :

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

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

Le rechercher remplacer fonctionne ms il supprime la "," du séparateur de decimal aussi

anne

[anne1208]

En fait j'ai solutionné mon problème en modifiant les parametres de l'assistant importation texte et en identifiant les separateurs de milliers à ce niveau, ce qui me permet de ne plus avoir ces points ds Excel.

merci et à +