fonction excel et maitrise des dates

[philppe27]

Bonjour,

J'essaie de créer une fonction excel dans laquelle je dois manipuler des dates. Voici ma fonction:
Function DepreciationBV(PrixStock, DernEntree, CMJ, Stock, PrevCommande, Optional DateDepreciation)
Application.Volatile True

If DateDepreciation = "" Then DateDepreciation = Date

If Stock = 0 Or DernEntree > DateSerial(Year(DateDepreciation), Month(DateDepreciation) - 3, Day(DateDepreciation)) Then
DepreciationBV = 0
ElseIf PrevCommande >= Stock Or (CMJ * 20) > Stock Then
DepreciationBV = 0
ElseIf DernEntree < DateSerial(Year(DateDepreciation), Month(DateDepreciation) - 6, Day(DateDepreciation)) Then
DepreciationBV = (Stock - PrevCommande) * PrixStock
Else
DepreciationBV = (Stock - PrevCommande) * PrixStock * 0.5
End If

End Function

Le valeur de la cellule retournée est #VALEUR!, en approfondissant les lignes de code qui posent posent problèmes sont celle où il y a DateDepreciation, Date et DateSerial.

Merci de m'indiquer où se trouve le ou les problèmes.

Cordialement

 

[dg62]

Re : fonction excel et maitrise des dates

Bonjour

 Function DepreciationBV(PrixStock, DernEntree, CMJ, Stock, PrevCommande, Optional DateDepreciation)
    Application.Volatile True

Dim Ndate1 as date
Dim Ndate2 as date

Ndate1=DateSerial(Year(DateDepreciation), Month(DateDepreciation) - 3, Day(DateDepreciation)) 
    Ndate2=DateSerial(Year(DateDepreciation), Month(DateDepreciation) - 6, Day(DateDepreciation)) 

    If DateDepreciation = "" Then DateDepreciation = Date
    
    If Stock = 0 Or DernEntree > Ndate1 Then
        DepreciationBV = 0
    ElseIf PrevCommande >= Stock Or (CMJ * 20) > Stock Then
        DepreciationBV = 0
    ElseIf DernEntree < Ndate2 Then
        DepreciationBV = (Stock - PrevCommande) * PrixStock
    Else
        DepreciationBV = (Stock - PrevCommande) * PrixStock * 0.5
    End If
    
End Function

Faire un essai en écrivant le code de cette façon.

 

[Catrice]

Re : fonction excel et maitrise des dates

Bonsoir,

Sans trop comprendre la formule, elle fonctionne tres bien pour les 3 premieres conditions mais je n'arrive pas à atteindre la condition Else qui calcule :
DepreciationBV = (Stock - PrevCommande) * PrixStock * 0.5

Les #VALEUR viennent peut etre de date incorrectes dans les cellules.
20/12/2007 au lieu de 12/20/2007 suivant les parametres regionnaux par exemple.

Il faudrait que tu attaches un fichier avec un exemple.

 

[philppe27]

Re : fonction excel et maitrise des dates

Merci pour vos réponses.
Didier j'ai essayé avec ton code mais j'ai le même souci.
Catrice je mets le fichier avec la formule dans la colonne H.

Merci d'avance,

Cordialement

 

[Catrice]

Re : fonction excel et maitrise des dates

Bonsoir,

C'est à cause de l'argument DateDepreciation qui est Optional.
Il faut lui donner une valeur par défaut.
Dans la description de fonction ecrire :

Function DepreciationBV(PrixStock, DernEntree, CMJ, Stock, PrevCommande, Optional DateDepreciation = "")

Ou bien renseigner tous les arguments de la fonction dans la feuille de calcul.
=DepreciationBV1(B1;B2;B3;B4;B5;B6)
ou
=DepreciationBV(C1;C2;C3;C4;C5;"")

 

[philppe27]

Re : fonction excel et maitrise des dates

Merci c'est parfait...