Discussion :

[1pim34]

Bonjour,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 ?

[Invité]

Bonjour,

Essayez :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[1pim34]

Merci beaucoup !!

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

[MarcelG]

Salut Pim,
Hé, salut Eric!

Bienvenue sur le Forum.

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.