Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

fonction excel et maitrise des dates

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion philppe27
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
P

philppe27

XLDnaute Occasionnel
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
 
Trier par date Trier par votes
Re : fonction excel et maitrise des dates

Bonjour


Code: 
 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.
 
Dernière édition:
Vote positif 0 Vote négatif
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.
 
Vote positif 0 Vote négatif
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;"")
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

  • Question Question
Microsoft 365 datepicker dynamique intra userform ou dans feuille 2 versions(frame dynamique)(toute version d'excel )
6 7 8
Réponses
105
Affichages
5 K
Usine à gaz
G
  • Résolu(e)
XL 2021 VBA dates au mauvais format
Réponses
5
Affichages
699
vgendron
F
  • Question Question
Microsoft 365 Problème mémoire insuffisante
Réponses
5
Affichages
910
TooFatBoy
  • Question Question
XL 2021 Exportation feuille msgbox yes no avec module Thisworkbook
2
Réponses
21
Affichages
2 K
Nicolas JACQUIN
Dates & années bissextiles
Réponses
8
Affichages
947
patricktoulon
N
  • Question Question
Microsoft 365 appel des sous-routine
Réponses
3
Affichages
430
Dranreb
M
  • Question Question
Microsoft 365 Modifier code et format textbox
2 3
Réponses
35
Affichages
2 K
Marvin57
M
J
  • Question Question
Microsoft 365 macro qui ouvre des fichiers excel de type "analyze in excel" généré par power bi et met à jour un filtre "mois" sur plusieurs tcd
Réponses
0
Affichages
649
JJ69
J
  • Question Question
Microsoft 365 Trier des données et les afficher sur une autre feuille
Réponses
10
Affichages
711
Jojo973
U
  • Question Question
Autres {RÉSOLU] Problème macro
Réponses
2
Affichages
820
un internaute
U
U
  • Résolu(e)
Autres Mettre en couleur ligne avec VBA car MFC occupées (Excel 2003)
2
Réponses
15
Affichages
2 K
un internaute
U
  • Question Question
XL 2019 Input.Box et format des dates mm/dd ou dd/mm
Réponses
6
Affichages
1 K
job75
R
  • Résolu(e)
XL 2016 Colorer l'intérieur d'une cellule sélectionnée
2 3
Réponses
33
Affichages
3 K
p56
U
  • Question Question
Autres [RESOLU] Application.ScreenUpdating = False
Réponses
4
Affichages
1 K
un internaute
U
  • Question Question
XL 2013 VBA insérer des retours à la ligne dans un résultat
Réponses
1
Affichages
801
sylvanu
  • Suggestion Suggestion
Date et heure EcartDate
2 3
Réponses
32
Affichages
5 K
patricktoulon
  • Suggestion Suggestion
Date et heure DATEDIFF_AMJ4
2 3
Réponses
30
Affichages
4 K
patricktoulon
  • Question Question
XL 2016 Optimisation code agenda
Réponses
0
Affichages
1 K
Nicolas JACQUIN
A
  • Question Question
Microsoft 365 Lissage du budget sur nombre de jours du mois
2
Réponses
25
Affichages
4 K
aba2s
A
V
  • Question Question
XL 2016 [RESOLU] Traduction code VBA (code trouvé sur internet je ne comprend rien)
2
Réponses
17
Affichages
3 K
VBgalère
V
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…