'fonction férié
Function férié(d As Date)
Dim tbl(1 To 20) As Date, I&, tbl2(1 To 20)
tbl(1) = DateSerial(Year(d), 1, 1)
tbl(2) = CDate(((Round(DateSerial(Year(d), 4, (234 - 11 * (Year(d) Mod 19)) Mod 30) / 7, 0) * 7) - 6))
tbl(3) = tbl(2) + 39 'L'Ascension est une fête chrétienne fixée 40 jours après le dimanche de Pâques. Elle symbolise la montée de Jésus vers Dieu
tbl(4) = tbl(2) + 50 'Les apôtres ont alors dit : « L'Esprit du Seigneur est sur nous ». Elle clôt le temps pascal de 50 jours. La Pentecôte célèbre à la fois le commencement de l'Église, sa fondation, et l'émergence des premières communautés chrétiennes, au Ier siècle.
tbl(5) = DateSerial(Application.Max(Year(d), 1919), 5, 1) 'Le 23 avril 1919, le Sénat français ratifie la journée de huit heures et fait du 1er mai suivant, à titre exceptionnel, une journée chômée. Depuis, le 1er mai est resté le jour international des revendications ouvrières, donnant lieu à des défilés de travailleurs
tbl(6) = DateSerial(Application.Max(Year(d), 1945), 5, 8) 'Victoire des forces alliées sur l'Allemagne nazie et fin de la Seconde Guerre mondiale en Europe, le 8 mai 1945 marque une date importante. Pour le 80e anniversaire de la capitulation nazie
tbl(7) = DateSerial(Application.Max(Year(d), 1919), 11, 11) '11 novembre - Cérémonie commémorative de l'Armistice du 11 novembre 1918, de la Victoire et de la Paix et d'hommage à tous les Morts pour la France
tbl(8) = DateSerial(Year(d), 12, 25) 'au 4eme siecle les chrétiens on fixer la date de naissence de jesus christ au 25 décembre ,l'empereur Theodose l'a officialisé pour remplacer les fêtes païennes
tbl(9) = tbl(2) + 1
tbl(10) = DateSerial(Year(d), 7, 14) 'Le 14 juillet, pour sa double valeur symbolique, a finalement été privilégié. La prise de la Bastille en 1789 s'impose dans l'imaginaire collectif comme la victoire du peuple sur l'arbitraire royal, un événement adouci par la fête de 1790 et sa dimension fédératrice autour d'un événement commun
'ajouter des jours si besoins ici pour les date
tbl2(1) = "Jour de l'an"
tbl2(2) = "Pâques"
tbl2(3) = "Ascension"
tbl2(4) = "Pentecôte"
tbl2(5) = "Fête du travail"
tbl2(6) = "fete de la victioire "
tbl2(7) = "Armistice"
tbl2(8) = "Noel"
tbl2(9) = "Lundi de Pâques"
tbl2(10) = "Fête Nationale "
'ajouter des titres de jour férié si besoins ici qui doivent correspondre a la date dans le tbl au même index
'test
For I = 1 To UBound(tbl)
If (d) = (tbl(I)) Then férié = tbl2(I): Exit For
Next
End Function
Sub liste_Onlyférié()
'ici on a que les jours férié de lister dans la feuille
Dim d As Date, lig As Long
ActiveSheet.UsedRange.ClearContents
Application.ScreenUpdating = False
d = CDate("01/01/2000")
Do While d < CDate("31/12/2100")
d = d + 1
If férié(d) <> "" Then
lig = lig + 1
Cells(lig, 1) = d
Cells(lig, 2) = férié(d)
End If
Loop
Application.ScreenUpdating = True
End Sub