Calendrier automatique Résolu/Fermé

Question

Bonjour à tous,
Je suis actuellement entrain de concevoir un tableau d'horaires salariés (mensuel) pour calculer les heures supplémentaires et les heures affectées par projet et par pôle (production, gestion et R & D).
J'aimerais pouvoir générer les mois automatiquement à l'aide d'une macro en respectant le vrai calendrier (weekend, jour férié, etc).
Si quelqu'un à les compétences pour m'aider, je pourrais alors démarrer mon outil utile pour l’entreprise et pour ma soutenance.
Merci d'avance.

Mike-31 · Answer

Bonjour,

regarde cette discussion si tu trouve un début de réponse
https://forums.commentcamarche.net/forum/affich-32849698-ligne-en-colonne-vba#p32856443

Mike-31 · Answer

Re,

Ok mais pas avant ce soir

que veux tu exactement un calendrier mensuel ou annuel

Mike-31 · Answer

Re,

en regardant de près ton fichier, tu n'as pas besoin de VBA, de simples formules pour automatiser le numéro semaine comme le premier lundi du mois à partir de la saisie correcte en cellule B2 du mois et de l'année en cellule B3  
 https://www.cjoint.com/c/ELivwfPgvrj

Mike-31 · Answer

Re,

pour générer une nouvelle feuille tu crées de nouveaux onglets ensuite tu clic droi en haut à gauche de ta fenêtre juste au dessus de l'entête de ligne et 1 et à gauche de l'entête de colonne A, toute ta feuille va se mettre en surbrillance, sélectionne Copier active un nouveau onglet et clic droit sur la cellule A1 Coller cette manip va copier tes formules, les formats etc ...
reste plus qu'a saisir en cellule B2 le mois exemple Décembre et idem pour les autres onglets
par contre pour renseigner la cellule année B3 tu peux l'automatiser en nommant la cellule B3 de ton premier onglet exemple Année
et dans tes cellules B3 des autres onglets tu écris =Année ce qui actualisera tous tes onglets

ensuite pour la formule qui affiche le premier lundi du mois comme tu commences tes mois un lundi, la formule est
=date dans le mois-JOUR(date dans le mois)+8-JOURSEM(date dans le mois-JOUR(date dans le mois)-1)

comme tu n'as pas une date dans le mois on va la créer dans la formule
("1/"&B2&"/"&B3)*1

=date dans le mois-JOUR(date dans le mois) va afficher le dernier du mois précédent

date dans le mois-JOUR(date dans le mois)+8 affiche 8 jour après la fin du mois précédent

-JOURSEM(C7-JOUR(C7)) on va décompter les jours semaine sachant que dimanche est 1, lundi 2 etc 
donc pour avoir samedi on ajoutera un -1 et pour avoir un jeudi on ajoutera un +3 qui en fait est une combinaison entre le +8 et ce mode de calcul, mais j'aurais pu ajouter +7 et en tenir compte en fin de formule. 
ce qui donne en formule
=("1/"&B2&"/"&B3)*1-JOUR(("1/"&B2&"/"&B3)*1)+8-JOURSEM(("1/"&B2&"/"&B3)*1-JOUR(("1/"&B2&"/"&B3)*1)-1)

idem pour l'affichage des semaines
="semaine "&ENT(MOD(ENT((C6-2)/7)+0,6;52+5/28))+1

Mike-31 · Answer

Re,

si tu as  #Valeur! c'est un message d'erreur dans la formule que tu as recopiée 
regarde le fichier Janvier avec B3 nommée Année dans les feuille Feuil2 et Feuil3 il suffit de saisir en B2 le mois exemple Avril ou Mai etc ...
  https://www.cjoint.com/c/ELjjYJcYVWj

Mike-31 · Answer

Re,

bien sur que ça marche
 https://www.cjoint.com/c/ELjmlTIwwNj

Mike-31 · Answer

Re,

Ah oui tout à fait, je te regarde le fichier dans la soirée

Mike-31 · Answer

Re,

entièrement automatisé, il suffit de dupliquer tes onglets comme je te l'ai expliqué dans un post et nommer chaque onglet en fonction du mois exemple Octobre, Décembre en respectant ce format

la feuille s'actualisera automatiquement l'année en fonction de ta feuille Initialisation cellule C3 nommée Année, le mois en fonction du nom de chaque onglet et la date se positionnera sur chaque première semaine du mois en fonction du premier jour ouvré du mois et s’arrêtera le dernier jour du mois ainsi que le numéro semaine

 https://www.cjoint.com/c/ELjrFQYLo8j

safach · Answer

Bonjour Mike-31, 
je ne sais pas si j'ai commenté ta réponse ou celui d'Alan357 mais voici une copie de mon message
j'ai le même besoin qu' Alan357 sauf que je dois tenir compte des samedis et on a d'autres jours féries et d'autres horaires. comment modifier les formules pour les adapter à mes besoins? 
on travaille de lundi à vendredi du 8h à 17h 
le samedi de 8h à 13h30 
quelques employés ont des heures supplémentaires que sont calculées journalièrement dans un autre fichier Excel. peux-tu chercher les heures supplémentaires de chaque employé dans l'autre fichier pour calculer le total des heures de travail. peux tu m'aider ? 
merci d'avance 
cordialement

Mike-31 · Answer

Bonsoir Safach,

Tu aurais dû ouvrir ta propre discussion qui est différente de celle traitée ci-dessus.

commence par créer un exemple de fichier anonymisé que tu mettras à notre disposition que l'on voit sa structure afin d'adapter les formules.
pour joindre ton fichier clic sur ce lien et colle dans une réponse le lien qui sera généré
 https://www.cjoint.com/