XL 2016 Retrouver une date d'arrivée ou un délai en fonction d'un stock (INDEX+EQUIV?)

LVB77 · 23 Janvier 2018

Bonjour à tous,

Et merci d'avance à tous ceux qui voudront bien se pencher sur ma problématique.

A partir d'un tableau composé de la façon ci-dessous :

1ère colonne = Date du jour
2ème colone = Flux entrants du jour (renseigner manuellement)
3 ème colonne = Production du jour (renseigner manuellement)
4ème colonne = Stock restant du jour (Stock S-1+Flux J-Prod J) (calcul auto)
5ème colone = Date du dernier flux reçu non traité (calcul à trouver)
6ème colonne= Délais (date du jour-date du dernier flux non traité) (ou calcul à trouver)

Je cherche à retrouver la date et le délais dans les cellules de la 4ème et 5ème colonne en fonction du stock.

L'exemple en PJ sera plus parlant.

J'imaginai partir du stock puis de compter le nombre de cellule en partant des flux renseigner le même jour puis de stopper la comptabilisation des cellules (en remontant) dès que la somme de cette plage dépasse le valeur du stock. Ainsi le nombre de cellules comptabilisées donnerait un nombre de jours que je pourrais soustraire à la date de la 1ère colonne.

Le problème c'est que les fonctions index, équiv et décaler avec une somme matricielle (plage dynamique sur la colonne B) que j'ai pu tester (via les recherches appropriées pourtant) me renvoient des erreurs.

Est-ce qu'un âme charitable veut bien m'aider ou me dire que :"je me fais des noeuds au cerveau pour rien car il y a plus bien plus simple comme méthode " ?

vgendron · 24 Janvier 2018

Bonjour,

La démarche n'est pas vraiment claire...

5ème colone = Date du dernier flux reçu non traité (calcul à trouver)

Qu'est ce qu'un flux NON traité??

vgendron · 24 Janvier 2018

je pense avoir compris finalement..
donc un essai avec une macro (par formule. je n'y arrive pas comme tu peux le voir dans ta feuille d'origine..)

d'ailleurs.. il y a une erreur dans ta colonne E..à la ligne 14

LVB77 · 24 Janvier 2018

vgendron à dit:
je pense avoir compris finalement..
donc un essai avec une macro (par formule. je n'y arrive pas comme tu peux le voir dans ta feuille d'origine..)

d'ailleurs.. il y a une erreur dans ta colonne E..à la ligne 14

Merci d’avoir fait pris le temps de te pencher sur ma problématique. Cela répond à mon besoin.
La macro fonctionne bien. Par contre elle ne garde pas les formules qui calculent le stock. Est-ce que c’est jouable de les conserver ?

vgendron · 24 Janvier 2018

remplace le code existant par celui ci

VB:

Sub DateDelai()

Dim tablo() As Variant
Fin = Range("E" & Rows.Count).End(xlUp).Row
If Fin <> 1 Then Range("E2:F" & Fin).ClearContents
tablo = Range("A1").CurrentRegion.Value
For i = UBound(tablo, 1) To LBound(tablo, 1) + 1 Step -1
    Stock = tablo(i, 4)
    j = i
    While Stock > 0
        Stock = Stock - tablo(j, 2)
        j = j - 1
    Wend
    tablo(i, 5) = tablo(j + 1, 1)
    tablo(i, 6) = tablo(i, 1) - tablo(i, 5) + 1
   
Next i

Range("E1").Resize(UBound(tablo, 1), 1) = Application.Index(tablo, , 5)
Range("F1").Resize(UBound(tablo, 1), 1) = Application.Index(tablo, , 6)

End Sub

LVB77 · 24 Janvier 2018

vgendron à dit:

remplace le code existant par celui ci

VB:

Sub DateDelai()

Dim tablo() As Variant
Fin = Range("E" & Rows.Count).End(xlUp).Row
If Fin <> 1 Then Range("E2:F" & Fin).ClearContents
tablo = Range("A1").CurrentRegion.Value
For i = UBound(tablo, 1) To LBound(tablo, 1) + 1 Step -1
    Stock = tablo(i, 4)
    j = i
    While Stock > 0
        Stock = Stock - tablo(j, 2)
        j = j - 1
    Wend
    tablo(i, 5) = tablo(j + 1, 1)
    tablo(i, 6) = tablo(i, 1) - tablo(i, 5) + 1
  
Next i

Range("E1").Resize(UBound(tablo, 1), 1) = Application.Index(tablo, , 5)
Range("F1").Resize(UBound(tablo, 1), 1) = Application.Index(tablo, , 6)

End Sub

Cool ! Les formules sont conservées. Malheureusement une partie des dates trouvées (du 01/01 au 14/01) ne sont pas bonnes. On dirait qu'il renvoie des dates en format anglais mais non. A partir du 15/01 c'est bon. Par contre les délais sont bons.
J'ai regardé dans la macro mais je ne maitrise pas les ubound et Lbound (si le problème vient de là). Peux tu m'en dire un peu plus sur les 2 dernières ligne STP ?

XL 2016 Retrouver une date d'arrivée ou un délai en fonction d'un stock (INDEX+EQUIV?)

LVB77

XLDnaute Nouveau

Pièces jointes

vgendron

XLDnaute Barbatruc

vgendron

XLDnaute Barbatruc

Pièces jointes

LVB77

XLDnaute Nouveau

vgendron

XLDnaute Barbatruc

LVB77

XLDnaute Nouveau

Discussions similaires