Comment calculer la date de Pâques dans Excel ?
Comme chacun le sait, la fête de Pâques a lieu chaque année le premier dimanche suivant la première pleine lune ecclésiastique survenant le jour même ou après le 21 mars. Ainsi, sa date varie d’une année à l’autre, comme l’illustre la capture d’écran ci-dessous. Pour déterminer précisément la date de Pâques d’une année donnée, cet article vous sera utile.
Calculer la date de Pâques d’une année donnée à l’aide d’une formule
Calculer la date de Pâques d’une année donnée à l’aide d’une fonction personnalisée
Calculer la date de Pâques d’une année donnée à l’aide d’une formule
Pour obtenir la date de Pâques d’une année donnée, utilisez la formule suivante. Voici comment procéder :
1. Saisissez cette formule : =FLOOR(«5/»&DAY(MINUTE(A2/38)/2+56)&«/»&A2,7)-34 dans une cellule vide située à côté de l’année indiquée, par exemple en B2 (voir capture d’écran) :
2. Ensuite, faites glisser la poignée de recopie vers les cellules dans lesquelles vous souhaitez calculer la date de Pâques pour l’année indiquée. Des nombres à cinq chiffres s’affichent alors dans ces cellules (voir capture d’écran) :
3. Vous devez ensuite appliquer à ces nombres le format de date :
(1.) Sélectionnez les nombres à cinq chiffres, cliquez dessus avec le bouton droit de la souris, puis choisissez Définir le format des cellulesdans le menu contextuel ;
(2.) Dans la boîte de dialogue Définir le format des cellulesqui s’ouvre, cliquez sur l’onglet Nombre, sélectionnez Datedans le volet Catégorie, puis choisissez le Format de date souhaité dans la liste de droite (voir capture d’écran) :
4. Les nombres ont alors été formatés selon le format de date requis, et vous obtenez ainsi la date de Pâques pour l’année indiquée (voir capture d’écran) :
Conseils:Pour formater les nombres selon votre Format de date habituel, vous pouvez également utiliser l’utilitaire Appliquer le format de date de Kutools pour Excel, comme illustré dans la capture d’écran suivante :
|
Calculer la date de Pâques d’une année donnée à l’aide d’une fonction personnalisée
La fonction personnalisée suivante peut également vous aider à calculer la date de Pâques d’une année spécifique.
1. Maintenez enfoncées les touches ALT + F11 pour ouvrir la fenêtre Microsoft Visual Basic pour Applications.
2. Cliquez sur Insertion > Module, puis collez le code suivant dans la fenêtre du Module.
Code VBA : Calculer la date de Pâques d’une 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 Function3. Ensuite, sauvegardez et fermez ce code, revenez à la feuille de calcul, puis saisissez la formule suivante : =easterdate(A2) dans une cellule vide située à côté de vos données. Faites ensuite glisser la poignée de recopie vers les cellules auxquelles vous souhaitez appliquer cette formule. Vous obtiendrez ainsi des nombres à cinq chiffres (voir capture d’écran) :
5. Vous devez ensuite convertir ces nombres au format de date souhaité.Reportez-vous à l’étape 3 de la méthode ci-dessus pour les formater en date.
Meilleurs outils de productivité Office
Boostez vos compétences Excel avec Kutools pour Excel et découvrez une efficacité inégalée.Kutools pour Excel propose plus de 300 fonctionnalités avancées pour améliorer votre productivité et Gagner du temps.Cliquez ici pour obtenir la fonctionnalité dont vous avez le plus besoin...
Office Tab apporte une interface à onglets à Office et rend votre travail bien plus facile
- Activez 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é de 50 % et vous fait économiser des centaines de clics de souris chaque jour !
Tous les compléments Kutools. Un seul installateur
Kutools for Office regroupe les compléments pour Excel, Word, Outlook et PowerPoint, ainsi que Office Tab Pro, ce qui en fait le choix idéal pour les équipes travaillant à travers les applications Office.
- Suite tout-en-un— Compléments Excel, Word, Outlook et PowerPoint + Office Tab Pro
- Un seul installateur, une seule licence— installation en quelques minutes (compatible MSI)
- Fonctionne mieux ensemble— productivité optimisée dans toutes les applications Office
- Essai gratuit de 30 jours avec toutes les fonctionnalités— aucune inscription, aucune carte bancaire
- Meilleur rapport qualité-prix— économisez par rapport à l’achat de compléments individuels