Macro pour recherche/remplacer

[severin76]

Bonjour Messieurs

C'est après avoir pas mal cherché sur le forum la solution à mon problème que je m'adresse à vous :

J'ai un petit problème dans une macro, j'aimerai pouvoir automatiser le remplacement du numéro de colonnes dans ma recherchev. Après enregistrement, ma macro est la suivante :

Sub Remplacement()
Sheets("Feuil1").Select
Range("D4:AZ100").Select
Selection.Replace What:="11;faux", Replacement:="4;faux", LookAt:=xlPart _
, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Selection.Replace What:="12;faux", Replacement:="5;faux", LookAt:=xlPart _
, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Selection.Replace What:="13;faux", Replacement:="6;faux", LookAt:=xlPart _
, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Selection.Replace What:="14;faux", Replacement:="7;faux", LookAt:=xlPart _
, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False


Malheureusement, ce code ne fonctionne pas et les valeurs ne sont jamais remplacés ?
Y a t il une erreur dans ma macro ? Est-il impossible de remplacer des caractères dans une recherchev par macro ?
Précision: je suis sur Excel 2003

Merci de votre aide

 

[Caillou]

Re : Macro pour recherche/remplacer

Bonjour,

Dans ta macro, remplace "11;faux" par "11,false" (Attention c'est bien une virgule)
car il s'agit du contenu d'une formule (j'ai essayé, chez moi ca fonctionne)

Caillou

 

[severin76]

Re : Macro pour recherche/remplacer

Merci beaucoup!

Ca fonctionne à merveille!

Bon après-midi