Approvisionnement automatique VBA
bareto
Messages postés
2
Date d'inscription
Statut
Membre
Dernière intervention
-
bareto Messages postés 2 Date d'inscription Statut Membre Dernière intervention -
bareto Messages postés 2 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
J'esayes actuellement de créer une macro VBA pour gérer mes besoins en appro automatiquement.
Voici mon code :
Sub ordre_planifie()
delai = ActiveSheet.Cells(2, 4).Value
i = 7
While ActiveSheet.Cells(i, 1).Value <> Empty
If ActiveSheet.Cells(i, 4).Value < 0 Then
Range("i-1:1").Select
Selection.EntireRow.Insert , CopyOrigin:=xlFormatFromLeftOrAbove
ActiveSheet.Cells(i - 1, 1).Value = ActiveSheet.Cells(i, 1).Value - delai
ActiveSheet.Cells(i - 1, 2).Value = "ordre planifie"
ActiveSheet.Cells(i - 1, 3).Value = ActiveSheet.Cells(2, 2).Value
ActiveSheet.Cells(i - 1, 4).Value = ActiveSheet.Cells(i - 2, 4).Value + ActiveSheet.Cells(i - 1, 3).Value
End If
i = i + 1
Wend
End Sub
mais lors de son execution je rencontre le problème suivant
erreur d'execution 1004 :erreur défini par l'apllication ou par l'objet
Si l'un d'entre vous a une idée je suis preneur :)
Merci d'avance
J'esayes actuellement de créer une macro VBA pour gérer mes besoins en appro automatiquement.
Voici mon code :
Sub ordre_planifie()
delai = ActiveSheet.Cells(2, 4).Value
i = 7
While ActiveSheet.Cells(i, 1).Value <> Empty
If ActiveSheet.Cells(i, 4).Value < 0 Then
Range("i-1:1").Select
Selection.EntireRow.Insert , CopyOrigin:=xlFormatFromLeftOrAbove
ActiveSheet.Cells(i - 1, 1).Value = ActiveSheet.Cells(i, 1).Value - delai
ActiveSheet.Cells(i - 1, 2).Value = "ordre planifie"
ActiveSheet.Cells(i - 1, 3).Value = ActiveSheet.Cells(2, 2).Value
ActiveSheet.Cells(i - 1, 4).Value = ActiveSheet.Cells(i - 2, 4).Value + ActiveSheet.Cells(i - 1, 3).Value
End If
i = i + 1
Wend
End Sub
mais lors de son execution je rencontre le problème suivant
erreur d'execution 1004 :erreur défini par l'apllication ou par l'objet
Si l'un d'entre vous a une idée je suis preneur :)
Merci d'avance
A voir également:
- Approvisionnement automatique VBA
- Réponse automatique thunderbird - Guide
- Recherche automatique des chaînes ne fonctionne pas - Guide
- Logiciel de sauvegarde automatique gratuit - Guide
- Sommaire automatique word - Guide
- Réponse automatique gmail - Guide