Discussion :

[vbafoxter]

Bonjour,

Je voudrais calculer le nombre de jours entre deux dates en créant une fonction vba qui utilise la fonction diffdate.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
Public Function test(d1 As Variant, d2 As Variant)
 
    test = DateDiff("d", d2, d1)
 
End Function

Quand j'utilise cette fonction dans une cellule j'ai l'erreur "#VALEUR!" qui s'inscrit.
Quelqu'un peut-il m'éclairer?

Merci d'avance

[MarcClap]

Bonjour,

Il faut mettre un point-virgule et non deux points entre A1 et B1.

On doit passer deux valeurs (donc séparées par un point virgule) et non une plage.

[vbafoxter]

Merci pour ta réponse mais j'ai testé cette possibilité et ça ne fonctionne pas.

Il aurait-il autre chose à faire?

[MarcClap]

Ben pourtant ....

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Public Function test(d1 As Variant, d2 As Variant)
 
    test = DateDiff("d", d2, d1)
 
End Function

Est ce que ta fonction est bien dans un module du même classeur ?

Est ce que tu n'as pas une autre fonction ou procédure (sub) qui porte déjà le nom "test" ?

Et quand tu dis "ça ne marche pas", concrètement, il se passe quoi ?

[vbafoxter]

Voilà ce que j’obtiens :

[MarcClap]

OK, as tu vérifié les autres points :
- Est ce que ta fonction est bien dans un module du même classeur ?
- Est ce que tu n'as pas une autre fonction ou procédure (sub) qui porte déjà le nom "test" ?

[Philippe Tulliez]

Bonjour,
Ce n'est pas pour casser l'ambiance mais je t'avoue ne pas comprendre l'utilité de passer par une fonction personnalisée qui fait exactement la même chose qu'une fonction native d'excel même si celle-ci en particulier est une fonction non officielle.
De plus, s'il s'agit de calculer la différence en jours entre deux dates, une simple soustraction de la date la plus ancienne par la date la plus récente suffit.

Revenons maintenant à la fonction Test que tu as écrite.
Si tu avais utilisé des noms plus explicites pour tes arguments tu aurais évité l'erreur que tu as commise en les alimentant. C'est juste une inversion.

[vbafoxter]

J'ai vérifié tous les points, la fonction est dans un module du même classeur et j'ai validé un autre nom pour éviter toute confusion. Çà ne change rien.

Pourquoi cette fonction?
Parce que j'ai souvent à déterminer le nombre de mois et d'années qui séparent deux dates. Je suis parti sur cette fonction vba qui correspond à mes besoins pour l'instant.
Mais j'aimerai comprendre ce qui ne va pas...

Si vous avez des idées...

[MarcClap]

Ce que veut dire Philippe (j'espère ne pas trahir sa pensée ^^) c'est que tu n'as pas besoin de faire une fonction pour avoir ton résultat. Il te suffit, au lieu d'appeler ta fonction, d'écrire en C2 "=A1-B1"

[Philippe Tulliez]

Bonjour,
Il y avait deux questionnements dans ma réponse.
Effectivement pour calculer le nombre de jours, il suffit de faire une soustraction mais il y avait aussi le fait qu'il existe une fonction non officielle d'excel nommée DATEDIF qui calcule également l'écart entre deux dates donc pourquoi passer par une fonction personnelle
Calcul la différence en jour

=DATEDIF(I2;J2;"d")

Calcul la différence en année

=DATEDIF(I2;J2;"y")

etc.
Faire une recherche sur internet pour les autres options d'écart

[clementmarcotte]

Bonjour,

d'écrire en C2 "=A1-B1"

Oui et non. Excel calcule le nombre de jours en se basant sur l'habitude nord-américaine qui veut que le premier jour ne compte pas; ou autrement dit, le premier jour c'est le lendemain du jour où est survenu l'événement correspondant au délai à mesurer.

[MarcClap]

En l’occurrence, la soustraction donnait bien le même résultat que la fonction proposée par vbafoxter

[Philippe Tulliez]

Bonjour Clément,

Excel calcule le nombre de jours en se basant sur l'habitude nord-américaine qui veut que le premier jour ne compte pas; ou autrement dit, le premier jour c'est le lendemain du jour où est survenu l'événement correspondant au délai à mesurer.

Tu as tout à fait raison, j'aurais dû être plus précis. Il faut faire une soustraction augmentée de 1 si l'on considère que la soustraction de deux dates identiques doit renvoyer 1.
Cependant pour moi si je soustrais la date de demain et celle d'aujourd'hui, je considère qu'il y a bien un jour de décalage et donc la soustraction normale me suffit. Maintenant s'il s'agit de facturer des journées de travail il faut penser à ajouter 1.

[Menhir]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Public Function test(d1 As Variant, d2 As Variant)

Peut-être en déclarant la fonction plus proprement

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Public Function test(d1 As Double, d2 As Double) As Long

Parce que si tu balances une référence de cellule sur un Variant, VBA doit sans doute tirer à pile-ou-face pour savoir s'il faut récupérer la valeur ou la référence de cellule.

[eriiic]

Bonjour,

Peut-être en déclarant la fonction plus proprement

Tant qu'à faire As Date vu que c'en est ;-)

Si ce n'est pas suffisant tu devrais aller voir dans 'panneau de config / region et langue / formats / paramètres supplémentaires... / nombres' que ton séparateur de liste soit bien le ; (ou la , si version anglaise, mais surtout pas : ).
eric

[vbafoxter]

Super idée eriiic!!!!

C'est bien ça ! la fonction fonctionne maintenant

Merci à tous

[eriiic]

Oui, ça me gênait qu'en correction il ne te propose qu'un seul argument, alors que ta fonction en a clairement 2.
eric