Note: The other languages of the website are Google-translated. Back to English
English English

Comment calculer la date de Pâques dans Excel?

doc calculer la date de Pâques 1

Comme nous le savons tous, les vacances de Pâques sont toujours le premier dimanche après la première pleine lune ecclésiastique qui survient le 21 mars ou après, de sorte que la date de Pâques de chaque année peut être différente de celle illustrée ci-dessous. Pour obtenir la date de Pâques spécifique d'une année donnée, cet article peut vous rendre service.

Calculer la date de Pâques d'une année donnée avec la formule

Calculer la date de Pâques d'une année donnée avec la fonction définie par l'utilisateur


flèche bleue bulle droite Calculer la date de Pâques d'une année donnée avec la formule

Pour obtenir la date de Pâques d'une année donnée, la formule suivante peut vous aider, procédez comme suit:

1. Entrez cette formule: =FLOOR("5/"&DAY(MINUTE(A2/38)/2+56)&"/"&A2,7)-34 dans une cellule vide à côté de votre année donnée, B2, par exemple, voir capture d'écran:

doc calculer la date de Pâques 2

2. Ensuite, faites glisser la poignée de recopie vers les cellules dans lesquelles vous souhaitez calculer la date de Pâques de la date donnée, et des nombres à cinq chiffres sont affichés dans les cellules, voir capture d'écran:

doc calculer la date de Pâques 3

3. Et puis vous devez formater les nombres au format de date:

(1.) Sélectionnez les numéros à 5 chiffres et faites un clic droit pour choisir Format de cellule depuis le menu contextuel;

(2.) Dans le sauté Format de cellule boîte de dialogue, cliquez sur Numéro onglet et sélectionnez Date du Catégories volet, puis choisissez un format de date que vous aimez dans la zone de liste de droite, voir capture d'écran:

doc calculer la date de Pâques 4

4. Et puis, les nombres ont été formatés comme le format de date dont vous avez besoin, et vous pouvez obtenir la date de Pâques de l'année donnée, voir capture d'écran:

doc calculer la date de Pâques 5

Conseils: Pour formater les nombres au format de date utilisé normalement, vous pouvez également utiliser l'utilitaire Appliquer le formatage de la date de Kutools for Excel comme illustré ci-dessous:

doc calculer la date de Pâques 6


flèche bleue bulle droite Calculer la date de Pâques d'une année donnée avec la fonction définie par l'utilisateur

Fonction définie par l'utilisateur peut également vous aider à calculer la date de Pâques d'une année spécifique.

1. Maintenez le ALT + F11 clés, puis il ouvre le Microsoft Visual Basic pour applications fenêtre.

2Cliquez sur insérer > Moduleet collez le code suivant dans le Module Fenêtre.

Code VBA: Calculez la date de Pâques de l'année donnée:

Public Function EasterDate(Yr As Integer) As Date
'Updateby Extendoffice 20160530
  Dim x As Integer
  x = (((255 - 11 * (Yr Mod 19)) - 21) Mod 30) + 21
  EasterDate = DateSerial(Yr, 3, 1) + x + (x > 48) + 6 - ((Yr + Yr \ 4 + _
      x + (x > 48) + 1) Mod 7)
End Function

3. Ensuite, enregistrez et fermez ce code, revenez à la feuille de calcul et entrez cette formule: = date de Pâques (A2) dans une cellule vide à côté de vos données correspondantes, puis faites glisser la poignée de remplissage vers les cellules auxquelles vous souhaitez appliquer cette formule, vous obtiendrez des nombres à cinq chiffres, voir capture d'écran:

doc calculer la date de Pâques 7

5. Et puis, vous devez modifier les nombres au format de date selon vos besoins. Veuillez consulter l'étape 3 de la méthode ci-dessus pour les mettre en forme à ce jour.


Les meilleurs outils de productivité de bureau

Kutools for Excel résout la plupart de vos problèmes et augmente votre productivité en
80 %

  • Réutilisation: Insérer rapidement formules complexes, graphiques et tout ce que vous avez utilisé auparavant; Crypter les cellules avec mot de passe; Créer une liste de diffusion et envoyer des e-mails ...
  • Barre Super Formula (modifiez facilement plusieurs lignes de texte et de formule); Disposition de lecture (lire et modifier facilement un grand nombre de cellules); Coller dans la plage filtréeplus
  • Fusionner les cellules / lignes / colonnes sans perdre de données; Contenu des cellules divisées; Combiner des lignes / colonnes en double... Empêcher les cellules en double; Comparer les gammesplus
  • Sélectionnez Dupliquer ou Unique Lignes; Sélectionnez les lignes vides (toutes les cellules sont vides); Super Find et Fuzzy Find dans de nombreux classeurs; Sélection aléatoire ...
  • Copie exacte Plusieurs cellules sans changer la référence de formule; Créer automatiquement des références à plusieurs feuilles; Insérer des puces, Cases à cocher et plus encore ...
  • Extrait du texte, Ajouter du texte, Supprimer par position, Supprimer l'espace; Créer et imprimer des sous-totaux de pagination; Conversion entre le contenu et les commentaires des cellulesplus
  • Super filtre (enregistrer et appliquer des schémas de filtrage à d'autres feuilles); Tri avancé par mois / semaine / jour, fréquence et plus; Filtre spécial par gras, italique ...
  • Combiner des classeurs et des feuilles de travail; Fusionner les tableaux en fonction des colonnes clés; Diviser les données en plusieurs feuilles; Conversion par lots xls, xlsx et PDFplus
  • Plus que
    300
    Caractéristiques puissantes
    . Prend en charge Office/Excel
    2007-2019 et 365
    . Prend en charge toutes les langues. Déploiement facile dans votre entreprise ou organisation. Fonctionnalités complètes
    30
    -jour d'essai gratuit. Garantie de remboursement de 60 jours.
onglet kte 201905

Office Tab apporte une interface à onglets à Office et simplifie considérablement votre travail

  • Activer l'édition et la lecture par onglets dans Word, Excel, PowerPoint, Publisher, Access, Visio et Project.
  • Ouvrez et créez plusieurs documents dans de nouveaux onglets de la même fenêtre, plutôt que dans de nouvelles fenêtres.
  • Augmente votre productivité en
    50 %
    , et réduit chaque jour des centaines de clics de souris !
bas de cabine
Commentaires (11)
Pas encore de notes. Soyez le premier à évaluer!
Ce commentaire a été minimisé par le modérateur sur le site
J'ai traduit votre formule pour Excel néerlandais comme ceci (année en A81):
=AFRONDEN.BENEDEN(DATUM(A81;5;DAG(MINUUT(A81/38)/2+56));7)-34

La formule donne 2079-04-16 pour Pâques 2079. Cela devrait être 2079-04-23. Le reste du 21ème siècle a l'air bien !
Ce commentaire a été minimisé par le modérateur sur le site
Oui, j'ai eu quelques problèmes avec les variations de cette formule. Vérifiez 2011, 2038, 2052 et 2079, tous 7 jours plus tôt.
Ce commentaire a été minimisé par le modérateur sur le site
Aussi 2108 donne 2108-Mar-31, devrait être 2108-Apr-1.
Ce commentaire a été minimisé par le modérateur sur le site
Qu'en est-il de Pâques orthodoxe? Existe-t-il aussi un code pour cela ?
Ce commentaire a été minimisé par le modérateur sur le site
Existe-t-il une formule Excel similaire pour comprendre le Nouvel An chinois puisqu'il s'agit également d'un jour férié du calendrier lunaire ?
Ce commentaire a été minimisé par le modérateur sur le site
Cela fonctionne sur les feuilles de google. C'est très long mais fonctionne sans erreur pour les années problématiques aussi (ce que vous avez mentionné ici). Vous pouvez copier dans une cellule et dans la cellule K1 l'année est attendue, comme 2022
=DATE(K1;IF((IFS(AND(MOD(2*MOD(K1;4)+4*MOD(K1;7)+6*MOD(19*MOD(K1;19)+24;30)+5;7)=6;MOD(19*MOD(K1;19)+24;30)=29);50;AND(MOD(2*MOD(K1;4)+4*MOD(K1;7)+6*MOD(19*MOD(K1;19)+24;30)+5;7)=6;MOD(19*MOD(K1;19)+24;30)=28;MOD(K1;19)>10);50;TRUE;22+MOD(19*MOD(K1;19)+24;30)+MOD(2*MOD(K1;4)+4*MOD(K1;7)+6*MOD(19*MOD(K1;19)+24;30)+5;7)))<=31;3;4);IF((IFS(AND(MOD(2*MOD(K1;4)+4*MOD(K1;7)+6*MOD(19*MOD(K1;19)+24;30)+5;7)=6;MOD(19*MOD(K1;19)+24;30)=29);50;AND(MOD(2*MOD(K1;4)+4*MOD(K1;7)+6*MOD(19*MOD(K1;19)+24;30)+5;7)=6;MOD(19*MOD(K1;19)+24;30)=28;MOD(K1;19)>10);50;TRUE;22+MOD(19*MOD(K1;19)+24;30)+MOD(2*MOD(K1;4)+4*MOD(K1;7)+6*MOD(19*MOD(K1;19)+24;30)+5;7)))<=31;IFS(AND(MOD(2*MOD(K1;4)+4*MOD(K1;7)+6*MOD(19*MOD(K1;19)+24;30)+5;7)=6;MOD(19*MOD(K1;19)+24;30)=29);50;AND(MOD(2*MOD(K1;4)+4*MOD(K1;7)+6*MOD(19*MOD(K1;19)+24;30)+5;7)=6;MOD(19*MOD(K1;19)+24;30)=28;MOD(K1;19)>10);49;TRUE;22+MOD(19*MOD(K1;19)+24;30)+MOD(2*MOD(K1;4)+4*MOD(K1;7)+6*MOD(19*MOD(K1;19)+24;30)+5;7));(IFS(AND(MOD(2*MOD(K1;4)+4*MOD(K1;7)+6*MOD(19*MOD(K1;19)+24;30)+5;7)=6;MOD(19*MOD(K1;19)+24;30)=29);50;AND(MOD(2*MOD(K1;4)+4*MOD(K1;7)+6*MOD(19*MOD(K1;19)+24;30)+5;7)=6;MOD(19*MOD(K1;19)+24;30)=28;MOD(K1;19)>10);49;TRUE;22+MOD(19*MOD(K1;19)+24;30)+MOD(2*MOD(K1;4)+4*MOD(K1;7)+6*MOD(19*MOD(K1;19)+24;30)+5;7)))-31))

Ce commentaire a été minimisé par le modérateur sur le site
Bonjour Tami, merci pour votre partage. Cette formule fonctionne sans erreur sur les feuilles Google. Merci ! Sincèrement, Mandy
Ce commentaire a été minimisé par le modérateur sur le site
Cela fonctionne sur les feuilles de google. C'est très long mais fonctionne sans erreur pour les années problématiques aussi (ce que vous avez mentionné ici). Vous pouvez copier dans une cellule et dans la cellule K1 l'année est attendue, comme 2022

=DATE(K1;IF((IFS(AND(MOD(2*MOD(K1;4)+4*MOD(K1;7)+6*MOD(19*MOD(K1;19)+24;30)+5;7)=6;MOD(19*MOD(K1;19)+24;30)=29);50;AND(MOD(2*MOD(K1;4)+4*MOD(K1;7)+6*MOD(19*MOD(K1;19)+24;30)+5;7)=6;MOD(19*MOD(K1;19)+24;30)=28;MOD(K1;19)>10);50;TRUE;22+MOD(19*MOD(K1;19)+24;30)+MOD(2*MOD(K1;4)+4*MOD(K1;7)+6*MOD(19*MOD(K1;19)+24;30)+5;7)))<=31;3;4);IF((IFS(AND(MOD(2*MOD(K1;4)+4*MOD(K1;7)+6*MOD(19*MOD(K1;19)+24;30)+5;7)=6;MOD(19*MOD(K1;19)+24;30)=29);50;AND(MOD(2*MOD(K1;4)+4*MOD(K1;7)+6*MOD(19*MOD(K1;19)+24;30)+5;7)=6;MOD(19*MOD(K1;19)+24;30)=28;MOD(K1;19)>10);50;TRUE;22+MOD(19*MOD(K1;19)+24;30)+MOD(2*MOD(K1;4)+4*MOD(K1;7)+6*MOD(19*MOD(K1;19)+24;30)+5;7)))<=31;IFS(AND(MOD(2*MOD(K1;4)+4*MOD(K1;7)+6*MOD(19*MOD(K1;19)+24;30)+5;7)=6;MOD(19*MOD(K1;19)+24;30)=29);50;AND(MOD(2*MOD(K1;4)+4*MOD(K1;7)+6*MOD(19*MOD(K1;19)+24;30)+5;7)=6;MOD(19*MOD(K1;19)+24;30)=28;MOD(K1;19)>10);49;TRUE;22+MOD(19*MOD(K1;19)+24;30)+MOD(2*MOD(K1;4)+4*MOD(K1;7)+6*MOD(19*MOD(K1;19)+24;30)+5;7));(IFS(AND(MOD(2*MOD(K1;4)+4*MOD(K1;7)+6*MOD(19*MOD(K1;19)+24;30)+5;7)=6;MOD(19*MOD(K1;19)+24;30)=29);50;AND(MOD(2*MOD(K1;4)+4*MOD(K1;7)+6*MOD(19*MOD(K1;19)+24;30)+5;7)=6;MOD(19*MOD(K1;19)+24;30)=28;MOD(K1;19)>10);49;TRUE;22+MOD(19*MOD(K1;19)+24;30)+MOD(2*MOD(K1;4)+4*MOD(K1;7)+6*MOD(19*MOD(K1;19)+24;30)+5;7)))-31))
Ce commentaire a été minimisé par le modérateur sur le site
Bonjour hztamas,
Merci pour votre partage. Cette formule fonctionne sans erreur sur les feuilles Google. Merci!
Sincèrement,
Mandy
Ce commentaire a été minimisé par le modérateur sur le site
Version Excel, plus simple, vous n'avez qu'à changer L3 au début pour la cellule où vous mettrez l'année (comme 2022). 
=LET(Y;L3;A;MOD(Y;19);B;MOD(Y;4);C;MOD(Y;7);D;MOD(19*A+24;30);E;MOD(2*B+4*C+6*D+5;7);H;IFS(AND(E=6;D=29);50;AND(E=6;D=28;A>10);49;TRUE;22+D+E);IF(H<=31;DATE(Y;3;H);DATE(Y;4;H-31)))
Ce commentaire a été minimisé par le modérateur sur le site
Bonjour hztamas, Merci beaucoup pour votre partage. J'ai changé le ";" à "," dans votre formule afin qu'elle puisse fonctionner dans Excel. J'ai des données (comme 2013) dans la cellule A1.=LET(Y,A1,A,MOD(Y,19),B,MOD(Y,4),C,MOD(Y,7),D,MOD(19 *A+24,30),E,MOD(2*B+4*C+6*D+5,7),H,IFS(ET(E=6,D=29),50,ET(E= 6,J=28,A>10),49,VRAI,22+D+E),SI(H<=31,DATE(Y,3,H),DATE(Y,4,H-31))) Cette formule fonctionne, mais je pense que ce n'est pas tellement plus simple que la formule de l'article. Quoi qu'il en soit, je pense qu'ils sont tous les deux géniaux. Merci encore ! Sincèrement, Mandy
Il n'y a pas encore de commentaires postés ici
Laisser vos commentaires
Publier en tant qu'invité
×
Évaluez cet article:
0   Personnages
Emplacements suggérés

Nous suivre

Copyright © 2009 - www.extendoffice.com. | Tous les droits sont réservés. Alimenté par ExtendOffice. | | Plan du site
Microsoft et le logo Office sont des marques commerciales ou des marques déposées de Microsoft Corporation aux États-Unis et / ou dans d'autres pays.
Protégé par Sectigo SSL