Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Calendrier scolaire perpétuel

S

sabledo

XLDnaute Nouveau
Bonjour,

Je suis totalement débutante sur excel. je veux créer un calendrier scolaire perpétuel (septembre à aout), je souhaite qu'en fonction de l'année saisie le 29 février apparaisse dans le calendrier uniquement si l'année est bissextile
Pouvez vous me dire pourquoi la formule en L 30 =SI(MOIS(DATE($A$1;COLONNE()+2;LIGNE()-1))=6;DATE($A$1;COLONNE()+2;LIGNE()-1);"") ne fonctionne pas
Quelle formule faudrait il?

Ci joint mon fichier




Merci de votre aide
 

Pièces jointes

  • Calendrier Scolaire.xlsx
    18.8 KB · Affichages: 84
  • Calendrier Scolaire.xlsx
    18.8 KB · Affichages: 72
  • Calendrier Scolaire.xlsx
    18.8 KB · Affichages: 70
Trier par date Trier par votes

ROGER2327

XLDnaute Barbatruc
Re : Calendrier scolaire perpétuel

Re...


Victor21 à dit:
Bonjour, lézamis.

Une autre, utilisable avec Excel à partir de 1900, (avec l'algorithme grégorien de Aloysius Lilius et Christophorus Clavius - Je ne l'ai pas optimisé - valable à/c de 1583 )
Cliquez pour agrandir...
C'est effectivement un bon algorithme à condition de l'appliquer entièrement. Sous la forme abrégée que vous lui donnez, il donne des résultats étonnants (Pâques un 26 avril ???)

J'avais tenté de l'utiliser jadis, mais je n'ai pas réussi à en donner une version plus courte que celle-ci :​
VB: 
=DATE(A;4;
  20-MOD(MOD(11*MOD(A;19)+ENT((8*ENT(A/100)+13)/25)-ENT(3*(ENT(A/100)+1)/4)+8;30);30)
 -OU(MOD(MOD(11*MOD(A;19)+ENT((8*ENT(A/100)+13)/25)-ENT(3*(ENT(A/100)+1)/4)+8;30);30)=24;
  ET(MOD(MOD(11*MOD(A;19)+ENT((8*ENT(A/100)+13)/25)-ENT(3*(ENT(A/100)+1)/4)+8;30);30)=25;MOD(A;19)>10))
+30*(MOD(MOD(11*MOD(A;19)+ENT((8*ENT(A/100)+13)/25)-ENT(3*(ENT(A/100)+1)/4)+8;30);30)
 +OU(MOD(MOD(11*MOD(A;19)+ENT((8*ENT(A/100)+13)/25)-ENT(3*(ENT(A/100)+1)/4)+8;30);30)=24;
  ET(MOD(MOD(11*MOD(A;19)+ENT((8*ENT(A/100)+13)/25)-ENT(3*(ENT(A/100)+1)/4)+8;30);30)=25;MOD(A;19)>10))>23)
-MOD(ENT(A*5/4)-ENT(3*(ENT(A/100)+1)/4)
  +4-MOD(MOD(11*MOD(A;19)+ENT((8*ENT(A/100)+13)/25)-ENT(3*(ENT(A/100)+1)/4)+8;30);30)
 -OU(MOD(MOD(11*MOD(A;19)+ENT((8*ENT(A/100)+13)/25)-ENT(3*(ENT(A/100)+1)/4)+8;30);30)=24;
  ET(MOD(MOD(11*MOD(A;19)+ENT((8*ENT(A/100)+13)/25)-ENT(3*(ENT(A/100)+1)/4)+8;30);30)=25;MOD(A;19)>10))
+30*(MOD(MOD(11*MOD(A;19)+ENT((8*ENT(A/100)+13)/25)-ENT(3*(ENT(A/100)+1)/4)+8;30);30)
 +OU(MOD(MOD(11*MOD(A;19)+ENT((8*ENT(A/100)+13)/25)-ENT(3*(ENT(A/100)+1)/4)+8;30);30)=24;
  ET(MOD(MOD(11*MOD(A;19)+ENT((8*ENT(A/100)+13)/25)-ENT(3*(ENT(A/100)+1)/4)+8;30);30)=25;MOD(A;19)>10))>23);7))
(1153 caractères !)

ou​
VB: 
=TEXTE(DATE(2000;4;
  20-MOD(MOD(11*MOD(A;19)+ENT((8*ENT(A/100)+13)/25)-ENT(3*(ENT(A/100)+1)/4)+8;30);30)
 -OU(MOD(MOD(11*MOD(A;19)+ENT((8*ENT(A/100)+13)/25)-ENT(3*(ENT(A/100)+1)/4)+8;30);30)=24;
  ET(MOD(MOD(11*MOD(A;19)+ENT((8*ENT(A/100)+13)/25)-ENT(3*(ENT(A/100)+1)/4)+8;30);30)=25;MOD(A;19)>10))
+30*(MOD(MOD(11*MOD(A;19)+ENT((8*ENT(A/100)+13)/25)-ENT(3*(ENT(A/100)+1)/4)+8;30);30)
 +OU(MOD(MOD(11*MOD(A;19)+ENT((8*ENT(A/100)+13)/25)-ENT(3*(ENT(A/100)+1)/4)+8;30);30)=24;
  ET(MOD(MOD(11*MOD(A;19)+ENT((8*ENT(A/100)+13)/25)-ENT(3*(ENT(A/100)+1)/4)+8;30);30)=25;MOD(A;19)>10))>23)
-MOD(ENT(A*5/4)-ENT(3*(ENT(A/100)+1)/4)
  +4-MOD(MOD(11*MOD(A;19)+ENT((8*ENT(A/100)+13)/25)-ENT(3*(ENT(A/100)+1)/4)+8;30);30)
 -OU(MOD(MOD(11*MOD(A;19)+ENT((8*ENT(A/100)+13)/25)-ENT(3*(ENT(A/100)+1)/4)+8;30);30)=24;
  ET(MOD(MOD(11*MOD(A;19)+ENT((8*ENT(A/100)+13)/25)-ENT(3*(ENT(A/100)+1)/4)+8;30);30)=25;MOD(A;19)>10))
+30*(MOD(MOD(11*MOD(A;19)+ENT((8*ENT(A/100)+13)/25)-ENT(3*(ENT(A/100)+1)/4)+8;30);30)
 +OU(MOD(MOD(11*MOD(A;19)+ENT((8*ENT(A/100)+13)/25)-ENT(3*(ENT(A/100)+1)/4)+8;30);30)=24;
  ET(MOD(MOD(11*MOD(A;19)+ENT((8*ENT(A/100)+13)/25)-ENT(3*(ENT(A/100)+1)/4)+8;30);30)=25;MOD(A;19)>10))>23);7));"jj-mm-")&A
(1174 caractères !)

Avec les mêmes notations, les formules dérivées de l'algorithme de Conway s'écrivent en 466 ou 487 caractères :​
VB: 
=DATE(A;4;
          26-MOD(11*MOD(A;19)+ENT(ENT(A/100)/4)+ENT(8*(ENT(A/100)+11)/25)-ENT(A/100)+11;30)
-ENT((552-19*MOD(11*MOD(A;19)+ENT(ENT(A/100)/4)+ENT(8*(ENT(A/100)+11)/25)-ENT(A/100)+11;30)+MOD(A;19))/544)
  -MOD(MOD(1-MOD(11*MOD(A;19)+ENT(ENT(A/100)/4)+ENT(8*(ENT(A/100)+11)/25)-ENT(A/100)+11;30)
-ENT((552-19*MOD(11*MOD(A;19)+ENT(ENT(A/100)/4)+ENT(8*(ENT(A/100)+11)/25)-ENT(A/100)+11;30)+MOD(A;19))/544);7)
+MOD(MOD(9-2*MOD(ENT(A/100);4);7)+MOD(A;100)+ENT(MOD(A;100)/4);7);7))
VB: 
=TEXTE(DATE(2000;4;
          26-MOD(11*MOD(A;19)+ENT(ENT(A/100)/4)+ENT(8*(ENT(A/100)+11)/25)-ENT(A/100)+41;30)
-ENT((552-19*MOD(11*MOD(A;19)+ENT(ENT(A/100)/4)+ENT(8*(ENT(A/100)+11)/25)-ENT(A/100)+41;30)+MOD(A;19))/544)
  -MOD(MOD(1-MOD(11*MOD(A;19)+ENT(ENT(A/100)/4)+ENT(8*(ENT(A/100)+11)/25)-ENT(A/100)+41;30)
-ENT((552-19*MOD(11*MOD(A;19)+ENT(ENT(A/100)/4)+ENT(8*(ENT(A/100)+11)/25)-ENT(A/100)+41;30)+MOD(A;19))/544);7)
+MOD(MOD(9-2*MOD(ENT(A/100);4);7)+MOD(A;100)+ENT(MOD(A;100)/4);7);7));"jj-mm-")&A
Comme les deux solutions donnent des résultats analogues, le choix est vite fait (...sauf si on parvient à condenser les formules longues !)​



ℝOGER2327
#7204

Mercredi 18 Pédale 141 (Saint Nosocome, carabin - fête Suprême Quarte)
22 Ventôse An CCXXII, 1,2989h - persil
2014-W11-3T03:07:02Z
 

Pièces jointes

  • Date de Pâques_1-1-2.xlsx
    19.6 KB · Affichages: 37
Dernière édition:
Vote positif 0 Vote négatif

Victor21

XLDnaute Barbatruc
Re : Calendrier scolaire perpétuel

Bonjour, Roger, le fil.

Juste pour le plaisir (et pour montrer que moi aussi, je bosse).
L'interprétation de l'algo de Houdin-Tondering pèse 850 caractères, et d'après les premiers tests, semble donner de bons résultats en texte depuis Paques 1583 (à confirmer ou à infirmer, car je m'y perds un peu avec le calendrier grégorien ...) :
et en nombre depuis 1900:
 

Pièces jointes

  • Date de Pâques_1-1-3.xlsx
    18 KB · Affichages: 50
Dernière édition:
Vote positif 0 Vote négatif

ROGER2327

XLDnaute Barbatruc
Re : Calendrier scolaire perpétuel

Re...


Staple1600 à dit:
Bonjour à tous

ROGER2327
Concernant Libre Office

Perpète est égal à 9956 où ils n'ont pas mis à jour leurs infos depuis 2011?
Cliquez pour agrandir...
À votre avis ?


(La pièce jointe est éditable dans LibreOffice. Pratique !)​



ℝOGER2327
#7205

Mercredi 18 Pédale 141 (Saint Nosocome, carabin - fête Suprême Quarte)
22 Ventôse An CCXXII, 6,9625h - persil
2014-W11-3T16:42:36Z
 

Pièces jointes

  • DIMANCHEDEPAQUES_2.pdf
    50.8 KB · Affichages: 77
Vote positif 0 Vote négatif

ROGER2327

XLDnaute Barbatruc
Re : Calendrier scolaire perpétuel

Re...


Ça fonctionne très-bien. C'est sur la base de cet algorithme de OUDIN qu'est construite ma première formule du message #5.


Pour en finir (provisoirement ?), voici les formules basées sur la méthode de CONWAY dans une version plus courte :​
VB: 
=TEXTE(DATE(2000;4;
          25-MOD(ENT(A/400)-ENT(A/100)+ENT(8*(ENT(A/100)+11)/25)+11*MOD(A;19)+11;30)
  -ENT((8-19*MOD(ENT(A/400)-ENT(A/100)+ENT(8*(ENT(A/100)+11)/25)+11*MOD(A;19)+11;30)+MOD(A;19))/544)
   -MOD(MOD(-MOD(ENT(A/400)-ENT(A/100)+ENT(8*(ENT(A/100)+11)/25)+11*MOD(A;19)+11;30)
  -ENT((8-19*MOD(ENT(A/400)-ENT(A/100)+ENT(8*(ENT(A/100)+11)/25)+11*MOD(A;19)+11;30)+MOD(A;19))/544);7)
+MOD(MOD(2-2*MOD(ENT(A/100);4);7)+MOD(A;100)+ENT(MOD(A;100)/4);7);7));"jj-mm-")&A
(454 caractères)

VB: 
=DATE(A;4;
          25-MOD(ENT(A/400)-ENT(A/100)+ENT(8*(ENT(A/100)+11)/25)+11*MOD(A;19)+11;30)
  -ENT((8-19*MOD(ENT(A/400)-ENT(A/100)+ENT(8*(ENT(A/100)+11)/25)+11*MOD(A;19)+11;30)+MOD(A;19))/544)
   -MOD(MOD(-MOD(ENT(A/400)-ENT(A/100)+ENT(8*(ENT(A/100)+11)/25)+11*MOD(A;19)+11;30)
  -ENT((8-19*MOD(ENT(A/400)-ENT(A/100)+ENT(8*(ENT(A/100)+11)/25)+11*MOD(A;19)+11;30)+MOD(A;19))/544);7)
+MOD(MOD(2-2*MOD(ENT(A/100);4);7)+MOD(A;100)+ENT(MOD(A;100)/4);7);7))
(433 caractères)

Ça devient presque humain...​




Bonne soirée.


ℝOGER2327
#7206

Mercredi 18 Pédale 141 (Saint Nosocome, carabin - fête Suprême Quarte)
22 Ventôse An CCXXII, 7,0611h - persil
2014-W11-3T16:56:48Z
 
Vote positif 0 Vote négatif

Modeste geedee

XLDnaute Barbatruc
Re : Calendrier scolaire perpétuel

Bonsour® on peut même descendre à 272 caractères
en nommant les termes répétitifs...
B=ENT(A/400)
D=ENT(A/100)
M=MOD(A;19)

 

Pièces jointes

  • Capture.JPG
    59.4 KB · Affichages: 27
  • Capture.JPG
    59.4 KB · Affichages: 36
Vote positif 0 Vote négatif

Victor21

XLDnaute Barbatruc
Re : Calendrier scolaire perpétuel

Bonsoir Pompon

On peut même descendre à 1 caractère en nommant la formule
B=DATE(A;4; 25-MOD(ENT(A/400)-ENT(A/100)+ENT(8*(ENT(A/100)+11)/25)+11*MOD(A;19)+11;30) -ENT((8-19*MOD(ENT(A/400)-ENT(A/100)+ENT(8*(ENT(A/100)+11)/25)+11*MOD(A;19)+11;30)+MOD(A;19))/544) -MOD(MOD(-MOD(ENT(A/400)-ENT(A/100)+ENT(8*(ENT(A/100)+11)/25)+11*MOD(A;19)+11;30) -ENT((8-19*MOD(ENT(A/400)-ENT(A/100)+ENT(8*(ENT(A/100)+11)/25)+11*MOD(A;19)+11;30)+MOD(A;19))/544);7) +MOD(MOD(2-2*MOD(ENT(A/100);4);7)+MOD(A;100)+ENT(MOD(A;100)/4);7);7))

Ok, je sors... tout doucement...
 
Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc
Re : Calendrier scolaire perpétuel

Bonsoir à tous


J'entre pour proposer de nommer 544, 30, 25 et 11
puis pour remercier ROGER2327 pour sa réponse à ma question.
et moi aussi je ressors tout comme Victor21 mais par la fenêtre
 
Dernière édition:
Vote positif 0 Vote négatif

ROGER2327

XLDnaute Barbatruc
Re : Calendrier scolaire perpétuel

Bonjour aux trolleurs et bonjour aux autres.


Quand y en a plus, y en a encore...


Pour un niveau de parenthèse en moins :​
VB: 
=TEXTE(DATE(2000;4;25)
            -MOD(ENT(A/400)-ENT(A/100)+ENT(8*(ENT(A/100)+11)/25)+11*MOD(A;19)+11;30)
  -ENT((8-19*MOD(ENT(A/400)-ENT(A/100)+ENT(8*(ENT(A/100)+11)/25)+11*MOD(A;19)+11;30)+MOD(A;19))/544)
   -MOD(MOD(-MOD(ENT(A/400)-ENT(A/100)+ENT(8*(ENT(A/100)+11)/25)+11*MOD(A;19)+11;30)
  -ENT((8-19*MOD(ENT(A/400)-ENT(A/100)+ENT(8*(ENT(A/100)+11)/25)+11*MOD(A;19)+11;30)+MOD(A;19))/544);7)
+MOD(MOD(2-2*MOD(ENT(A/100);4);7)+MOD(A;100)+ENT(MOD(A;100)/4);7);7);"jj-mm-")&A
(toujours aussi long : 454 caractères)


Si on n'utilise jamais le calendrier 1904 :​
VB: 
=TEXTE(  116-MOD(ENT(A/400)-ENT(A/100)+ENT(8*(ENT(A/100)+11)/25)+11*MOD(A;19)+11;30)
  -ENT((8-19*MOD(ENT(A/400)-ENT(A/100)+ENT(8*(ENT(A/100)+11)/25)+11*MOD(A;19)+11;30)+MOD(A;19))/544)
   -MOD(MOD(-MOD(ENT(A/400)-ENT(A/100)+ENT(8*(ENT(A/100)+11)/25)+11*MOD(A;19)+11;30)
  -ENT((8-19*MOD(ENT(A/400)-ENT(A/100)+ENT(8*(ENT(A/100)+11)/25)+11*MOD(A;19)+11;30)+MOD(A;19))/544);7)
+MOD(MOD(2-2*MOD(ENT(A/100);4);7)+MOD(A;100)+ENT(MOD(A;100)/4);7);7);"jj-mm-")&A
(442 caractères)

VB: 
=        116-MOD(ENT(A/400)-ENT(A/100)+ENT(8*(ENT(A/100)+11)/25)+11*MOD(A;19)+11;30)
  -ENT((8-19*MOD(ENT(A/400)-ENT(A/100)+ENT(8*(ENT(A/100)+11)/25)+11*MOD(A;19)+11;30)+MOD(A;19))/544)
   -MOD(MOD(-MOD(ENT(A/400)-ENT(A/100)+ENT(8*(ENT(A/100)+11)/25)+11*MOD(A;19)+11;30)
  -ENT((8-19*MOD(ENT(A/400)-ENT(A/100)+ENT(8*(ENT(A/100)+11)/25)+11*MOD(A;19)+11;30)+MOD(A;19))/544);7)
+MOD(MOD(2-2*MOD(ENT(A/100);4);7)+MOD(A;100)+ENT(MOD(A;100)/4);7);7)
(424 caractères)


Si on utilise toujours le calendrier 1904, remplacer 116 par 115.

J'anticipe : les plus astucieux gagneront deux caractères en nommant 116 ou 115.
Mieux : ils remplaceront la constante par la formule nommée 116-(DATE(1904;1;1)=0) et auront une formule valable dans les deux types de calendriers.​


Bonne soirée.


ℝOGER2327
#7207

Jeudi 19 Pédale 141 (Sainte Goutte, fête militaire - fête Suprême Quarte)
23 Ventôse An CCXXII, 7,2732h - cochléaria
2014-W11-4T17:27:21Z
 
Vote positif 0 Vote négatif

Modeste geedee

XLDnaute Barbatruc
Re : Calendrier scolaire perpétuel

Bonsour®

soit...
mais cependant cela reste perturbant quand Pâques est un Samedi :
Samedi 14 Clinamen 142, (Sortie d'A. Dürer, hermétiste)

ou encore un jeudi
Jeudi 5 Clinamen 143, (Sts Aster et Vulpian, violateurs du Néant)


<@
 
Vote positif 0 Vote négatif

ROGER2327

XLDnaute Barbatruc
Re : Calendrier scolaire perpétuel

...
Année​
Pâques
(Cal. Grégorien)​
Calendrier pataphysique​
1986Dimanche 30 marsDimanche 8 Clinamen 113 (La Machine à Peindre - SS)
1987Dimanche 19 avrilSamedi 28 Clinamen 114 (Saint Turgescent, iconoclaste - SQ)
1993Dimanche 11 avrilVendredi 20 Clinamen 120 (Capture du Fourneau - V)
1994Dimanche 3 avrilJeudi 12 Clinamen 121 (Saint Georges Dazet, poulpe au regard de soie - SQ)
1995Dimanche 16 avrilMercredi 25 Clinamen 122 (Exit Saint Goya, alchimiste - SQ)
2001Dimanche 15 avrilMardi 24 Clinamen 128 (*Saint Tupetu de Tupetu, organisateur de loteries - SQ)
2002Dimanche 31 marsLundi 9 Clinamen 129 (Sainte Trique, lunatique - SQ)
2003Dimanche 20 avrilDimanche 1[SUP]er[/SUP] Palotin 130 (Saints Crocodiles, crocodiles - ST)
2009Dimanche 12 avrilSamedi 21 Clinamen 136 (Saint Docteur Moreau, insulaire - SQ)
2010Dimanche 4 avrilVendredi 13 Clinamen 137 (Nativité de Maldoror, corsaire aux cheveux d’or - SQ)
2011Dimanche 24 avrilJeudi 5 Palotin 138 (Sainte Poignée, veuve et Sainte Jutte, recluse - SQ)
2023Dimanche 9 avrilMercredi 18 Clinamen 150 (Les 27 Êtres Issus des Livres Pairs - V)
2029Dimanche 1[SUP]er[/SUP] avrilMardi 10 Clinamen 156 (Rémission des Poissons - SQ)
2030Dimanche 21 avrilLundi 2 Palotin 157 (Fête des Ecluses - SQ)

La plus vaste et la plus profonde des sciences, celle qui d’ailleurs les contient toutes en elle-même, qu’elles le veuillent ou non, est la ’Pataphysique ou science des solutions imaginaires.​
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.

Discussions similaires

  • Résolu(e)
Microsoft 365 VBA Insertion du numéro de semaine de manière dynamique
Réponses
11
Affichages
220
Etoto
J
  • Résolu(e)
Autres problème d'affichage et problème de comptabilisation
Réponses
3
Affichages
218
jdrc
J
G
  • Question
XL 2016 Récapitulatif des prises en charges thérapeutique - ART THERAPEUTE
Réponses
4
Affichages
677
Lolote83
L
S
  • Question
XL 2019 Calculer dimanche de pâques puis insertion du 29 février
2
Réponses
26
Affichages
304
dysorthographie
M
  • Résolu(e)
XL 2013 Macross supprimant les données de cellule en dehors d'une période définie dans deux autres cellules
Réponses
9
Affichages
540
MarineU
M
V
  • Question
Autres Pseudo Calendrier
Réponses
0
Affichages
379
VIARD
V
A
  • Question
XL 2021 Calculer le prorata d'un objectif en fonction de l'arrivée ou du départ du salarié
Réponses
4
Affichages
103
job75
A
  • Résolu(e)
Microsoft 365 Formule SI
Réponses
4
Affichages
404
Audrey R.
A
J
  • Question
XL 2016 macro pour remplir un calendrier à partir d'une liste d'évènements
Réponses
3
Affichages
558
julien6337
J
Z
  • Résolu(e)
Microsoft 365 Récupérer les éléments d'une liste en fonction de leur position
Réponses
2
Affichages
539
Zarnir
Z
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…