Boucle while inaccessible
Résolu
Mouaffak_Mohammed
Messages postés
20
Statut
Membre
-
Mouaffak_Mohammed Messages postés 20 Statut Membre -
Mouaffak_Mohammed Messages postés 20 Statut Membre -
Bonjour,
je ne sais pas pourquoi la boucle while au milieu n'est pas accessible !!
ce while :
While .Range("J2").Offset(j, 0) = .Range("J2").Offset(j + 1, 0)
Sum = Sum + .Range("K2").Offset(j + 1, 0)
j = j + 1
Wend
Merci de votre aide
je ne sais pas pourquoi la boucle while au milieu n'est pas accessible !!
ce while :
While .Range("J2").Offset(j, 0) = .Range("J2").Offset(j + 1, 0)
Sum = Sum + .Range("K2").Offset(j + 1, 0)
j = j + 1
Wend
Public Function StockSecurite(Depot, Base_Oil, Transaction, Year, Week)
Dim i As Long
Dim j As Long
Dim w As Worksheet
Dim Sum As Double
Dim Max As Double
Set w = Worksheets("Donnees")
i = 0
j = 0
Max = 0
With w
While .Range("I2").Offset(i, 0) <> ""
If .Range("J2").Offset(i, -9) = Depot And .Range("J2").Offset(i, -8) = Base_Oil And .Range("J2").Offset(i, -6) = Transaction And .Range("J2").Offset(i, -3) = Year And .Range("J2").Offset(i, -1) = Week Then
tot = tot + .Range("K2").Offset(i, 0)
Sum = .Range("K2").Offset(i, 0)
While .Range("J2").Offset(j, 0) = .Range("J2").Offset(j + 1, 0)
Sum = Sum + .Range("K2").Offset(j + 1, 0)
j = j + 1
Wend
End If
i = i + 1
Wend
End With
'StockSecurite = (Max - tot / 7) * 7
StockSecurite = Sum
End Function
Merci de votre aide
3 réponses
-
Salut le Forum
Merci de clore ton autre ficelle et de remercier les répondants.
Ta boucle ne s'exécutera que si toutes les conditions sont réuniesIf .Range("J2").Offset(i, -9) = Depot And .Range("J2").Offset(i, -8) = Base_Oil And .Range("J2").Offset(i, -6) = Transaction And .Range("J2").Offset(i, -3) = Year And .Range("J2").Offset(i, -1) = Week then
Mytå -
Bonjour
Voila ce que je veux exactement
Dans le fichier simplifié joint (je l'ai partagé sous forme d'image, je sais pas si c'est possible de partager des docs! ) , il y a week , Date, et quantité , je souhaite calculé cette formule , q = Max quantité journalière - quantité totale hebdomadaire/7
avec :
pour le max, il faut sommer les quantités qui ont les mêmes dates, et les comparer pour déterminer le max.
Merci de votre aide !-
RE le Forum
Pour joindre un fichier utilise https://www.cjoint.com/
et recopie le lien fourni dans ton prochain message.
Mytå -
-
-
-
-
Bonjour,
Ah oui , voila le fichier rectifié.
https://www.cjoint.com/?3CzqfuVnGe8
Merci de votre Aide -
-
-
-
