XL 2016 fériés 2000 à 2100

'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

'méthode Meeus/Jones/Butcher(dites la plus fiable)
Sub testMJB()
MsgBox PaquesMeeusJonebutcher(2025)
End Sub
Function PaquesMeeusJonebutcher(A As Integer) As Date
    PaquesMeeusJonebutcher = DateSerial(A, ((19 * (A Mod 19) + (A \ 100) - (A \ 100) \ 4 - ((A \ 100 + 8) \ 25) + 1 \ 3 + 15) Mod 30 + (32 + 2 * ((A \ 100) Mod 4) + 2 * ((A Mod 100) \ 4) - ((19 * (A Mod 19) + (A \ 100) - (A \ 100) \ 4 - ((A \ 100 + 8) \ 25) + 1 \ 3 + 15) Mod 30) - ((A Mod 100) Mod 4)) Mod 7 - 7 * (((A Mod 19 + 11 * ((19 * (A Mod 19) + (A \ 100) - (A \ 100) \ 4 - ((A \ 100 + 8) \ 25) + 1 \ 3 + 15) Mod 30) + 22 * ((32 + 2 * ((A \ 100) Mod 4) + 2 * ((A Mod 100) \ 4) - ((19 * (A Mod 19) + (A \ 100) - (A \ 100) \ 4 - ((A \ 100 + 8) \ 25) + 1 \ 3 + 15) Mod 30) - ((A Mod 100) Mod 4)) Mod 7)) \ 451)) + 114) \ 31, (((19 * (A Mod 19) + (A \ 100) - (A \ 100) \ 4 - ((A \ 100 + 8) \ 25) + 1 \ 3 + 15) Mod 30 + (32 + 2 * ((A \ 100) Mod 4) + 2 * ((A Mod 100) \ 4) - ((19 * (A Mod 19) + (A \ 100) - (A \ 100) \ 4 - ((A \ 100 + 8) \ 25) + 1 \ 3 + 15) Mod 30) - ((A Mod 100) _
                                        Mod 4)) Mod 7 - 7 * (((A Mod 19 + 11 * ((19 * (A Mod 19) + (A \ 100) - (A \ 100) \ 4 - ((A \ 100 + 8) \ 25) + 1 \ 3 + 15) Mod 30) + 22 * ((32 + 2 * ((A \ 100) Mod 4) + 2 * ((A Mod 100) \ 4) - ((19 * (A Mod 19) + (A \ 100) - (A \ 100) \ 4 - ((A \ 100 + 8) \ 25) + 1 \ 3 + 15) Mod 30) - ((A Mod 100) Mod 4)) Mod 7)) \ 451)) + 114) Mod 31) + 1)
End Function
'----------------------------------------------------------------------------------'
'méthode SpencerJones
Sub testSJ()
MsgBox PaquesSpencerJones(2025)
End Sub
Function PaquesSpencerJones(A As Integer) As Date
    PaquesSpencerJones = DateSerial(A, ((19 * (A Mod 19) + (A \ 100) - (A \ 100) \ 4 - ((A \ 100 + 8) \ 25) + 15) Mod 30 + (32 + 2 * ((A \ 100) Mod 4) + 2 * ((A Mod 100) \ 4) - ((19 * (A Mod 19) + (A \ 100) - (A \ 100) \ 4 - ((A \ 100 + 8) \ 25) + 15) Mod 30) - ((A Mod 100) Mod 4)) Mod 7 - 7 * (((A Mod 19 + 11 * ((19 * (A Mod 19) + (A \ 100) - (A \ 100) \ 4 - ((A \ 100 + 8) \ 25) + 15) Mod 30) + 22 * ((32 + 2 * ((A \ 100) Mod 4) + 2 * ((A Mod 100) \ 4) - ((19 * (A Mod 19) + (A \ 100) - (A \ 100) \ 4 - ((A \ 100 + 8) \ 25) + 15) Mod 30) - ((A Mod 100) Mod 4)) Mod 7)) \ 451)) + 114) \ 31, (((19 * (A Mod 19) + (A \ 100) - (A \ 100) \ 4 - ((A \ 100 + 8) \ 25) + 15) Mod 30 + (32 + 2 * ((A \ 100) Mod 4) + 2 * ((A Mod 100) \ 4) - ((19 * (A Mod 19) + (A \ 100) - (A \ 100) \ 4 - ((A \ 100 + 8) \ 25) + 15) Mod 30) - ((A Mod 100) Mod 4)) Mod 7 - 7 * (((A Mod 19 + 11 * ((19 * (A Mod 19) + (A \ 100) - (A \ 100) \ 4 - ((A \ 100 + 8) \ 25) + 15) Mod 30) + 22 * ((32 + 2 * ((A \ 100) Mod 4) + 2 * ((A Mod 100) \ 4) - _
                                    ((19 * (A Mod 19) + (A \ 100) - (A \ 100) \ 4 - ((A \ 100 + 8) \ 25) + 15) Mod 30) - ((A Mod 100) Mod 4)) Mod 7)) \ 451)) + 114) Mod 31) + 1)
End Function
'----------------------------------------------------------------------------------'
'méthode Gauss simplifié
Sub testG()
MsgBox PaquesGauss(2025)
End Sub
Function PaquesGauss(A As Integer) As Date
    PaquesGauss = CDate(((Round(DateSerial(A, 4, (234 - 11 * (A Mod 19)) Mod 30) / 7, 0) * 7) - 6))
End Function
'----------------------------------------------------------------------------------'

'fonction férié
Function férié(d As Date)
    Dim tbl(1 To 20) As Date, I&, tbl2(1 To 20), A
    tbl(1) = DateSerial(Year(d), 1, 1)
    A = Year(d)
    tbl(2) = DateSerial(A, ((19 * (A Mod 19) + (A \ 100) - (A \ 100) \ 4 - ((A \ 100 + 8) \ 25) + 1 \ 3 + 15) Mod 30 + (32 + 2 * ((A \ 100) Mod 4) + 2 * ((A Mod 100) \ 4) - ((19 * (A Mod 19) + (A \ 100) - (A \ 100) \ 4 - ((A \ 100 + 8) \ 25) + 1 \ 3 + 15) Mod 30) - ((A Mod 100) Mod 4)) Mod 7 - 7 * (((A Mod 19 + 11 * ((19 * (A Mod 19) + (A \ 100) - (A \ 100) \ 4 - ((A \ 100 + 8) \ 25) + 1 \ 3 + 15) Mod 30) + 22 * ((32 + 2 * ((A \ 100) Mod 4) + 2 * ((A Mod 100) \ 4) - ((19 * (A Mod 19) + (A \ 100) - (A \ 100) \ 4 - ((A \ 100 + 8) \ 25) + 1 \ 3 + 15) Mod 30) - ((A Mod 100) Mod 4)) Mod 7)) \ 451)) + 114) \ 31, (((19 * (A Mod 19) + (A \ 100) - (A \ 100) \ 4 - ((A \ 100 + 8) \ 25) + 1 \ 3 + 15) Mod 30 + (32 + 2 * ((A \ 100) Mod 4) + 2 * ((A Mod 100) \ 4) - ((19 * (A Mod 19) + (A \ 100) - (A \ 100) \ 4 - ((A \ 100 + 8) \ 25) + 1 \ 3 + 15) Mod 30) - ((A Mod 100) _
                                        Mod 4)) Mod 7 - 7 * (((A Mod 19 + 11 * ((19 * (A Mod 19) + (A \ 100) - (A \ 100) \ 4 - ((A \ 100 + 8) \ 25) + 1 \ 3 + 15) Mod 30) + 22 * ((32 + 2 * ((A \ 100) Mod 4) + 2 * ((A Mod 100) \ 4) - ((19 * (A Mod 19) + (A \ 100) - (A \ 100) \ 4 - ((A \ 100 + 8) \ 25) + 1 \ 3 + 15) Mod 30) - ((A Mod 100) Mod 4)) Mod 7)) \ 451)) + 114) Mod 31) + 1)
 
 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 dates
    
    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

'fonction férié de patricktoulon
Function férié(d As Date, Optional ReturnMode As Long = 1) As Variant
    Dim X As Boolean
    Static A&: Static paques As Date
    If A <> Year(d) Then
        A = Year(d)
        paques = DateSerial(A, ((19 * (A Mod 19) + (A \ 100) - (A \ 100) \ 4 - ((A \ 100 + 8) \ 25) + 1 \ 3 + 15) Mod 30 + (32 + 2 * ((A \ 100) Mod 4) + 2 * ((A Mod 100) \ 4) - ((19 * (A Mod 19) + (A \ 100) - (A \ 100) \ 4 - ((A \ 100 + 8) \ 25) + 1 \ 3 + 15) Mod 30) - ((A Mod 100) Mod 4)) Mod 7 - 7 * (((A Mod 19 + 11 * ((19 * (A Mod 19) + (A \ 100) - (A \ 100) \ 4 - ((A \ 100 + 8) \ 25) + 1 \ 3 + 15) Mod 30) + 22 * ((32 + 2 * ((A \ 100) Mod 4) + 2 * ((A Mod 100) \ 4) - ((19 * (A Mod 19) + (A \ 100) - (A \ 100) \ 4 - ((A \ 100 + 8) \ 25) + 1 \ 3 + 15) Mod 30) - ((A Mod 100) Mod 4)) Mod 7)) \ 451)) + 114) \ 31, (((19 * (A Mod 19) + (A \ 100) - (A \ 100) \ 4 - ((A \ 100 + 8) \ 25) + 1 \ 3 + 15) Mod 30 + (32 + 2 * ((A \ 100) Mod 4) + 2 * ((A Mod 100) \ 4) - ((19 * (A Mod 19) + (A \ 100) - (A \ 100) \ 4 - ((A \ 100 + 8) \ 25) + 1 \ 3 + 15) Mod 30) - ((A Mod 100) _
                            Mod 4)) Mod 7 - 7 * (((A Mod 19 + 11 * ((19 * (A Mod 19) + (A \ 100) - (A \ 100) \ 4 - ((A \ 100 + 8) \ 25) + 1 \ 3 + 15) Mod 30) + 22 * ((32 + 2 * ((A \ 100) Mod 4) + 2 * ((A Mod 100) \ 4) - ((19 * (A Mod 19) + (A \ 100) - (A \ 100) \ 4 - ((A \ 100 + 8) \ 25) + 1 \ 3 + 15) Mod 30) - ((A Mod 100) Mod 4)) Mod 7)) \ 451)) + 114) Mod 31) + 1)
    End If
   
    Select Case d
        Case DateSerial(Year(d), 1, 1): férié = "Jour de l'an": X = True
        Case paques: férié = "Pâques": X = True
        Case paques + 1: férié = "lundi de Paques": X = True
        Case paques + 39: férié = "Ascension": X = True '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
        Case paques + 50 = férié = "Lundi de Pentecôte": X = True '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.
        Case DateSerial(Application.Max(Year(d), 1919), 5, 1): férié = "Fête du travail": X = True '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
        Case DateSerial(Application.Max(Year(d), 1945), 5, 8): férié = "fete de la victioire ": X = True '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
        Case DateSerial(Year(d), 7, 14): férié = "Fête Nationale ": X = True '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
        Case DateSerial(Application.Max(Year(d), 1919), 11, 11): férié = "Armistice": X = True '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
        Case DateSerial(Year(d), 12, 25): férié = "Noël": X = True '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
            'ajouter des jours si besoins ici pour les dates
    End Select
   
    If ReturnMode = 0 Then férié = X
End Function

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

Sub test()
MsgBox férié(CDate("11/11/2025"), 0)
MsgBox férié(CDate("12/11/2025"), 0)
End Sub