Selection.Replace qui supprime au lieu de remplacer

Bonjour à tous.

Mon code est assez simple. Il suffit de remplacer les "." par des "," dans la selection. Quand je fais ctrl-F remplacer (manuellement) tout se passe sans problème. Mais, j'ai une macro qui utilise Replace qui ne fonctionne pas.
Voici le code

Code:

---

1 2 3

Selection.Replace What:=".", Replacement:=",", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _ ReplaceFormat:=False

---

(Fais moi-même et ensuite enregistré avec l'enregistreur de macro (pour être certain!).

Alors voici le problème :
Voici ce que j'ai avant d'exécuter la macro

12345.678912
12345.67891
12345.678
98765.21
98765.413
98765.4321
65894.25
32198.3
98713.65

et ensuite j'ai ceci avec le code


12345678912
1234567891
12345678
98765,21
98765413
]987654321
65894,25
32198,3
98713,65

Pourquoi ça fonctione quand il a seulement deux positions ou une après "." et sinon, le "." s'efface au lieu de se remplacer?

Si dans la sélection il a une cellule avec seulement "." alors le remplacement se fait correctement aussi.

Merci à l'avance de bien vouloir m'aider, je commence à me cogner la tête dans l'écran!

Bonjour,

Excel a tendance à ingérer sur nos besoins quand il s'agit de nombre

En transformant le format des cellules en Texte avant ca fonctionne

Code:

---

1 2 3

Selection.NumberFormat = "@" Selection.Replace ".", ","

---

Merci de l'essais mais ça ne fonctionne toujours pas.

Je n'ai pas remarqué de différence avec ou sans...

Dans l'aide en ligne, j'ai noté cette phrase

Citation:

---

replace a une longueur nulle -> Une copie de l'expression, toutes les occurrences de find étant retirées.

---

Cela ressemble à mon résultat (mais pas sur tous!)

Va comprendre, un coup ca marche et un autre :aie:

CE code fonctionne, du moins je l'espère

Code:

---

1 2 3 4 5 6 7 8 9

Dim R As Range   For Each R In Range("D3:D11")   R.NumberFormat = "@" R.Value = CStr(Replace(R.Value, ".", ","))   Next

---

Merci beaucoup!

Je commence déja à avoir un peu moins mal à la tête!
:ccool: