Generer calendrier

Bonsoir le forum, je viens a vous car j'aimerai creer un calendrier qui serait réemployé chaque année...

En tapant juste l'année et en lancant une macro je voudrais que le calendrier soit généré, avec sur une ligne le mois puis en dessous le numéro de semaine, puis le jour et enfin le numero du jour,le tout avec la mise en forme...

Je sais que j'en demande pas mal mais j'avoue que mon niveau de maitrise d'excel en vba n'est pas encore tres élévé...

Je vous remercie par avance, bonne soirée et longue vie a ce super forum

Je joins le fichier de cette année pour que vous voyiez ce que j'aimerai obtenir...

26test-cal.xlsx (32.90 Ko)

salut ,

voici un lien qui genere ce que tu souhaite

https://www.plannings.fr/

Merci Dehbi c'est sympa de m'avoir répondu, c'est effectivement une solution mais j'aimerai ne pas etre tributaire d'un site internet et pouvoir mettre en forme ma présentation comme sur mon fichier...

Bonne journée a toi

bonjour,

Moi je trouve que c'est une idée farfelue :

Comme on dit dans mon pays "Les corbeaux volent sur dos pour ne pas voir ça..."

Mébon, je mets ça sur le compte de l'inexpérience...

Ton fichier en pièce jointe.

YAKA changer d'année pour évaluer...

A+

Nota : Ceci clot ma participation sur ce sujet !

36cal-vg.xlsm (85.44 Ko)

Merci beaucoup galopin01, c'est exactement ce que je voulais, j'essaie de comprendre le code mais j'avoue que cela dépasse de loin mes compétences...

Vu le nombre de lignes de code, tu as quand meme du consacrer du temps a ma requete...

Je vais pouvoir continuer avec une bonne base de départ.

Encore merci a toi

Bonne soirée

Bonsoir au forum,

je me permet de relancer ce sujet car l'aide précieuse que m'a apporté Galopin 01 m'a aidé a 99%, j'ai juste un souci dans la génération du calendrier..., avec le numéro de semaine qui selon l'année ne correspond pas avec la semaine...

si la semaine 1 ne commence pas un lundi, il se cree un décalage...

Si quelqu'un de plus calé que moi pouvait trouver la solution ce serait super!!

Merci a vous !

jc jez

Bonjour,

Pour des besoins d'un particulier, j'ai crée un calendrier.

Celui-ci est ISO et ne respecte pas ta mise en forme, mais je le joins comme même.

ALT F8 et exécuter la procédure.

A te relire.

Cdlt.

Bonjour,

Dans Module1 (à la fin) remplacer la fonction NOSEM par celle-ci :

Function NOSEM%(Dat As Date)
On Error Resume Next
NOSEM = CInt(Format(Dat, "ww", vbMonday, vbFirstFourDays))
End Function

A+

Bonjour

@ Galopin01,

Cette fonction n'est pas correcte.

Il faut utiliser :

Public Function IsoWeekNumber(D1 As Date) As Integer
' Attributed to Daniel Maher
Dim D2 As Long
    D2 = DateSerial(Year(D1 - Weekday(D1 - 1) + 4), 1, 3)
    IsoWeekNumber = Int((D1 - D2 + Weekday(D2) + 5) / 7)
End Function

ou

Public Function IsoWeekNumber(dt As Date) As Long
    IsoWeekNumbe2 = DatePart("ww", dt - Weekday(dt, 2) + 4, 2, 2)
End Function

Fais l'exemple pour le 30 décembre 2019.

Cdlt.

Bonjour,

@ Jean-Eric : En fait les fonctions ne semblent pas en cause (Je n'ai pas creusé plus que ça... Mais j'ai adopté la tienne : Si tu le dis !)

En réalité c'est surtout mon "merging" qui était à revoir...

Voici une version revue et corrigée.

A+

17cal-vg.xlsm (83.26 Ko)

Bonsoir,

Merci a vous deux Galopin 01 et Jean-Eric , vous etes des pointures !!!

c'est exactement ce qu'il me fallait.

je vais pouvoir continuer mon fichier

Bonne soirée a vous

J'ai ajouté une 'tite amélioration dans la finition.

A+

6cal-vg.xlsm (82.23 Ko)
Rechercher des sujets similaires à "generer calendrier"