Comment remplacer les virgules par des points en vba

Bonjour,

Je cherche à faire un remplacer de "," vers "." dans un fichier via une macro VBA.

Quand je lance l'enregistrement d'une macro cela me donne :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Sub Macro3() ' ' Macro3 Macro '   ' Columns("H:H").Select Selection.Replace What:=",", Replacement:=".", LookAt:=xlPart, _ SearchOrder:=xlByColumns, MatchCase:=False, SearchFormat:=False, _ ReplaceFormat:=False End Sub

---

Sauf que quand je lance cette macro cela ne fait rien. Alors même que ce que j'ai fait en l'enregistrant a bien fonctionné.

J'ai lu plein de façon différente de faire ce 'remplacer' mais aucun ne fonctionne.

Code:

---

1 2 3 4 5 6 7 8

Dim c As Range Dim d As String   For Each c In Range([E4], [E65536].End(xlDown)) d = Replace(c, ",", ".")   Next c

---

Code:

---

1 2 3

Set r = Range([E4], [E65536].End(xlDown)) r.FormulaLocal = r.Formula

---

il doit y avoir une finesse qui m'échappe.

Quelqu'un aurait une idée ?

Merci d'avance.

Bonjour,
Si vous avez une version d'excel 2010 ou supérieure, je passerais par Power Query qui est fait pour cela
Après avoir chargé votre table, il suffit de sélection la ou les colonnes concernées par ce problème et de modifier le type de format de celles-ci en choisissant "Utiliser les paramètres régionaux" et sélectionner ensuite Décimal Anglais (Etats-Unis)

Exemple du code produit par Power Query

Code:

---

1 2 3 4 5 6

let Source = Excel.CurrentWorkbook(){[Name="Tableau3"]}[Content], #"Type modifié avec paramètres régionaux" = Table.TransformColumnTypes(Source, {{"Prix", type number}}, "en-US"), #"Type modifié" = Table.TransformColumnTypes(#"Type modifié avec paramètres régionaux",{{"Prix", type number}}) in #"Type modifié"

---

Le code VBA. produit par l'enregistreur conserve le format texte et il faut le reconvertir en nombre en multipliant par 1 la chaine convertie car la propriété FormatNumber "0.0" conserve la valeur en texte malgré tout.

Exemple

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Sub t() Dim rng As Range Dim c As Range Set rng = ThisWorkbook.Worksheets("data").Range("F2:F500") With rng .Replace What:=".", Replacement:=",", LookAt:=xlPart, _ SearchOrder:=xlByColumns, MatchCase:=False, SearchFormat:=False, _ ReplaceFormat:=False ' , FormulaVersion:=xlReplaceFormula2 End With For Each c In rng c.Value = c.Value * 1 Next Set c = Nothing: Set rng = Nothing End Sub

---

On peut aussi utiliser la méthode TextToColumns

Bonjour et merci Philippe pour votre solution.

Je ne suis pas du tout familier de Power Query, un peu plus avec le VBA.

Malheureusement ce que vous m'avez proposé pour le VBA ne fonctionne pas non plus.

Je joins mon fichier afin que vous puissiez mieux voir ce qui ne fonctionne pas comme attendu.

Sur la feuille 3 nommée PRADEAU je souhaiterais que la colonne H s'affiche avec un "." pour la décimale au lieu de la ","

Le fichier source est le fichier qui contient les données à mouliner avec la macro PRADEAU du fichier 1pim34.

Merci d'avance.

Pièce jointe 639215

Pièce jointe 639216

Bonjour

ça ne marche pas parce que tes cellules contiennent des nombres et que le replace travaille sur des strings. En fait ta cellule ne contient pas de "," :)
D'une façon ou d'une autre il va d'abord falloir transformer ta cellule en string pour pouvoir faire le remplacement

Donc si on reste en VBA par exemple une boucle sur la colonne (pas de meilleure idée à l'instant t avec

Code:

---

1 2 3

with MaCellule .value = "'" & replace(format(.value,"0.00"),",",".") end with

---

Note le prefixage par ' : sinon excel qui est serviable et prompt à la conversion réinterprète ta donnée comme un numérique et tu te retrouves avec une "," !

Question en passant : on est bien d'accord que ce que tu veux dans ta colonne, c'est une chaine de caractères contenant une image de nombre avec un point décimal ? Pas un nombre affiché avec un point décimal ?

Merci tête de chat,

Ce que je souhaite c'est que les cellules de ma colonne H de ma feuille PRADEAU soit sous la forme 1215.52 et non 1215,52
Après ca de toute façon je vais enregistrer ce fichier en .txt.

Merci ;-)

Je viens de faire le test, cela fonctionne.

Merci Philippe et Merci tête de chat