erreur création fonction

tibibs · 12 Juillet 2012

Bonjour,

J'aimerais créer ma propre fonction mais j'ai une erreur.

Erreur de compilation :

Sub, Function ou property attendue

voici le code :

Code:

Function PASSER_LUNDI(Date_reference As Date, duree_phase As Integer) As Date
Dim fin As Date
Application.Run Joursem
If Joursem(Date_reference + duree_phase, 2) = 6 Then
fin = Date_reference + duree_phase + 2
ElseIf Joursem(Date_reference + duree_phase, 2) = 7 Then
fin = Date_reference + duree_phase + 2
Else
fin = Date_reference + duree_phase

End If
Return: fin


End Function

quelqu'un a une idée?

Staple1600 · 24 Juillet 2012

Re : erreur création fonction

Bonjour

J'ai essayé d'écrie autement ce que j'ai compris de ton code

Code:

Function PASSER_LUNDI(DREF As Date, Duree%) As Date
PASSER_LUNDI = IIf(Weekday(DREF + Duree, 2) >= 6, DREF + Duree + 2, DREF + Duree)
End Function

Est-ce le résultat souhaité?

tibibs · 24 Juillet 2012

Re : erreur création fonction

oui, c'était ça, sauf qu'il y avait le cas du dimanche en plus.
sinon mon véritable blocage était que la fonction renvoie la variable du même non, et il ne fallait pas employer return

merci en tout cas

erreur création fonction

tibibs

XLDnaute Nouveau

Staple1600

XLDnaute Barbatruc

tibibs

XLDnaute Nouveau

Discussions similaires