N NICOALBERT XLDnaute Occasionnel 3 Avril 2019 #1 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 Pièces jointes RplValeur.xlsm 27.4 KB · Affichages: 4
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 XLDnaute Barbatruc 3 Avril 2019 #2 Bonjour, VB: Sheets("Données").Columns([F170].Value).Replace What:=[F171].Value, Replacement:=[F172].Value, LookAt:=xlWhole, SearchOrder:=xlByColumns eric Vote positif 0 Vote négatif
Bonjour, VB: Sheets("Données").Columns([F170].Value).Replace What:=[F171].Value, Replacement:=[F172].Value, LookAt:=xlWhole, SearchOrder:=xlByColumns eric