Remplacement d'une , dans une chaine

Bonjour je souhaiterais par macro remplacer mes , de type

Code:

---

modifications (agr‚ment) bases de suivi\modification

---

ou encore

Code:

---

Infos\Veille r‚glementaire

---

lorsque je lance un remplacement manuelle pour remplacer mes , il ne me les trouve pas puisqu'elle appartienne à une chaine dans une cellule ...

quelqu'un aurais une idée ?

par ailleur la macro automatiquement créé donne ceci

Code:

---

1 2	Cells.Replace What:=",", Replacement:="é", LookAt:=xlPart, SearchOrder _ :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False

---

Ce qui ne fonctionne pas même en rajoutant des *,* autour de la virgule

Bonjour.

Voici une procédure qui devrait faire ce que tu attends

Code:

---

1 2 3 4 5 6 7 8 9 10

Sub subRemplaceVirgulesDansZone(ByVal maSelection As Excel.Range) Dim i As Integer, j As Integer   For i = 1 To maSelection.Rows.Count For j = 1 To maSelection.Columns.Count maSelection(i, j) = Replace(maSelection(i, j), ",", "é") Next j Next i   End Sub

---

Pour l'appeler, par exemple

Code:

---

1 2 3 4 5

Sub essai() Call subRemplaceVirgulesDansZone(Application.Selection) End Sub

---

Bon courage,

PGZ

Bonjour

J'ai cru lire entre les lignes que tu voulais utiliser VBA parce que le remplacement manuel ne fonctionnait pas...

Il devrait suffire de vérifier les options de Edition/Remplacer et de décocher Totalité du contenu de la cellule...

Cela t'éviterait de créer une procédure VBA rien que pour cela...

Bonsoir

Si j'en crois ce que dit l'ami mikey91...

Citation:

---

Envoyé par mikey91

par ailleur la macro automatiquement créé donne ceci

Code:

---

1 2	Cells.Replace What:=",", Replacement:="é", LookAt:=xlPart, SearchOrder _ :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False

---

Ce qui ne fonctionne pas même en rajoutant des *,* autour de la virgule

---

... Que ce soit manuellement ou par macro, il semble que ça ne fonctionne pas.

J'en déduirais donc que le caractère fautif n'est pas une "vraie" virgule (code ANSI 44), mais le caractère correspondant au code ANSI 130.

mikey91, je te conseillerais de refaire ta procédure manuelle de remplacement de caractères en utilisant la combinaison de touches ALT + 0130 (depuis le pavé numérique) au lieu de taper le caractère "virgule" pour la recherche...

Par macro, cela donnerait :

Code:

---

1 2	Cells.Replace What:=Chr(130), Replacement:="é", LookAt:=xlPart, SearchOrder _ :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False

---

Cordialement,

Didier_mDF

okai c'était ça... le code était pas une "vrai virgule" mais un code ANSI 130
myDearFriend! à vu juste :) Merci à vous tous pour les réponses :) problème resolu ;)