Calendrier annuel / onglets par mois

[czac]

Bonjour,

J'espère être au bon endroit pour m'aider.
j'ai un calendrier où chaque onglet c'est 1 mois. j'aimerais avoir la possibilité de changer l'année et qu'automatiquement, les dates et jours (lu, ma, me, je, etc..) se modifient dans chaque onglet mensuel. ci-joint le fichier.

merci pour votre aide

 

[Dranreb]

Bonjour
Le 1er samedi du mois, en N8 :

=$AT$3-JOURSEM($AT$3;3)+5

En D8, à propager sur 10 colonnes :

=SI(MOIS($AT$3-JOURSEM($AT$3;3)+(COLONNE()-4)/2)=MOIS($AT$3);F8-1;"")

En P8 :

=N8+2

En R8, à propager sur 10 colonnes :

=P8+1

Pareil pour le reste.
Mettez le format de nombre "j/m" pour les test mais après "jjj j" serait mieux et plus besoin de la ligne 9

 

[Dranreb]

Attention, je crois que la formule que j'ai donnée pour le 1er samedi du mois n'est pas toujours bonne.
Ce serait plutôt, en N8 :

=$AT$3+MOD(5-JOURSEM($AT$3;3);7)

 

[czac]

Bonjour,

merci pour votre réponse. Par contre cela ne change rien quand je change l'année en AT1. on devrait avoir dans la colonne D8 le 2/01 comme c'est un lundi. Ceci c'est pour l'onglet janvier. Je dois donc faire pareil pour les 11 autres onglets, c'est bien ca?
De plus, dans chaque mois, j'ai plusieurs cadenciers (vers le bas). Je dois donc faire en D48 par exemple : "=D8"? et ainsi de suite.

 

[Dranreb]

Pour '01'!AT3 :

=DATE($AT$1;1;1)

Pour '02'!AT3 :

=DATE('01'!$AT$1;2;1)

etc.

 

[czac]

Bonjour,

super, cela fonctionne. Par contre, on remarque que pour janvier, la journée commence le samedi 7/01 au lieu du lundi 2/01. Ensuite, j'aimerais qu'après le dernier jour du mois (ici le mardi 31 en BF8) les cellules ne continuent pas sur le mois suivant.

 

[czac]

Ci-joint le fichier

 

[Dranreb]

Bonjour.
Rectifions, en D8, à propager sur 10 colonnes :

=SI(MOIS($N8-COLONNES(D8:$M8)/2)=MOIS($AT$3);F8-1;"")

Essayez de trouver une formule très analogue en allant vers la droite pour les dates qui risquent de dépasser le mois.

 

[Lone-wolf]

Bonjour czac et bonne année 🙂

Bonjour Dranreb 🙂

Un exemple de calendrier par VBA. Dans la feuil Recap, change l'année.

 

[czac]

La formule à l'air de fonctionner. Super, merci. Par contre j'ai rien compris concernant les dates qui dépassent le mois. désolé.

 

[czac]

Bonjour Lone-wolf et bonne année également.
Merci pour ton fichier, par contre, là sur mon fichier, je sais absolument pas comment faire :-(

 

[Dranreb]

Changeons de fusil d'épaule quitte à faire une formule plus compliquée mais plus claire.
En AN8 :

=SIERREUR(SI(MOIS(AL8+2)<>MOIS($AT$3);NA();AL8+2);"")

En AP8, à propager sur 10 colonnes :

=SIERREUR(SI(MOIS(AN8+1)<>MOIS($AT$3);NA();AN8+1);"")

En BD8 :

=SIERREUR(SI(MOIS(AX8+2)<>MOIS($AT$3);NA();AX8+2);"")

En BF8, à propager sur 10 colonnes :

=SIERREUR(SI(MOIS(BD8+1)<>MOIS($AT$3);NA();BD8+1);"")

 

[czac]

Franchement génial, un grand merci. Donc, maintenant, je fais un copier-coller pour chaque mois. Juste pour le changement d'année, ou je noterais que dans janvier et ferais un "=" pour les autres mois. Et aussi ne pas oublier de changer la cellule AT3

 

[Dranreb]

Seule la '01'!At1 serait à corriger manuellement si AT3 =DATE($AT$1,1,1) et si les autres feuilles portent en AT1 ='01'!$AT$1 et en AT3 les formules indiquées au poste #5.
La nouvelle formule, finalement pas plus longue que l'actuelle, peut aussi s'appliquer en D8, à propager sur 10 colonnes :

=SIERREUR(SI(MOIS(F8-1)<>MOIS($AT$3);NA();F8-1);"")

 

[czac]

Ben super, vraiment merci pour cette aide, j'aurais jamais pu le faire tous seul.