Discussion :

[stmastma]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[rvtoulon]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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+

[PMO2017]

Bonjour,

Peut être remplacer

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ReDim tableaudimanchepaque(1970 To 2000)

par

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ReDim tableaudimanchepaque(1970 To 2100)

Cordialement.

PMO
Patrick Morange