SOS VBA
Résolu
xtw461
Messages postés
2
Date d'inscription
Statut
Membre
Dernière intervention
-
Utilisateur anonyme -
Utilisateur anonyme -
Bonjour,
Dans le cadre d'un stage je dois effectuer une macro, mais mes connaisssances ds ce domaine sont plus que limitées!
Voici mon problème: je veux determiner à quelle date je dois envoyer une commande, pour ce faire j'effectue l'opération suivante : Approvisinnement-consommation+inventaire j=inventaire j+1...si ce résultat est supérieur à un certain nombre, la macro écrit la date d'aujourdhui (pour la commande), sinon inventaire j+1 devient inventaire j et on renouvelle l'opération jusqu'a ce que inventaire j soit superieur au nombre en question, la macro écrit alors la date j en question.
J'ai qq bases en algo, j'ai donc pu rédiger ces qq lignes sur vba ( qui sont bien sur fausses à la compilation), si cela peut vous aidez à comprendre mon problème...
Public Sub prevision(Date)
Dim inventaire_j As Integer
Dim A As Integer
Dim j As Integer
for j=1 to n do
Cells (D7) - Cells(D8) + Cells(D9) = inventaire_j
If inventaire_j > A Then Cells(D10).Value = Date + j
Else: j = j + 1
End If
End Sub
Merci à tous les courageux qui mettront les mains dans ce cambouï!
Cordialement,
Dans le cadre d'un stage je dois effectuer une macro, mais mes connaisssances ds ce domaine sont plus que limitées!
Voici mon problème: je veux determiner à quelle date je dois envoyer une commande, pour ce faire j'effectue l'opération suivante : Approvisinnement-consommation+inventaire j=inventaire j+1...si ce résultat est supérieur à un certain nombre, la macro écrit la date d'aujourdhui (pour la commande), sinon inventaire j+1 devient inventaire j et on renouvelle l'opération jusqu'a ce que inventaire j soit superieur au nombre en question, la macro écrit alors la date j en question.
J'ai qq bases en algo, j'ai donc pu rédiger ces qq lignes sur vba ( qui sont bien sur fausses à la compilation), si cela peut vous aidez à comprendre mon problème...
Public Sub prevision(Date)
Dim inventaire_j As Integer
Dim A As Integer
Dim j As Integer
for j=1 to n do
Cells (D7) - Cells(D8) + Cells(D9) = inventaire_j
If inventaire_j > A Then Cells(D10).Value = Date + j
Else: j = j + 1
End If
End Sub
Merci à tous les courageux qui mettront les mains dans ce cambouï!
Cordialement,
3 réponses
Bonjour,
Voici le code nettoyer !
n.b. La variable [n] est inconnu et non initialiser/renseigner/affecter
......La variable [A] est connu mais non initialiser/renseigner/affecter
......Le mot [Date] est un mot réservé que l'on ne peut utiliser comme nom de variable, etc...
deplus, ne pouvant connaître le contexte, je vous souligne toutefois,
que le calcul sur des dates peut devenir facilement compliquer !
Lupin
Voici le code nettoyer !
n.b. La variable [n] est inconnu et non initialiser/renseigner/affecter
......La variable [A] est connu mais non initialiser/renseigner/affecter
......Le mot [Date] est un mot réservé que l'on ne peut utiliser comme nom de variable, etc...
deplus, ne pouvant connaître le contexte, je vous souligne toutefois,
que le calcul sur des dates peut devenir facilement compliquer !
Public Sub Prevision(ByVal MaDate As Date)
Dim inventaire_j As Integer
Dim A As Integer
Dim j As Integer
For j = 1 To n
inventaire_j = [D7] - [D8] + [D9]
If inventaire_j > A Then
[D10].Value = MaDate + j
Else
j = j + 1
End If
Next
End Sub
'
Lupin
