Hello la compagnie
J'essaie de faire une fonction VLookUp mais cela ne fonctionne pas comme je le souhaiterai (comme toujours)
Le code "s'execute" sans message d'erreur, mais il n'y a aucun resultat. La colonne J reste vide.
Si vous avez des suggestions.
Voici le code en question
</>
Sub Create_Report_Jess()
On Error Resume Next
Set S1 = Sheets("Ship Plan")
Set S2 = Sheets("Report")
Set S3 = Sheets("Button")
Dim Dept_Row As Long
Dim Dept_Clm As Long
Table1 = S2.Range("I2", S2.Range("I2").End(xlDown)).Select
Table2 = S3.Range("A10:B40")
Dept_Row = S2.Range("J2").Row
Dept_Clm = S2.Range("J2").Column
For Each C1 In Table1
S2.Cells(Dept_Row, Dept_Clm) = Application.WorksheetFunction.VLookup(C1, Table2, 2, False)
Dept_Row = Dept_Row + 1
Next C1
End Sub