[Excel][Automation] Remplacer des caractères

Bonjour à tous,

Bonne année 2014.

Voilà mon problème: je souhaiterai que la macro ci-après fonctionne avec l'automation. C'est une macro que j'ai enregistré avec l'outil "Enregistrer une macro" d'Excel qui permet de changer (dans ce cas les points en virgules). J'ai essayé un certain nombre de choses mais je n'ai pas réussi. En cherchant sur internet je n'ai pas trouvé non plus.

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Sub Macro1() ' ' Macro1 Macro '   ' Cells.Select Selection.Replace What:=".", Replacement:=",", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _ ReplaceFormat:=False End Sub

---

Merci beaucoup pour l'aide que vous m'apportez.

Voici la traduction :

Code:

---

1 2 3 4

xlPart = 2; xlByRows = 1;   range.Replace('.', ',', xlPart, xlByRows, false, false, false);

---

ou plus simplement avec les options par défaut :

Code:

---

range.Replace('.', ',');

---

Ici range correspond à un objet Range définit préalablement.

Voir Les méthodes et S'aider de l'enregistreur de macros

Par contre, le code ne fonctionne que sur des cellules contenant du texte.

:D Merci beaucoup pour cette réponse :ccool:
Ça fonctionne parfaitement dans mon cas. Les cellules que je souhaitais modifier sont biens des cellules contenant des nombres sous forme de texte. Donc pas de problème.
:merci: