XL 2016 fériés 2000 à 2100

Créer une discussion
Répondre

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
eastwick

eastwick

XLDnaute Accro
Bonjour à toutes et tous,
Existe-t-il sur le forum un fichier répertoriant tous les jours fériés allant du 01/01/2000 au 31/12/2100 ?
Attention je ne demande pas la méthode pour calculer ceux dont la date n'est pas fixe (fériés religieux)
Je vous remercie.
 
Trier par date Trier par votes
eastwick à dit:
Existe-t-il sur le forum un fichier répertoriant tous les jours fériés allant du 01/01/2000 au 31/12/2100 ?
Attention je ne demande pas la méthode pour calculer ceux dont la date n'est pas fixe (fériés religieux)
Cliquez pour agrandir...
Vu que ça se calcule, tu dois pouvoir te faire une tableau qui les liste.
Ce que je veux dire, c'est que du coup je ne comprends ce que tu veux obtenir exactement. 🙁 Peux-tu détailler un peu plus ?

Attention, on me dit qu'il y a déjà un jour qui est "plus ou moins" férié, et que deux autres pourraient très prochainement basculer dans le même état...
 
Dernière édition:
Vote positif 0 Vote négatif
Code: 
Function EstJourFerie(dateVerif As Date) As Boolean
    ' Fonction pour vérifier si une date est un jour férié en France
    ' Paramètre : dateVerif - la date à vérifier
    ' Retour : True si c'est un jour férié, False sinon
 
    Dim annee As Integer
    Dim paques As Date
    Dim lundiPaques As Date
    Dim ascension As Date
    Dim lundiPentecote As Date
 
    annee = Year(dateVerif)
 
    ' Calcul de la date de Pâques (algorithme de Gauss)
    paques = CalculerPaques(annee)
    lundiPaques = paques + 1
    ascension = paques + 39
    lundiPentecote = paques + 50
 
    ' Vérification des jours fériés fixes
    Select Case Month(dateVerif) & "-" & Day(dateVerif)
        Case "1-1"      ' Jour de l'An
            EstJourFerie = True
        Case "5-1"      ' Fête du Travail
            EstJourFerie = True
        Case "5-8"      ' Fête de la Victoire
            EstJourFerie = True
        Case "7-14"     ' Fête Nationale
            EstJourFerie = True
        Case "8-15"     ' Assomption
            EstJourFerie = True
        Case "11-1"     ' Toussaint
            EstJourFerie = True
        Case "11-11"    ' Armistice
            EstJourFerie = True
        Case "12-25"    ' Noël
            EstJourFerie = True
        Case Else
            ' Vérification des jours fériés mobiles (dépendant de Pâques)
            If dateVerif = lundiPaques Or _
               dateVerif = ascension Or _
               dateVerif = lundiPentecote Then
                EstJourFerie = True
            Else
                EstJourFerie = False
            End If
    End Select
End Function

Function CalculerPaques(annee As Integer) As Date
    ' Calcul de la date de Pâques selon l'algorithme de Gauss
    Dim a As Integer, b As Integer, c As Integer, d As Integer, e As Integer
    Dim f As Integer, g As Integer, h As Integer, i As Integer, k As Integer
    Dim l As Integer, m As Integer, n As Integer, p As Integer
 
    a = annee Mod 19
    b = Int(annee / 100)
    c = annee Mod 100
    d = Int(b / 4)
    e = b Mod 4
    f = Int((b + 8) / 25)
    g = Int((b - f + 1) / 3)
    h = (19 * a + b - d - g + 15) Mod 30
    i = Int(c / 4)
    k = c Mod 4
    l = (32 + 2 * e + 2 * i - h - k) Mod 7
    m = Int((a + 11 * h + 22 * l) / 451)
    n = Int((h + l - 7 * m + 114) / 31)
    p = (h + l - 7 * m + 114) Mod 31
 
    CalculerPaques = DateSerial(annee, n, p + 1)
End Function

' Fonction bonus : obtenir la liste de tous les jours fériés d'une année
Function ListeJoursFeries(annee As Integer) As String
    ' Retourne la liste des jours fériés pour une année donnée
    Dim paques As Date
    Dim liste As String
 
    paques = CalculerPaques(annee)
 
    liste = "Jours fériés pour l'année " & annee & ":" & vbCrLf
    liste = liste & "• 1er janvier : Jour de l'An" & vbCrLf
    liste = liste & "• " & Format(paques + 1, "dd/mm") & " : Lundi de Pâques" & vbCrLf
    liste = liste & "• 1er mai : Fête du Travail" & vbCrLf
    liste = liste & "• 8 mai : Fête de la Victoire" & vbCrLf
    liste = liste & "• " & Format(paques + 39, "dd/mm") & " : Ascension" & vbCrLf
    liste = liste & "• " & Format(paques + 50, "dd/mm") & " : Lundi de Pentecôte" & vbCrLf
    liste = liste & "• 14 juillet : Fête Nationale" & vbCrLf
    liste = liste & "• 15 août : Assomption" & vbCrLf
    liste = liste & "• 1er novembre : Toussaint" & vbCrLf
    liste = liste & "• 11 novembre : Armistice" & vbCrLf
    liste = liste & "• 25 décembre : Noël" & vbCrLf
 
    ListeJoursFeries = liste
End Function

[Code]
 

Pièces jointes

Dernière édition:
Vote positif 0 Vote négatif
dysorthographie à dit:
Code: 
Function EstJourFerie(dateVerif As Date) As Boolean
    ' Fonction pour vérifier si une date est un jour férié en France
    ' Paramètre : dateVerif - la date à vérifier
    ' Retour : True si c'est un jour férié, False sinon
 
    Dim annee As Integer
    Dim paques As Date
    Dim lundiPaques As Date
    Dim ascension As Date
    Dim lundiPentecote As Date
 
    annee = Year(dateVerif)
 
    ' Calcul de la date de Pâques (algorithme de Gauss)
    paques = CalculerPaques(annee)
    lundiPaques = paques + 1
    ascension = paques + 39
    lundiPentecote = paques + 50
 
    ' Vérification des jours fériés fixes
    Select Case Month(dateVerif) & "-" & Day(dateVerif)
        Case "1-1"      ' Jour de l'An
            EstJourFerie = True
        Case "5-1"      ' Fête du Travail
            EstJourFerie = True
        Case "5-8"      ' Fête de la Victoire
            EstJourFerie = True
        Case "7-14"     ' Fête Nationale
            EstJourFerie = True
        Case "8-15"     ' Assomption
            EstJourFerie = True
        Case "11-1"     ' Toussaint
            EstJourFerie = True
        Case "11-11"    ' Armistice
            EstJourFerie = True
        Case "12-25"    ' Noël
            EstJourFerie = True
        Case Else
            ' Vérification des jours fériés mobiles (dépendant de Pâques)
            If dateVerif = lundiPaques Or _
               dateVerif = ascension Or _
               dateVerif = lundiPentecote Then
                EstJourFerie = True
            Else
                EstJourFerie = False
            End If
    End Select
End Function

Function CalculerPaques(annee As Integer) As Date
    ' Calcul de la date de Pâques selon l'algorithme de Gauss
    Dim a As Integer, b As Integer, c As Integer, d As Integer, e As Integer
    Dim f As Integer, g As Integer, h As Integer, i As Integer, k As Integer
    Dim l As Integer, m As Integer, n As Integer, p As Integer
 
    a = annee Mod 19
    b = Int(annee / 100)
    c = annee Mod 100
    d = Int(b / 4)
    e = b Mod 4
    f = Int((b + 8) / 25)
    g = Int((b - f + 1) / 3)
    h = (19 * a + b - d - g + 15) Mod 30
    i = Int(c / 4)
    k = c Mod 4
    l = (32 + 2 * e + 2 * i - h - k) Mod 7
    m = Int((a + 11 * h + 22 * l) / 451)
    n = Int((h + l - 7 * m + 114) / 31)
    p = (h + l - 7 * m + 114) Mod 31
 
    CalculerPaques = DateSerial(annee, n, p + 1)
End Function

' Fonction bonus : obtenir la liste de tous les jours fériés d'une année
Function ListeJoursFeries(annee As Integer) As String
    ' Retourne la liste des jours fériés pour une année donnée
    Dim paques As Date
    Dim liste As String
 
    paques = CalculerPaques(annee)
 
    liste = "Jours fériés pour l'année " & annee & ":" & vbCrLf
    liste = liste & "• 1er janvier : Jour de l'An" & vbCrLf
    liste = liste & "• " & Format(paques + 1, "dd/mm") & " : Lundi de Pâques" & vbCrLf
    liste = liste & "• 1er mai : Fête du Travail" & vbCrLf
    liste = liste & "• 8 mai : Fête de la Victoire" & vbCrLf
    liste = liste & "• " & Format(paques + 39, "dd/mm") & " : Ascension" & vbCrLf
    liste = liste & "• " & Format(paques + 50, "dd/mm") & " : Lundi de Pentecôte" & vbCrLf
    liste = liste & "• 14 juillet : Fête Nationale" & vbCrLf
    liste = liste & "• 15 août : Assomption" & vbCrLf
    liste = liste & "• 1er novembre : Toussaint" & vbCrLf
    liste = liste & "• 11 novembre : Armistice" & vbCrLf
    liste = liste & "• 25 décembre : Noël" & vbCrLf
 
    ListeJoursFeries = liste
End Function

[Code]
Cliquez pour agrandir...
Merci, je teste !
 
Vote positif 0 Vote négatif
Salut, remarques concernant la méthode de Gauss

Calcul de la date de Pâques selon Gauss​

La méthode de Carl Friedrich Gauss pour calculer la date de Pâques, bien qu'historique, présente certaines limites et peut donner des résultats erronés dans certains cas.

Limites de la méthode de Gauss​

  • Sauts d'épacte : La méthode de Gauss ne tient pas bien compte des sauts d'épacte pour la métemptose et la proemptose, ce qui peut entraîner des erreurs.
  • Exceptions : La méthode contient des exceptions qui peuvent être mal gérées, surtout pour les dates extrêmes.
  • Validité limitée : Bien que Gauss ait limité sa méthode à la période 1700-4099, des vérifications montrent qu'elle est valide pour les Pâques grégoriennes à partir de 1583.

Méthodes alternatives​

Pour des calculs plus précis, d'autres méthodes sont disponibles :
Méthode de Spencer Jones : Valide à partir de 1583, elle est décrite dans le livre Astronomical Algorithms de Jean Meeus.
Méthode de Meeus : Considérée comme plus fiable et universelle.

Conclusion​

Si vous utilisez la méthode de Gauss, il est recommandé de vérifier les résultats avec une autre méthode pour s'assurer de leur exactitude, surtout pour les dates extrêmes ou les années particulières.

à voir : calcul date de Pâques
 
Vote positif 0 Vote négatif
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

S
  • Question Question
XL 2019 Calculer dimanche de pâques puis insertion du 29 février
2
Réponses
26
Affichages
737
dysorthographie
dysorthographie
A
  • Question Question
XL 2016 Contrôle de la pose de 10 jours de congés consécutifs
Réponses
5
Affichages
855
djidji59430
djidji59430
O
  • Question Question
XL 2016 Compter des cellules dont les données sont consécutives
Réponses
9
Affichages
1 K
piga25
piga25
M
  • Question Question
XL 2016 Analyse prix suivant hypothèse QTT à produire volume annuel et date de démarrage fabrication
Réponses
4
Affichages
163
mam721
M
R
  • Question Question
Microsoft 365 Calcul des dates prévisionnelles
Réponses
1
Affichages
468
r3vzone
R
P
  • Question Question
Microsoft 365 Calcul heures fériés
Réponses
5
Affichages
1 K
pacalito85
P
O
  • Question Question
XL 2019 Code VBA pour automatiser la programmation des rotations des ouvriers qui travaillent à temps partiel et se relaient par période de temps constante.
2 3
Réponses
35
Affichages
2 K
olivier1984
O
Z
  • Question Question
XL 2021 InputBox and focus à la fin de la ligne d'une valeur par défaut
Réponses
4
Affichages
442
zedude
Z
K
  • Question Question
Microsoft 365 Gestion des jours fériés dans un calendrier perpétuel
Réponses
4
Affichages
858
kid
K
jeff1494
  • Question Question
XL 2021 Création d'un Tableau croisé dynamique en évitant de charger certaines lignes.
Réponses
4
Affichages
521
jeff1494
jeff1494
jeff1494
  • Question Question
XL 2021 Liste des propriétés de fichiers.
3 4 5
Réponses
73
Affichages
4 K
jeff1494
jeff1494
oguruma
POWERQUERY :: LES DATES REMARQUABLES
Réponses
5
Affichages
291
oguruma
oguruma
Usine à gaz
  • Question Question
Autres Google agenda : jours fériés soient toujours affichés (affichage par défaut)
Réponses
1
Affichages
810
fanch55
fanch55
S
  • Question Question
XL 2016 Différents calculs et graphiques
Réponses
8
Affichages
242
Stephane72
S
PatFr38
  • Résolu(e)
Microsoft 365 Masquer des colonnes aux cellules avec valeurs données selon sélection d'une liste déroulante
Réponses
5
Affichages
998
PatFr38
PatFr38
H
  • Question Question
XL 2021 *RESOLU* Calcul du nombre de jours de fractionnement
2
Réponses
15
Affichages
2 K
agnescoulon
A
D
  • Résolu(e)
Microsoft 365 Graphique avec plage de données glissante en partant d'une date
Réponses
5
Affichages
641
Dégé59
D
jeff1494
  • Question Question
XL 2021 Besoin de conseils pour une sélection de multiples éléments
2
Réponses
18
Affichages
1 K
jeff1494
jeff1494
A
  • Résolu(e)
Microsoft 365 Calcul du nombre de jours fériés entre deux dates
Réponses
8
Affichages
2 K
AlexAGEMS
A
K
  • Résolu(e)
Microsoft 365 Excel - férié, décalé les entretiens au jour ouvré avant le jour férié.
Réponses
14
Affichages
1 K
job75
job75
Retour