Discussion :

[sbeprod]

Bonjour,

J'obtiens une erreur d'exécution de type 1004 quand je lance le code suivant:

Sub Stock()
Dim NbLig1 As Integer, NbLig2 As Integer, i As Integer, Adress As String

NbLig1 = ActiveSheet.Cells.SpecialCells(xlCellTypeLastCell).Row
NbLig2 = Sheets("Feuil2").Cells.SpecialCells(xlCellTypeLastCell).Row
ActiveWorkbook.Worksheets("Feuil2").Range("A1").CurrentRegion.Name = "Stock"

For i = 1 To NbLig1 - 1
While Cells(i, 1).Value = Cells(i + 1, 1).Value

Cells(i + 1, 8).Formula = "=" & Cells(i, 8).Address & "-" & Cells(i + 1, 7).Address

i = i + 1
Wend
Cells(i + 1, 8).Formula = "=VLookup(Cells(i + 1, 1).Value&,Stock,3,False)"

Next i
End Sub

L'erreur se produit sur la fonction VLookup qui doit comporter une erreur de syntaxe.
Est-ce quelqu'un pourrait m'indiquer l'erreur ?

Merci d'avance.

[gFZT82]

Bonjour,

Tu peux tester

Code :

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

Cells(i + 1, 8).Formula = "=VLookup(" & Cells(i + 1, 1).Address & ",Stock,3,False)"

Cordialement.

[sbeprod]

Cela fonctionne maintenant parfaitement.
Merci.
J'aurai voulu également pouvoir traiter le cas ou la fonction recherchev ne trouve pas la valeur recherchée et renvoie l'erreur #N/A. Dans ce cas, j'aurai souhaité mettre la valeur 0 dans ma cellule.
J'ai essayé avec le code suivant:

If Not IsError(VLookup(Cells(i + 1, 1).Value, Stock, 3, False)) Then
Cells(i + 1, 8).Formula = "=VLookup(" & Cells(i + 1, 1).Address & ",Stock,3,False)" Else
Cells(i + 1, 8).Value = 0
End If

Il doit également y avoir une erreur de syntaxe. Je peux qu'elle doit se situer dans la première ligne.
Merci encore de votre aide.

[gFZT82]

Avec Excel 2003, tu peux utiliser ESTERREUR et remplacer ta formule par

Code :

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

Cells(i + 1, 8).Formula = "=IF(ISERROR(VLOOKUP(" & Cells(i + 1, 1).Address & ",Stock,3,False)),0,VLOOKUP(" & Cells(i + 1, 1).Address & ",Stock,3,False))"

Cordialement.

[sbeprod]

Merci beaucoup.