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