Cherche et remplace valeur

[nakadon]

Bonjour,
Pourriez-vous m'aider svp. Je souhaite avoir une macro qui recherche puis remplace les valeurs dans la colonne "référence" du fichier2 par leur "Libellé" qui existe dans le fichier1 (grâce un bouton macro à placer dans la feuil1 du fichier1). Il s'agit de comparer les valeurs entre le fichier1 et le fichier2 ci-dessous. Si la valeur dans la colonne "référence" du fichier2 existe dans la colonne "code" du fichier1, elle est remplacée par la valeur "libellé" correspondante du fichier1, sinon ne rien faire.
D'avance merci pour votre aide.

 

[pierrejean]

Re : Cherche et remplace valeur

Bonjour nakadon

Vois si cela te convient

 

[nakadon]

Re : Cherche et remplace valeur

Merci PierreJean. L'idéal serait de supprimer les valeurs existantes dans la colonne A du fichier2 et de les remplacer par celle de "libellé"du fichier1. Mais c'est aussi bien comme ça. Merci.

 

[pierrejean]

Re : Cherche et remplace valeur

Re

Version pour remplacement

Sub report()
tablo = Sheets("Feuil2").Range("A2:B" & Sheets("Feuil2").Range("A" & Rows.Count).End(xlUp).Row)
tablo1 = Workbooks("Fichier2.xls").Sheets("Feuil1").Range("A2:A" & Workbooks("Fichier2.xls").Sheets("Feuil1").Range("A" & Rows.Count).End(xlUp).Row)
For n = LBound(tablo, 1) To UBound(tablo, 1)
  For m = LBound(tablo1, 1) To UBound(tablo1, 1)
    If tablo(n, 1) = tablo1(m, 1) Then
      tablo1(m, 1) = tablo(n, 2)
    End If
  Next
Next
 Workbooks("Fichier2.xls").Sheets("Feuil1").Range("A2").Resize(UBound(tablo1, 1), UBound(tablo1, 2)) = tablo1
End Sub

 

[nakadon]

Re : Cherche et remplace valeur

Parfait. Merci bcp