Cherche et remplace valeur

nakadon · 13 Mai 2015

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 · 13 Mai 2015

Re : Cherche et remplace valeur

Bonjour nakadon

Vois si cela te convient

nakadon · 13 Mai 2015

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 · 13 Mai 2015

Re : Cherche et remplace valeur

Re

Version pour remplacement

Code:

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 · 13 Mai 2015

Re : Cherche et remplace valeur

Parfait. Merci bcp

Cherche et remplace valeur

nakadon

XLDnaute Occasionnel

Pièces jointes

pierrejean

XLDnaute Barbatruc

Pièces jointes

nakadon

XLDnaute Occasionnel

pierrejean

XLDnaute Barbatruc

nakadon

XLDnaute Occasionnel

Discussions similaires