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.

[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