Problème VBA code

Bonjour,
je suis en train de bosser un peu de vba excel.

Malheureusement j'obtiens une erreur et je ne vois pas comment l'utiliser
J'ai la fonction suivante :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53

Function estjourtravaille(jour As Date) As Boolean Static tableaudimanchepaque() As Double Dim itest As Integer Dim i As Integer   On Error Resume Next itest = UBound(tableaudimanchepaque)   On Error GoTo 0   If itest = 0 Then   ReDim tableaudimanchepaque(1970 To 2000) For i = 1970 To 2100 Step 1   tableaudimanchepaque(i) = dimanchedepaque(i) Next i End If   If Weekday(jour) = 7 Then 'samedi estjourtravaille = False   If Weekday(jour) = 1 Then 'dimanche estjourtravaille = False   ElseIf Day(jour) = 25 And Month(jour) = 12 Then '25 decembre estjourtravaille = False   ElseIf Day(jour) = 26 And Month(jour) = 12 Then '26 decembre estjourtravaille = False   ElseIf Day(jour) = 1 And Month(jour) = 1 Then '1 janvier estjourtravaille = False   ElseIf Day(jour) = 1 And Month(jour) = 5 Then '1 mai estjourtravaille = False   ElseIf jour = tableaudimanchepaque(Year(jour)) - 2 Then 'vendredi saint estjourtravaille = False   ElseIf jour = tableaudimanchepaque(Year(jour)) + 1 Then 'lundi de pâques estjourtravaille = False   Else   estjourtravaille = True   End If   End Function

---

Slt sans les balises de code (c'est le bouton # lorsque tu écris un message) pas évident de relire ton code.
De ce que je vois c peut-être une erreur de frappe il y a deux fois

Code:

---

End Function

---

Un seul suffit.
ensuite ici entre les deux If Il manque un "END IF" ou alors remplace le deuxième IF par un ELSEIF :

Code:

---

1 2 3 4 5

If Weekday(jour) = 7 Then 'samedi estjourtravaille = False 'Met ici soit end if soit elseIf If Weekday(jour) = 1 Then 'dimanche estjourtravaille = False

---

voila pour commencer
A+

Bonjour,

Peut être remplacer

Code:

---

ReDim tableaudimanchepaque(1970 To 2000)

---

par

Code:

---

ReDim tableaudimanchepaque(1970 To 2100)

---

Cordialement.

PMO
Patrick Morange