Rechercher Remplacer en VBA

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

Bonsoir,

Citation:

---

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...;)

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:

---

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+

bonjour Gorfael,

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

Code:

---

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

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.

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

Code:

---

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

---

A+

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:

---

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

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 à +