remplacer par VBA

Bonjour,

J'ai fait une macro pour remplacer des caractères par d'autres dans une colonne :

Code:

---

1 2 3 4 5 6 7

Sheets("base").Activate 'ACTIF Worksheets("base").Columns("Q").Replace _ What:="FAUX", Replacement:="ACTIF", _ SearchOrder:=xlByColumns, MatchCase:=True Worksheets("base").Columns("Q").Replace _ What:="VRAI", Replacement:="INACTIF", _ SearchOrder:=xlByColumns, MatchCase:=True

---

Quand je fais le remplacement manuellement avec la fonction CTRL+H cela fonctionne bien. Par contre, cela ne fonctionne pas avec mon script qui fonctionne dans d'autres circonstances (autre chaine de caractère à changer)

Une idée du pourquoi ?

Citation:

---

Envoyé par 1pim34

---

Bonjour,

Essayez :

Code:

---

1 2 3 4 5

With Worksheets("base").Columns("Q") .Replace What:=False, Replacement:="ACTIF", SearchOrder:=xlByColumns, MatchCase:=True .Replace What:=True, Replacement:="INACTIF", SearchOrder:=xlByColumns, MatchCase:=True End With

---

Merci beaucoup !!

Mieux vaut 1 qui sait que 10 qui cherche :-)
Merci encore

Salut Pim,
Hé, salut Eric!

Bienvenue sur le Forum.

Citation:

---

Mieux vaut 1 qui sait que 10 qui cherche :-)

---

Heu! Non!

C'est la recherche qui fait progresser. En mathématiques comme en VBA ou tout autre matière.
Et ce même si elle aboutit, en toute dernière limite, à un échec.

Voir ma modeste opinion à ce sujet.

Bonne continuation.