[VBA-E]remplacer à l'aide d'une macro

dans une colonne je souhaiterai, à l'aide d'une macro, remplacer les virgules par un point. Au moment ou je crée la macro ceal fonctionne mais quand je copie d'autre données et que je lance la macro celle-ci ne fonctionne pas.

Code:

---

1 2 3

Columns("E:E").Select Selection.Replace What:=",", Replacement:=".", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False

---

merci pour votre aide

AMHA ça vient du problème de paramétrage dans windows...préférence régionales, ou un truc comme ça

Quelle raison as-tu de vouloir remplacer les virgules par des points ?
Je te pose cette question car une solution existe mais elle peut ne pas s'appliquer à ce que tu veux obtenir ;)
Consiste à faire précéder tes nombres par une apostrophe
Cells(Nl,Nc) = "'" & Cells(Nl,Nc)
Ainsi tu convertis tes nombres en chaînes de caractères.
Ensuite, tu opères tes remplacements.

tu peux aussi essayer la fonction replace sous cette forme

Code:

---

Replace(valeur, ",", ".")

---

mais ça viens peut etre pas de là.

En faisant ce que colombine veut faire, dans Excel, s'il fait une addition des nombres obtenus avec des points, il fera sauter toutes les décimales. Y'a qu'à essayer. Transformé en string, il a encore la posibilité d'utiliser CNum... et encore, je n'en sais rien, je n'ai jamais essayé de me compliquer la vie sans une raison valable... raison valable que nous n'allons pas tarder à connaître... si colombine nous répond :mouarf:

Citation:

---

Envoyé par colombine28

dans une colonne je souhaiterai, à l'aide d'une macro, remplacer les virgules par un point. Au moment ou je crée la macro ceal fonctionne mais quand je copie d'autre données et que je lance la macro celle-ci ne fonctionne pas.

Code:

---

1 2 3

Columns("E:E").Select Selection.Replace What:=",", Replacement:=".", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False

---

---

Quel type de virgule as-tu dans tes nouvelles données? Est-ce un Chr(44) ou un Chr(130)?
Et évite également les Select. Essaie donc d'enchainer les 2 lignes :

Code:

---

1 2 3 4

Columns("E:E").Replace What:=Chr(44), Replacement:=".", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False Columns("E:E").Replace What:=Chr(130), Replacement:=".", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False

---

Salut davy
Je n'avais pas pensé à ça :( Mais tu me donnes une idée... Quel est le vrai problème de colombine ? N'est-ce pas précisément de ne pas avoir la bonne virgule ? Auquel cas, ce serait cette solution qui lui conviendrait

Code:

---

1 2	Columns("E:E").Replace What:=Chr(130), Replacement:=Chr(44), LookAt:=xlPart, _ SearchOrder:=xlByRows

---

Juste une idée... sur laquelle colombine donnera certainement son avis... si colombine veut bien se manifester ;)

A défaut que colombine daigne revenir, moi j'aurais appris quelque chose. c'est quoi la difference entre les deux virgules?