Merci pour ton explication.
J'ai essayé plusieurs mouvements de lignes, colonnes et grâce à tes explications je comprends comment cela fonctionne.
J'arrive à mettre à jour différentes colonnes et dans n'importe quel ordre.
Mais il y a encore une chose que je n'arrive pas à trouver:
Lorsque les colonnes "Référence" sont A (Feuil1 et 2), il n'y aucun problème.
Mais dès que je les décale en B (Feuil1 et 2), cela ne marche pas
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22
| Sub Test()
Dim FL1 As Worksheet, FL2 As Worksheet, PremAdresse As String
Dim c As Range, i As Integer, DerLig1 As Long, DerLig2 As Long
Set FL1 = Worksheets("feuil1")
Set FL2 = Worksheets("feuil2")
DerLig1 = FL1.Cells(FL1.Rows.Count, 1).End(xlUp).Row
DerLig2 = FL2.Cells(FL2.Rows.Count, 1).End(xlUp).Row
For i = 2 To DerLig2
With FL1.Range("B2:B" & DerLig1)
Set c = .Find(What:=FL2.Cells(i, 2), LookAt:=xlWhole)
If Not c Is Nothing Then
FL2.Cells(i, 5) = c.Offset(0, 3).Value
End If
End With
Next
Set FL1 = Nothing
Set FL2 = Nothing
End Sub |
Je pense que je me trompe sur la ligne
Set c = .Find(What:=FL2.Cells(i, 2), LookAt:=xlWhole)
J'ai effectué plusieurs tentatives mais je ne trouve pas.
Partager