erreur création fonction

[tibibs]

Bonjour,

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

Erreur de compilation :

Sub, Function ou property attendue

voici le 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]

Re : erreur création fonction

Bonjour

J'ai essayé d'écrie autement ce que j'ai compris de ton 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]

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