Methode FiFo sur Excel

[TheProdigy]

Bonjour,

Je voudrais savoir si je dois traduir en français le code suivant ou non?
je l'ai trouvé sur internet 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

 

[Finance]

Re : Methode FiFo sur Excel

SUper le fichier, compréhensible, pourrais-tu faire idem pour LIFO?
Un grand merci d'avance!