calendrier et graphique jours ouvrables

[Blafi]

Bonjour à tous les forumeurs,

J'ai une question qui concerne la création d'un calendrier mensuel de jours ouvrables (donc samedis compris si pas férié)afin de pouvoir créer un graphique des données entrées pour chaque jour..

Dans le classeur ci-joint, je voudrais ainsi :

1/ entrer le premier jour du mois concerné en G2
2/ que sur la ligne 5 qui contient les étiquettes d'abcisse de mon graphique (jours du mois)n'apparaissent alors que les jours ouvrables du mois afin que je puisse entrer les données sur la ligne 6 (il s'agit d'une charge de travail à l'unité entre 45000 et 65000).
3/ que mon graphique se trace petit à petit chaque jour ou je rentre un chiffre et ceci en contournant le problème de mes lignes de jours et de données qui n'auront jamais la même longueur suivant les mois...

Tout cela dépasse un peu mes compétences et je remercie d'avance ceux qui pourront m'aider à aboutir...

Merci et à bientôt (demain sans doute car il se fait tard)..

 

[Blafi]

Re : calendrier et graphique jours ouvrables

Rebonjour à tous..

Sans vouloir vous déranger et paraitre impatient, je suis désolé de ne pas avoir de réponse à mon post ci-dessus..
Quelqu'un peut-il m'aider ?
Merci d'avance

 

[Monique]

Re : calendrier et graphique jours ouvrables

Bonjour,

Il y a une feuille "Listes" avec
une cellule nommée "An" contenant le n° de l'année
une plage de fériés, nommée "Fer"
une plage nommée "ListMs" pour faire une liste de validation en feuille "Charge"

Dans la feuille "Charge",
en G2, c'est par une liste de validation que l'on choisit le mois
Ensuite, ça se complique

En A5, la même date qu'en G2, donc le 1er du mois, mais cellule au format nombre "Jours : "
En B5, une formule matricielle pour avoir le 1er jour ouvrable du mois
=MIN(SI(Zone>=A5;SI(NB.SI(Fer;Zone)=0;SI(JOURSEM(Zone)>1;Zone))))

Zone représente une série de 31 jours
ce n'est pas une plage nommée normale, c'est une plage "virtuelle", nommée par formule

Ligne(Indirect(Début":"Fin))
C'est cette formule Ligne(Indirect(A5":"A5+30))
qui est nommée "Zone" (Insertion - Nom - Définir)

Pour le 1er jour ouvrable, MIN(SI(Zone>=A5;SI(NB.SI(Fer;Zone)=0;SI(JOURSEM(Zone)>1;Zone)))
renvoie le 1er jour (le Min) de "Zone" > ou = au 1er, si ce n'est pas 1 férié (Nb.Si(Fer;Zone)=0) et si ce n'est pas un dimanche (JourSemaine(Zone)>1)

Pour les autres jours ouvrables, idem sauf > au lieu de >=, ça donne MIN(SI(Zone>B5;SI(NB.SI(Fer;Zone)=0;SI(JOURSEM(Zone)>1;Zone)))

Pour ne pas passer au mois suivant, elle est au conditionnel mais ça ne change rien, sauf la taille de la formule :
SI(B5="";"";SI(MOIS(MIN(SI((Zone>B5)*(NB.SI(Fer;Zone)=0)*(JOURSEM(Zone)>1);Zone)))<>MOIS(B5);"";MIN(SI((Zone>B5)*(NB.SI(Fer;Zone)=0)*(JOURSEM(Zone)>1);Zone))))

Ligne 5 : format date jj
Ligne 4 : le jour de la semaine, format jjj
Format conditionnel 2 couleurs alternées 1 semaine sur 2

Le graphique, je n'y ai pas touché sauf les dates, en bas.

 

[Celeda]

Re : calendrier et graphique jours ouvrables

Bonjour,

zolie, zolie, la formule Momo!!!!! superbe!!!!!

il me semblait bien qu'elle serait hard!!pour ma pomme!!!

alors moi, pour aider Blafi, allez voir les vébéaistes

ait été séduite par la macro d'Alain Vallon (merci AV)

et l'ai placée dans le fichier

et avec une autre formule pour rendre dynamique les dates (NA()) pour les
vides, le graphique s'auto alimentera.


ps :nos esprits n'étaient pas trop loin, Monique.

 

[Blafi]

Re : calendrier et graphique jours ouvrables

Je regarde seulement aujourd'hui les réponses de Monique et Celeda....

Je vous remercie tous les deux de vos solutions que je vais regarder et essayer...
Pour avoir beaucoup cherché sur ce forum, j'avais pu voir que vous étiez les spécialistes des dates et calendriers et je n'ai pas été deçu....

Merci encore et à bientôt sur le forum...

 

[DEC]

Re : calendrier et graphique jours ouvrables

Bonjour,

J'ai adapté la macro d'Alain Vallon fournie par Celeda à un planning pour une crèche qui occupe administrativement ma retraite. J'ai apporté quelques modifications pour la Suisse. Les jours fériés ne sont pas les mêmes et on en a un peu moins. J'ai cru que j'avais fait une erreur parce que le 12ème mois ne fonctionnait pas, mais en reprenant le fichier d'origine "chargeJO" je me suis aperçu que le mois de décembre ne fonctionnait pas non plus. Celeda pourrait-elle m'aider ?

Merci infiniment Celeda

Excel 2007 - WindowsXP

Armand

 

[chris]

Re : calendrier et graphique jours ouvrables

Bonjour

J'ai modifié la macro car selon la configuration des paramètres régionaux elle ne marchait pas.

Cela semble OK sur ma version US

'macro d'Alain VALLON - VIP MVP -

Sub Jour_Ouvrés_En_Colonnes()
A = InputBox("Saisie du millesime"): M = InputBox("Saisie du mois")
[COLOR=Magenta]dat1 = DateSerial(A, M, 1)
dat2 = DateSerial(A, M + 1, 1)
J1 = DateSerial(A, 1, 1)
J2 = Evaluate("FLOOR(DATE(" & A & ",5,DAY(MINUTE(" & A & "/38)/2+56)),7)-34") + 1
J3 = DateSerial(A, 5, 1): J4 = DateSerial(A, 5, 8)
J5 = J2 + 38: J6 = J2 + 49:
J7 = DateSerial(A, 7, 14)
J8 = DateSerial(A, 8, 15): J9 = DateSerial(A, 11, 1)
J10 = DateSerial(A, 11, 11): J11 = DateSerial(A, 12, 25)[/COLOR]
x = 1
For i = dat1 To dat2
    'j'ai changé ici le 7 à la place du 6 pour avoir le samedi
    If Weekday(i, 2) < 7 And i <> J1 And i <> J2 And _
        i <> J3 And i <> J4 And i <> J5 And i <> J6 _
        And i <> J7 And i <> J8 And i <> J9 And _
        i <> J10 And i <> J11 Then
       ActiveSheet.Cells(1, x) = Format(i, "dddd")
       ActiveSheet.Cells(2, x) = Format(i, "m-d-yy")
       
       x = x + 1
    End If
Next
Application.ScreenUpdating = True
End Sub

 

[DEC]

Re : calendrier et graphique jours ouvrables

Merci Chris,

Le code marche parfaitement bien, merci infiniment vous êtes super. J'ai cependant complété la ligne dat2, car il s'inscrivait le 1er jour du mois suivant. J'ai ajouté ...) - 1 pour n'avoir que les jours du mois concerné.
Encore merci.

Armand

NB Me reste à intégrer les jours de vacances de la crêche.

 

[Celeda]

Re : calendrier et graphique jours ouvrables

Bonjour,

Merci DEC d'avoir ressorti ce planning et merci surtout excellement et infinimmmmmmmmmmmmmment Chris!!!🙂