[Search & Remplace] Faire référence à une cellule

Bonjour à tous,

pour des besoin de changements de code automatique, j'ai intégré à ma macro une fonction pour chercher et remplacer

(Après quelques lectures ici même ).

Voilà ce que ça donne :

 For Z = 1 To Range("B" & Rows.Count).End(xlUp).Row
       Range("B" & Z) = Replace(Range("B" & Z), "P890101", "81549972")
    Next Z

Dans ce cas, tout fonctionne bien !

Le problème est que j'ai une liste de 55 codes à switcher --> ces codes sont sur un autre onglet "Table Conversion".

Je ne veux pas mettre dans la macro, ligne à ligne la conversion comme j'ai fait plus haut car --> ces codes vont changer et je préfère mettre mon onglet "Table Conversion" à jour plutôt que la macro...

Du coup, J'ai tenté comme ça, mais ça ne fonctionne pas :

 For Z = 1 To Range("B" & Rows.Count).End(xlUp).Row
       Range("B" & Z) = Replace(Range("B" & Z), "Table Conversion!A2.Value", "Table Conversion!C2.Value")
    Next Z

Ma question : comment faire ?

Merci beaucoup pour vos réponses

Bonjour et bienvenu(e)

A tester

Sub Test()
Dim Plage As Range, J As Long

  Set Plage = Range("B1:B" & Range("B" & Rows.Count).End(xlUp).Row)
  With Sheets("Table Conversion")
    For J = 2 To .Range("A" & Rows.Count).End(xlUp).Row
      Plage.Replace what:=.Range("A" & J), replacement:=.Range("C" & J), lookat:=xlWhole
    Next J
  End With

End Sub

Bonjour,

merci pour ton aide.

J'ai une erreur :

"Run Time error '9':

Subscript out of range"

Bonjour

D'ici je vois mal

Fournis le fichier en cause

Le problème est que je ne peux pas, c'est un fichier de mon entreprise avec trop de data confidentielles dedans

Je vais chercher dans mon coin !

Bonjour

C'est sur que je n'ai plus le temps maintenant

Mais pourquoi ne pas faire un fichier avec des données bidons

Il n'y a besoin que de la colonne B dans une feuille et dans l'autre page en colonne A ce qu'il faut chercher et en colonne C ce qui doit remplacer

Comme tu veux

Précises en attendant l'erreur et surtout sur quelle ligne, la valeur des différentes variables

Hello Banzai,

j'ai pu m'y pencher un peu plus ce matin...

En cherchant plus précisément ou était l'erreur comment tu m'as demandé --> il se trouve que l'erreur était sur le nombre de la Sheet "Table Conversion" que j'avais modifié entre temps...

Erreur bête de fin de journée bien fatigué.

Du coup, ton code fonctionne bien

Je t'ai mis quand même le fichier exemple, tu verras mes petits soucis ligne 354 à 359 qui se convertissent bien comme il faut !

Merci beaucoup,

Romain

Rechercher des sujets similaires à "search remplace reference"