Remplacer par en fonction des données d'une feuille

[NICOALBERT]

Bonjour le forum ,

Je vient vers vous car je cherche à modifier les valeurs d'une colonne en fonction des données dans une autre feuille.

Lorsque je le fait par macro automatique ça me donne le code suivant :

Sub RplValeur()
Sheets("Données").Select
Columns("Z:Z").Select
Selection.Replace What:="1", Replacement:="25", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
End Sub

mais le soucis c'est que les colonnes ne sont pas les même à chaque fois .

Je vous joint un bout de fichier qui je pense vous parlera mieux

Cdlt Nicoalbert

 

[eriiic]

Bonjour,

Sheets("Données").Columns([F170].Value).Replace What:=[F171].Value, Replacement:=[F172].Value, LookAt:=xlWhole, SearchOrder:=xlByColumns

eric