Discussion :

[ze_mechant]

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

[Daniel.C]

Bonjour,

il refuse de la prendre

Qu'est-ce qui se passe ? Tu as un message d'erreur, ou il ne se passe rien. Essaie plutôt la syntaxe :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

stockcuir = Application.VLookup(Cells(4, j).Value, Worksheets("PDP").Range("B23:AQ37"), i - 1, False)

[ze_mechant]

Merci
j'ai fait ta modification cela marche beaucoup mieux!
j'ai aussi débuger un peu et cela commence à fonctionner:
il remplit la première colonne du tableau et bug...

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
21
 
Sub planification_ligne1()
 
 
sac = 5
 
For i = 12 To 43
    For j = 43 To (43 + sac)
 
       stockcuir = Application.VLookup(Cells(j, 4), Worksheets("PDP").Range("J23:AQ37"), i - 10, False)
 
            While ((Cells(j, 9) > 0) And (Cells(100, i).Value < 0.9) And (stockcuir > Cells(i, 5).Value))
 
                        Valeur = Cells(j, i).Value
                        Cells(j, i).Value = Valeur + 1
 
             Wend
      Next
Next
 
End Sub

il me met un message d'erreur:
Erreur d'execution '13'
incompatibilité de type

tu peux m'aider stp?

Bien Cordialement

[SfJ5Rpw8]

sur qu'elle ligne l'erreur ?

[ze_mechant]

Merci je viens de comprendre le soucis!
le programme tombe sur une cellule vide et il n'aime pas!!!

Je continue à avancer!!

Merci et désolé pour le dérangement