1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22
| Sub TrierClasserRanger()
Fich1 = "Classeur1" ' à remplacer -> Fichier1.xls
Fich2 = "Classeur2" ' à remplacer -> FichierCorrespondance.xls
Workbooks.Open Filename:=Fich2 'Je suppose que ton code est dans Fich1
Worksheets("Feuil1").Select
'Workbooks.Open Filename:=Fich1 'Fichier1 est déjà ouvert
Workbooks(Fich1).Activate
Worksheets("Feuil1").Select
DernièreLigne = Range("A1").SpecialCells(xlCellTypeLastCell).Row
'Je suppose que les anciennes références se trouvent dans la colonne 1 des deux fichiers
NoCol = 1
For i = 1 To DernièreLigne
With Workbooks(Fich2).Worksheets("Feuil1").Cells
Set trouvé = .Find(Cells(i, NoCol).Value, LookIn:=xlValues)
If Not trouvé Is Nothing Then
NoLigne = NoLigne + 1
Workbooks(Fich1).Worksheets("Feuil1").Cells(NoLigne, NoCol).Value = _
Workbooks(Fich2).Worksheets("Feuil1").Cells(trouvé.Row, 2).Value
End If
End With
Next
End Sub |
Partager