Kidcarotte
XLDnaute Junior
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
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