Remplacer du teste dans les cellules d'une zone

[Pegase]

Bonjour à tous,

Par une macro, je cherche à remplacer un texte que j'appelle OldTxt, fourni par une boite de dialogue, par un autre > NewTxt dans une feuille de classeur
Le code suivant fonctionne bien

cellule.Replace What:=OldTxt, Replacement:=NewTxt, LookAt:= _
xlWhole, SearchOrder:=xlByRows, MatchCase:=False

Mais je voudrais que ces remplacement ne puisse se faire que dans une zone Range("F12:J211") par exemple. Mais je n'y arrive pas .
J'ai essayé avec With mais sans succès

With Sheets(I).Range("F12:J211").Select
Cells.Replace What:=OldTxt, Replacement:=NewTxt, LookAt:= _
xlWhole, SearchOrder:=xlByRows, MatchCase:=False
End With

et d'autres solutions sans succès également

Un gros merci d'avance pour votre aide.
Pégase

 

[Gorfael]

Re : Remplacer du teste dans les cellules d'une zone

Salut
un sujet suffit, non ?
https://www.excel-downloads.com/threads/remplacer-du-texte-dans-une-zone-de-cellules.67085/