macro remplacer "." par ","

Bonjour à tous,

Je viens vers vous parce que j'ai un problème avec une petite macro que j'ai créée pour remplacer les "." par des "," dans une feuille Excel. La macro est la suivante:

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Sub Remplacer() ' ' Replace les . par des , ' ' Cells.Replace What:=".", Replacement:=",", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _ ReplaceFormat:=False Range("A1").Select   End Sub

---

Ca marche très bien sauf quand il y a plus de trois chiffres après la virgule, dans ces cas là par exemple 14.511 devient 14511 et non 14,511. Je ne m'explique pas pourquoi ça ne marche pas et ça me prend un peu le chou.
Avez-vous une idée de l'erreur que j'ai pu faire dans la macro ou tout simplement du pourquoi du comment ça ne fonctionne pas?

Merci +++ d'avance!

Bonjour,

piège classique en supposant française la version d'Excel !

Lorsqu'une saisie est effectuée dans la feuille de calculs, c'est en version française, donc la virgule le séparateur décimal.
Mais, quelle que soit la version linguistique d'Excel, le VBA est nativement en anglais, le point est le séparateur décimal.

Donc, dans cette logique excelienne, remplacer le point contenu dans les cellules par la virgule
en tant que séparateur décimal revient en VBA à remplacer le point par un point, si, si ‼

__________________________________________________________________________________________

Merci de cliquer sur :plusser: pour chaque message ayant aidé puis sur :resolu: pour clore cette discussion …

Merci beaucoup! Ca marche désormais. :):):)

Bonjour sofisaas.

Je suis curieux. Quelle est la solution que tu as utilisée?