Generer calendrier

Y compris Power BI, Power Query et toute autre question en lien avec Excel
j
jc jez
Membre habitué
Membre habitué
Messages : 60
Inscrit le : 13 août 2016
Version d'Excel : 2010

Message par jc jez » 29 mai 2018, 23:40

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...
TEST CAL.xlsx
(32.9 Kio) Téléchargé 25 fois
D
Dehbi
Membre habitué
Membre habitué
Messages : 90
Inscrit le : 30 décembre 2017
Version d'Excel : 2010

Message par Dehbi » 30 mai 2018, 03:13

salut ,

voici un lien qui genere ce que tu souhaite

https://www.plannings.fr/
j
jc jez
Membre habitué
Membre habitué
Messages : 60
Inscrit le : 13 août 2016
Version d'Excel : 2010

Message par jc jez » 30 mai 2018, 19:06

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
Avatar du membre
galopin01
Passionné d'Excel
Passionné d'Excel
Messages : 5'809
Appréciations reçues : 89
Inscrit le : 18 septembre 2008
Version d'Excel : 2010 / 2016
Téléchargements : Mes applications

Message par galopin01 » 30 mai 2018, 19:44

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 !
CAL VG.xlsm
(85.44 Kio) Téléchargé 36 fois
1 membre du forum aime ce message.
VBA pour Excel? Pensez D'ABORD en EXCEL avant de penser en VBA...
j
jc jez
Membre habitué
Membre habitué
Messages : 60
Inscrit le : 13 août 2016
Version d'Excel : 2010

Message par jc jez » 30 mai 2018, 20:52

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
j
jc jez
Membre habitué
Membre habitué
Messages : 60
Inscrit le : 13 août 2016
Version d'Excel : 2010

Message par jc jez » 20 juillet 2018, 23:01

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
Avatar du membre
Jean-Eric
Fanatique d'Excel
Fanatique d'Excel
Messages : 15'117
Appréciations reçues : 491
Inscrit le : 27 août 2012
Version d'Excel : O365 32 bits

Message par Jean-Eric » 20 juillet 2018, 23:19

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.
Create ISO Calendar.xlsm
(33.11 Kio) Téléchargé 15 fois
Jean-Eric

Je ne réponds pas aux M.P. non sollicités.
Avatar du membre
galopin01
Passionné d'Excel
Passionné d'Excel
Messages : 5'809
Appréciations reçues : 89
Inscrit le : 18 septembre 2008
Version d'Excel : 2010 / 2016
Téléchargements : Mes applications

Message par galopin01 » 21 juillet 2018, 05:37

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+
VBA pour Excel? Pensez D'ABORD en EXCEL avant de penser en VBA...
Avatar du membre
Jean-Eric
Fanatique d'Excel
Fanatique d'Excel
Messages : 15'117
Appréciations reçues : 491
Inscrit le : 27 août 2012
Version d'Excel : O365 32 bits

Message par Jean-Eric » 21 juillet 2018, 09:07

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.
Jean-Eric

Je ne réponds pas aux M.P. non sollicités.
Avatar du membre
galopin01
Passionné d'Excel
Passionné d'Excel
Messages : 5'809
Appréciations reçues : 89
Inscrit le : 18 septembre 2008
Version d'Excel : 2010 / 2016
Téléchargements : Mes applications

Message par galopin01 » 21 juillet 2018, 14:30

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+
CAL VG.xlsm
(83.26 Kio) Téléchargé 17 fois
VBA pour Excel? Pensez D'ABORD en EXCEL avant de penser en VBA...
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message