Erreur 424

Bonjour le forum,

J'ai une erreur 424 dans ce code :

Private Sub inventaire()
finInv = Worksheets("Inventory").Range("A" & Rows.Count).End(xlUp).Row
unf = 2
For i = 2 To finInv
    ref = Sheets("Production required").Range("B:B").Find(Sheets("Inventory").Range("C" & i), LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlByRows)
    If ref Is Nothing Then
        Sheets("Inventory").Range("A" & i & ":I" & i).Copy Destination:=Worksheets("Unfound").Range("A" & unf)
        unf = unf + 1
    Else: l = ref.Row
    Sheets("Production required").Range("F" & l) = Sheets("Inventory").Range("I" & i)
    End If
Next i
End Sub

D'après le mode pas à pas, l'erreur semble être au niveau de la ligne else...

Est ce que qq'un pourrait m'aider et m'expliquer l'erreur svp ?

et voici le fichier :

Merci d'avance !

Bonjour,

La ligne suivante est la bonne syntaxe :

Set ref = Sheets("Production required").Range("B:B").Find(Sheets("Inventory").Range("C" & i), LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlByRows)

Merci !

Et ce serait possible d'avoir l'explication à quoi sert le "set" svp ?

Re,

Il faudra avoir une connaissance de la programmation orientée objet. Pour le moment, sache que les variables de type Objet doivent être déclarées en VBA avec le mot clé "Set" un peu comme tu déclares avec Dim (le mot clé) un certain nombre de variables.

Très bien merci