J'ai créer ce code, mais si je change l'ordre des données dans ma feuille 2 (colonne A et B), les données de la colonne B ne matche plus avec les codes de la colonne A de la feuille 1. Que faire pour que les données de ma feuille 2 retrouve les bons codes dans la feuille 1 même si l'ordre de la colonne A est différent dans la feuille 1 ?
Dim i As Integer
Dim pos As Variant
For i = 1 To Cells(1, 1).End(xlDown).Row
Set pos = Cells.Find(What:=Sheets("Feuil1" ).Cells(i, 1).Value, _
After:=Sheets("Feuil2" ).Cells(1, 1), LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False)
If Not pos Is Nothing Then
Sheets("Feuil1" ).Cells(i, 2).Value = _
Sheets("Feuil2" ).Cells(pos.Row, 2).Value
End If
Next i
End Sub