Remplacer . par , - Bug

Bonjour à toutes et tous,

Dans une macro, j'ai besoin de remplacer des points par des virgules.
En fouillant sur la toile, j'ai vu qu'il fallait remplacer les points par des points, sûrement à cause des options régionales des formats numériques. Ainsi, sur l'onglet souhaité, j'ai changé mon :

Code:

---

1 2 3 4 5

With .Columns("H:K")   .Replace What:=".", Replacement:=",", LookAt:=xlWhole   End With

---

par :

Code:

---

1 2 3 4 5

With .Columns("H:K")   .Replace What:=".", Replacement:=".", LookAt:=xlWhole   End With

---

Mais rien n'y fait, aucun changement ne s'opère...

Avez-vous une raison à celà ?

Comment faire pour que celà fonctionne ?

Merci d'avance pour votre aide, une très bonne journée à tous.

Bonjour,

Si la virgule est ton signe décimal, il faut mettre :

Code:

---

.Replace ".", "."

---

C'est le paramètre "xlwhole" qui est erroné. Il faut mettre "xlpart" (paramètre par défaut).

Bonjour Daniel,

Merci beaucoup pour la qualité de votre réponse et votre rapidité à me la fournir, votre code fonctionne parfaitement et vous m'otez une belle épinse du pied.
Encore merci, une excellente journée à vous :)