Gestion FIFO (First In First Out)

[TheProdigy]

Bonjour à tous

J'ai trouvé ce code sur internet il semble intéressant mais il ne marche pas sur ma feuille Merci

Function FIFO(ProductCode As Range, UnitsSold As Range) As Currency
Dim StartCount As Range, UnitCost As Range, Products As Range, PurchaseUnits As Range
Dim Counter As Integer, RemainingUnits As Long, UnitsAccountedFor As Long
FIFO = 0
Set Products = Range("ProductCode")
Set StartCount = Range("StartCount")
Set UnitCost = Range("UnitCost")
Set PurchaseUnits = Range("PurchaseUnits")
UnitsAccountedFor = UnitsSold
For Counter = 1 To StartCount.Rows.Count
If ProductCode = Products(Counter, 1) Then
RemainingUnits = Application.WorksheetFunction.Max(0, StartCount(Counter, 1) + _
PurchaseUnits(Counter, 1) - UnitsAccountedFor)
FIFO = FIFO + UnitCost(Counter, 1) * RemainingUnits
UnitsAccountedFor = UnitsAccountedFor - (StartCount(Counter, 1) + _
PurchaseUnits(Counter, 1) - RemainingUnits)
End If
Next Counter
End Function

Merci de bien vouloir m'éclaircir pourquoi!
Bonne soirée!

 

[XCo]

Re : Gestion FIFO (First In First Out)

Bonsoir Adilprodigy

je suis pas expert mais deja la zone Range("xxx") n`existe pas ds ton file

donc il faut que tu definisses ta zone product ds ta feuill excel

Alors je sais pas si tu sais faire : Tu selectionne ta zone, tu fais ajouter name....

Moi je vois un probleme a ce niveau.Range("xxx") - zone de cells donc si t`as pas defini les zones , ca va pas le faire

a+

XCo

 

[TheProdigy]

Re : Gestion FIFO (First In First Out)

Merci pour votre message je vais essayer

 

[TheProdigy]

Re : Gestion FIFO (First In First Out)

Apparemment ça marche pas j'ai défini les colonnes en insérant le nom qui existe sur le code

 

[Mytå]

Re : Gestion FIFO (First In First Out)

Salut le Forum

Doublon de poste

le début ici : https://www.excel-downloads.com/threads/methode-fifo-sur-excel.70912/