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 : Sélectionner tout - Visualiser dans une fenêtre à part
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