SOS VBA Résolu/Fermé

Question

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,

Utilisateur anonyme · Answer

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 !


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

xtw461 · Answer

merci beaucoup!!
tout parait si simple...une fois que c fait!
tu me tire une sacrée épine du pied...

Utilisateur anonyme · Answer

re :

Ça fait plaisir de lire ces paroles :-)

Merci de le dire ...

Lupin

SOS VBA

3 réponses

Discussions similaires