Bonjour tous le monde,
Je travaille sur un fichier de suivi des alertes de stock, en se basant sur un tableau (dans le fichier ci-joint) qui contient le code de l'article, le stock final, le stock mini, alerte (=0 s'il ya une rupture) et la quantité à commander.
Mon objectif est de remplir un tableau dans une autre feuille par les articles qui sont en rupture de stock, le tableau va contenir le code, le stock final, le stock mi et la qté à commander.
J'ai essayé avec ce code, il m'affiche une erreur 1004.
Private Sub Workbook_Open()
Dim alertestock As Range
For Each alertestock In Sheets("Feuil1").Range("Alerte")
If alertestock = 0 Then
Alertes.Cells(alertestock.Row, 1) = Feuil1.Cells(alertestock.Row, 1)
Alertes.Cells(alertestock.Row, 2) = Feuil1.Cells(alertestock.Row, 3)
Alertes.Cells(alertestock.Row, 3) = Feuil1.Cells(alertestock.Row, 4)
Alertes.Cells(alertestock.Row, 4) = Feuil1.Cells(alertestock.Row, 6)
End If
Next alertestock
End Sub
Merci d'avance pour votre aide.