Macro Rechercher et Remplacer

piga25

XLDnaute Barbatruc

• 6 Mai 2019

• #2

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

 

Vote positif 0 Vote négatif

M

Moumoune

XLDnaute Nouveau

• 6 Mai 2019

• #3

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...

 

Vote positif 0 Vote négatif

piga25

XLDnaute Barbatruc

• 6 Mai 2019

• #4

Bonjour
voir si cela convient

VB:

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

 

Vote positif 0 Vote négatif

M

Moumoune

XLDnaute Nouveau

• 6 Mai 2019

• #5

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.

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 6 Mai 2019

• #6

Bonsoir Moumoune, piga25, JM,

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

VB:

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

Edit : si FAUX est dans une formule utiliser :

VB:

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

Bonne nuit.

 

Dernière édition: 6 Mai 2019

Vote positif 0 Vote négatif