XL 2016 Verification FIFO

[GiniVBA]

Bonjour,

J’y suis depuis des heures et ne parviens pas à trouver une solution. Assez frustrant car il n'y a que 3 colonnes !!

Il ne s'agit pas d'une valorisation FIFO mais d'une vérification FIFO (First In First Out).


Si un instrument A entre dans mon stock le 1er aout et sort du stock le 5 aout, je veux m'assurer qu'aucun instrument qui soit entré dans mon stock le 2 aout ne soit sorti avant l’instrument A. Dans la pratique c’est le cas et mon but est de valoriser le nombre d’instruments pour lesquels le FIFO n’a pas été respecté.


Colonne A = Date de sortie

Colonne B = Date d’entrée

Colonne C = Nombre d’instruments

DATE_OUT	DATE_IN	NUMBER
04/08/2021​	02/08/2021​	9​
04/08/2021​	03/08/2021​	27​
04/08/2021​	04/08/2021​	27​
05/08/2021​	01/08/2021​	5​
05/08/2021​	02/08/2021​	6​
05/08/2021​	03/08/2021​	19​

Par exemple, des instruments sont sortis le 05/08 alors qu’ils étaient en stock depuis le 01/08 alors que des instruments entrés le 04/08 sont sortis le jour même.


Je suis convaincu qu'il existe une formule via Index / Match / Large / Small mais je ne la trouve pas.


Par avance merci beaucoup pour votre aide.

 

[vgendron]

Bonjour

un essai par macro??

Sub fifo()
With ActiveSheet
    fin = .Range("A" & .Rows.Count).End(xlUp).Row
    tabdata = .Range("A2:D" & fin).Value
    
    For i = LBound(tabdata, 1) To UBound(tabdata, 1)
        For j = LBound(tabdata, 1) To UBound(tabdata, 1)
            If i = j Then
            
            Else
                If tabdata(j, 2) >= tabdata(i, 2) And tabdata(j, 1) <= tabdata(i, 1) Then
                    tabdata(i, 4) = "Not FIFO"
                End If
            End If
        Next j
    Next i
    .Range("A2").Resize(UBound(tabdata, 1), UBound(tabdata, 2)) = tabdata
End With
End Sub

 

[GiniVBA]

Bonjour,
tout d'abord merci pour l'input.
Je pense que c'est un piste mais dans ce cas il faudrait revenir a la donnee initiale. L'exemple que j'ai mis etait un agregat du total des items par jour de sortie / jour d'entree.
Quand je tente cette macro sur la donnee source tout est en Non FIFO (cf PJ).
Mais cela pourrait etre une bonne piste oui !

 

[vgendron]

je pense qu'il faut jouer avec l'inégalité stricte ou pas..

If tabdata(j, 2) >= tabdata(i, 2) And tabdata(j, 1) < tabdata(i, 1) Then

Dans ton nouvel exemple.. avec la ligne de code ci dessus: tout est FIFO (colonne D reste vide)
il faudrait que tu mettes plusieurs exemples avec plusieurs résultats différents pour pouvoir tester correctement (et mettre en colonne E par exemple: le résultat attendu)

 

[GiniVBA]

Bonjour,
merci pour votre retour.
Je me rends compte que mon exemple n'est pas parfait mais que vos commentaires m'ont permis de voir que ce n'etait pas faisable en tant que tel... A partir du premier instrument pour lequel le FIFO n'est pas respecte, aucun instrument derriere ne va respecter le FIFO !
MErci encore.