Macro Rechercher et Remplacer

[Moumoune]

Bonjour,

Je cherche simplement à remplacer le texte "FAUX" par le texte "" pour toute une colonne.

Voici ce que me donne l'enregistreur de macro:
Sub Remplacer_faux()
'
' Remplacer_faux Macro
'

'
Columns("D").Select
Selection.Replace What:="FAUX", Replacement:="", LookAt:=xlWhole, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
End Sub


J'ai également tenté avec
LookAt:=xlPart, _


Dans les 2 cas, ça ne fonctionne pas.

Merci d'avance pour votre aide précieuse,

 

[piga25]

Bonjour,
pourquoi ne pas utiliser directement la fonction d'excel se trouvant dans le menu
sélectionner votre colonne puis faire remplacer "faux" par ""

 

[Moumoune]

Mon tableau contient énormément d'étapes ce qui prend énormément de temps chaque semaine à mon équipe.
Je cherche à automatiser le plus d'étapes possibles pour que mon équipe n'ait plus qu'à importer les données brutes et avoir un tableau de reporting propre, sans erreur et avec le moins de taches chronophages possibles!

Cette étape me semblait facilement automatisable et l’intervention humaine n'étant pas source de valeur intellectuelle...

 

[piga25]

Bonjour
voir si cela convient

Sub remplacer()
Dim MaCell As Range
    For Each MaCell In Range("C:I").Cells 'exemple valable pour les colonne C à I (à modifier)
    If MaCell.Value = "Faux" Then MaCell.Value = "" ' valeur de remplacement à modifier si nécessaire
    Next MaCell
End Sub

 

[Moumoune]

Merci pour ton aide.
J'essaierai ça ce soir.

En attendant j'avais trouvé une solution (sans doute sale!) pour contourner le problème: j'ai modifié ma formule qui en amont renvoyait la valeur faux pour qu'elle renvoie une valeur vide.
Ainsi lorsque je copie colle les valeurs sans les formules, cela arrive directement vide et m'évite de faire une remplacement.

 

[job75]

Bonsoir Moumoune, piga25, JM,

Au post #1 il suffisait de remplacer "FAUX" par False :

Sub Remplacer_faux()
Columns("D").Replace False, "", xlWhole
End Sub

Edit : si FAUX est dans une formule utiliser :

Sub Remplacer_faux()
Columns("D").Replace False, """""", xlPart
End Sub

Bonne nuit.