créer une macro sur mon calendrier perpetuel

[philfae]

Bonjour à tous
Pour mon planning de travail j’ai un calendrier perpétuel sur lequel j’ai saisi manuellement mon roulement de quart
Est-ce que quelqu’un peux m’aider à créer une macro pour rendre mon roulement de quart
Perpétuel lui aussi après changement de l’année du calendrier
Le roulement de quart se déroule sur 6 semaines ,sur le document ci-joint j’ai rajouté une colonne a coté du quart pour bien montrer les 6 semaines c’est la période en gris ( exemple du mardi 5 janvier au lundi 15 février)
Pour le calendrier je ne sais pas faire pour les années bissextiles
Merci beaucoup

[galopin01]

bonjour,
Euh... ça me semble un peu... difficile !
D'autant que sans vouloir te vexer ton calendrier est un peu "tiré par les cheveux"
Je t'ai refait le truc d'une manière un peu plus courante sans macro.
Le calendrier est valide pour quelques années.
YAKA changer l'année en haut pour que ça se mette à jour...
Je n'ai figuré qu'un quart toutes les 24 semaines mais on peut bien sur faire apparaître les autres quarts.
Explications sur demande si nécessaire.
Le fichier.
A+

[philfae]

bonjour galopin01

Merci pour la modif sur le calendrier mais quand je change l'année mon quart est faux,j'aimerai bien que mon quart soit reactualisé ou mis a jour a l'aide d'un bouton apres avoir changé l'année pour ne pas etre obligé de le saisir manuellement .Par contre excuse moi mais j'ai pas bien compris ta derniere remarque sur 24 semaines
@+

[galopin01]

Ben, 1/4 faisant 6 semaines, il reste 3/4 qui font 3x6 = 18 semaines : j'en déduit que ce quart revient toutes les 24 semaines...
Sur cette base de calcul ton prochainquart revient le 22 juin et le 7 décembre et ils durent bien 6 semaines : celui qui commence le 7 décembre se terminant le 17 janvier 2011 et le cycle est correct !
Ou alors ton quart n'est plus 1/4, auquel cas il faut mieux expliquer tous les combien il revient...
A+

[dubois]

Bonsoir galopin01, à tous,

Je suis un peu ce fil, le cycle revient tous les 42 jours (6 semaines)
d'où décalage au changement d'année (12 jours ou 13 pour les bissextiles), à vérifier !
Claude.

[philfae]

En fait les 6 semaines c’est une période comprenant les jours de travail et les jours de repos c’est un cycle complet et ces cycles doivent se succéder les uns après les autres comme tu peux le voir sur le planning 2010 que j’ai posté au départ . Donc ma demande initiale est de voir s’afficher ces périodes qui se suivent concrètement en face de chaque jour du calendrier M pour matin A pour après midi N pour nuit RA et RH pour le repos etc.….et non une barre grise Le document final me permettrai donc de changer l’année dans la liste déroulante + un bouton a créer qui permet de caler les périodes au bon endroit,les dates que tu m’a donné sont justes mais toutes les 6 semaines ça recommence .En regardant mon planning je dois pouvoir dire d’un simple coup d’œil que par exemple le vendredi 17 juin 2011 je suis de nuit ou le 25 décembre 2013 je suis d’après-midi
Bon je pense que j’étais un peu plus clair dans mon explication donc si quelqu’un peut m’aider a finaliser ce document je serai ravi
@+

[galopin01]

Ok ! Bien compris pour le cycle au lieu du quart.
Le fichier à été remanié en conséquence.
Le cycle se modifie de lui même au changement d'année (ça prend quelques secondes) Je regarde si jepeux l'accélérer encore...
A+

[dubois]

Bonjour à tous,

Voici ma feuille de travail,
reste à voir pour scinder l'année en 12 mois et les répartir sur le calendrier réel.
La difficulté est de situer le 1er Mars

je continue
Bonne journée
Claude.

Cycle_2.xls

(76 Kio) Téléchargé 75 fois

édit:
en K2, le delta avec l'an 2000 ne sert à rien !
=MOD(DATE(A1;1;1);42)

Prévoir un calage du cycle (une fois pour toute)

[galopin01]

Re..
Une petite correction pour le précédent fichier. Ce fichier corrige un petit bug d'affichage pour le 29 Février.
Comme je n'arrive pas à me connecter en FTP je l'ai mis à une autre adresse en attendant de corriger les liens précédents.
Cette autre démo est une version un peu améliorée,(un poil plus rapide) le rafraichissement se fait toujours automatiquement et en plus...(cerise sur le gateau...) on peut rafraichir par le bouton.
Nota : Le USF ne sert plus à rien puisque le cycle se règle sur la feuille "Param"
Dans cette dernière, il n'y a plus de Déprotection / Protection car les cellules ne sont pas verrouillées.
Bon après ça on peut toujour faire un MIX des 2 démo...
A+

[dubois]

Salut galopin,

Bravo !
j'y serai sans doute arrivé, mais avec encore quelques heures.
le problème est donc résolu (pour moi)

Peut-être remplacer:

Code: Tout sélectionner

Ws.Cells(k + 12, j) = Cycle(i + 1, 1)
Ws.Cells(k + 12, j).Interior.ColorIndex = Cycle(i + 1, 1).Interior.ColorIndex

par:

Code: Tout sélectionner

Cycle(i + 1, 1).Copy Destination:=Ws.Cells(k + 12, j)

Bonne journée
Claude.