Bug sur mon programme fonction vlookup
Bonjour,
J'essaie de faire pour mon boulot un petit programme:
J'ai un soucis avec la fonction vlookup.. il refuse de la prendre.. je suis un gros débutant.. vous pourriez m'aider?
Par avance merci bcp!
Code:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20
| Sub planification_ligne1()
sac = 5
For i = 12 To 43
For j = 43 To (43 + sac)
stockcuir = Application.WorksheetFunction.VLookup(Cells(4, j).Value, Worksheets("PDP").Range("B23:AQ37"), i - 1, False)
If Range(9, j) > 0 Then
If stockcuir > Range(5, i).Value Then
If Range(i, 100).Value < 0.9 Then
Range(i, j).Value = Range(i, j).Value + 1
End If
End If
End If
Next
Next
End Sub |
Merci... je suis sur que s'est rempli d'erreur.. j'essaie d'avancer petit à petit