Discussion :

[chabagrou]

bonjour tout le monde
sur un calendrier crée sous un formulaire via l'Activex calendrier, je cherche à rendre invisible (ou simplement empécher la possibilité de choisir )les jours de week end et des jours fériés .

voilà mon code :

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
Function EstFerie(ByVal QuelleDate As Date) As Boolean
Dim anneeDate As Integer
Dim joursFeries(1 To 8) As Date
Dim I As Integer
Dim jourouvré As Date
  anneeDate = Year(QuelleDate)
 
  joursFeries(1) = DateSerial(anneeDate, 1, 1)
  joursFeries(2) = DateSerial(anneeDate, 5, 1)
  joursFeries(3) = DateSerial(anneeDate, 5, 8)
  joursFeries(4) = DateSerial(anneeDate, 7, 14)
  joursFeries(5) = DateSerial(anneeDate, 8, 15)
  joursFeries(6) = DateSerial(anneeDate, 11, 1)
  joursFeries(7) = DateSerial(anneeDate, 11, 11)
  joursFeries(8) = DateSerial(anneeDate, 12, 25)
 
  For I = 1 To 8
 
          '    MsgBox (joursFeries(I))
 
  Next
 
End Function
Private Sub Calendar0_Updated(Code As Integer)
If Calendar0.Value = joursFeries(I) Or Calendar0.Value = vbSunday Or Calendar0.Value = vbSaturday Then
Calendar0.Visible = False
Else
Calendar0.Visible = True
End If
End Sub

merci d'avance pour votre aide

[random]

estferie ne renvoie rien ?
et le lundi de paques ?
et l'ascencion ?
paîen !!

[chabagrou]

en fait j'ai enlevé le lundi de paques puisqu'il est plus férié et la fonction Estferie ne me renvois rien
je sais pas en fait comment faire je suis un grand débutant

[random]

le lundi de paques est toujours férié

[Arkham46]

bjr,

c'est le lundi de pentecôte qui n'est plus férié...

sinon ne touche pas aux fonctions de la faq (surtout si tu ne les comprend pas)
copie les sans les modifier

si tu veux supprimer le lundi de pentecôte, retire la ligne :

Code :

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

joursFeries(11) = joursFeries(9) + 49 ' Lundi Pentecôte = lundi de Paques + 49

ensuite l'événement à utiliser est "Avant mise à jour"
le paramètre Cancel permet d'annuler la mise à jour

Code :

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

1
2
3
4
5
6
Private Sub Calendar0_BeforeUpdate(Cancel As Integer)
' Si jour férié ou week end
If EstFerie(Calendar0.Value) Or WeekDay(Calendar0.Value, vbSaturday) < 3 Then
    Cancel = True
End If
End Sub

[chabagrou]

merci bcp ça marche impécable
bonne soirée