Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

calendrier et graphique jours ouvrables

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion Blafi
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
B

Blafi

XLDnaute Occasionnel
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)..
 

Pièces jointes

Trier par date Trier par votes
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
 
Vote positif 0 Vote négatif
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.
 

Pièces jointes

Vote positif 0 Vote négatif
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.
 

Pièces jointes

Vote positif 0 Vote négatif
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...
 
Vote positif 0 Vote négatif
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
 
Vote positif 0 Vote négatif
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
Code: 
'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
 
Vote positif 0 Vote négatif
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.
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

S
  • Question Question
Microsoft 365 Planning : suppression de l'enregistrement pour les samedis, Dimanches et jours fériés si case cochée.
Réponses
11
Affichages
425
Cousinhub
D
  • Résolu(e)
Microsoft 365 Graphique avec plage de données glissante en partant d'une date
Réponses
5
Affichages
923
Dégé59
D
S
  • Question Question
XL 2019 Calculer dimanche de pâques puis insertion du 29 février
2
Réponses
26
Affichages
1 K
dysorthographie
S
  • Question Question
Autres Calendrier avec les week-ends et jours fériés en couleurs
Réponses
2
Affichages
685
riton00
A
  • Question Question
Microsoft 365 calendrier heures de travail en fonction des jours et des semaines
Réponses
8
Affichages
919
amris
A
E
  • Question Question
Microsoft 365 VBA Calendrier, rien ne se passe.
Réponses
12
Affichages
1 K
fanch55
  • Question Question
Power Pivot Afficher nombre total jours travaillables dans mois sans restriction de la chronologie
Réponses
6
Affichages
1 K
Nairolf
N
  • Résolu(e)
Microsoft 365 Créer un graphique à partir de données sur base d'un calendrier...
Réponses
14
Affichages
2 K
Droopyougo
P
  • Résolu(e)
Microsoft 365 Gérer automatiquement vacances et jours fériés fiches horaire
4 5 6
Réponses
76
Affichages
7 K
pamonnier
P
Z
  • Question Question
Microsoft 365 Graphique nuage de points
Réponses
4
Affichages
1 K
sylvanu
  • Question Question
XL 2019 MFC sur calendrier Résolu
Réponses
4
Affichages
883
gigiwin
I
  • Question Question
XL 2016 Graphique avec des volumes réalisés vs prévus et notion de temps
Réponses
2
Affichages
1 K
informaticum2000
I
  • Question Question
XL 2016 Menus déroulants avec fonction "SI" + calendrier automatique
Réponses
2
Affichages
2 K
Novice38
B
  • Question Question
Calendrier, Function férié(i) et ajout de dates dynamiques
Réponses
10
Affichages
2 K
patricktoulon
  • Question Question
XL 2016 Menus déroulants avec formules "SI" + calendrier automatique
Réponses
4
Affichages
1 K
Novice38
L
  • Question Question
Graphique histogramme : Etiquettes données nb et %
Réponses
1
Affichages
1 K
Laliepomm
L
B
  • Question Question
Microsoft 365 Planning de gardes pour un hopital
Réponses
1
Affichages
2 K
tintin5356
T
M
  • Question Question
base de donnees relié a plusieurs feuille et graphique
Réponses
0
Affichages
654
mic35
M
N
  • Question Question
XL 2019 formulaire de recherche et de saisie
Réponses
1
Affichages
921
Naniomasu
N
  • Résolu(e)
Calendrier de réservation pour chambre d’hôtes et base de données à partir d'un formulaire
Réponses
12
Affichages
4 K
bournissa
B
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…