Problème avec fonction de calcul de jours entre deux dates

Bonjour,

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

Code:

---

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

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.

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

Il aurait-il autre chose à faire?

Ben pourtant ....

Code:

---

1 2 3 4 5

Public Function test(d1 As Variant, d2 As Variant)   test = DateDiff("d", d2, d1)   End Function

---

Pièce jointe 323416

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 ?

Voilà ce que j’obtiens :
Pièce jointe 323420

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" ?

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.

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...

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"

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

Citation:

---

=DATEDIF(I2;J2;"d")

---

Calcul la différence en année

Citation:

---

=DATEDIF(I2;J2;"y")

---

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

Bonjour,

Citation:

---

Envoyé par MarcClap

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.

Pièce jointe 323453

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

Bonjour Clément,

Citation:

---

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.

Citation:

---

Envoyé par vbafoxter

Code:

---

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

---

Pièce jointe 323420

---

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

Code:

---

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.

Bonjour,

Citation:

---

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

Super idée eriiic!!!!

C'est bien ça ! la fonction fonctionne maintenant

Merci à tous:lol:

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