[XL-2003] Problèmes avec les dates pour un planning.

[perpitou]

Bonjour à tous.

Je vous écris car j'ai un souci avec un outil que je suis entrain de créer.
J'aimerai créer un genre de planning pour la gestion des chantiers sur un mois entier.

J'ai des problèmes avec les dates. Car comme vous pouvez voir sur mon fichier joint je n'arrive pas à isoler les jours du mois que je souhaite.

Je sais je ne suis pas clair

Pour résumer, si le 1 mai est un mardi et que le 31 est un jeudi alors je veux mes cases avec une date entre ces deux dates.
Par contre, le mois d'après commencera le Vendredi 1er. Est ce possible dites moi si je ne suis pas clair.

Je répondrai à toutes vos questions.

[perpitou]

Excusez moi je suis nouveau, je ne connaissais pas toutes les règles.

Je vais préciser ma demande.

Je rentre une date dans une cellule qui correspondra au début de mon chantier. (ex: 05/05/2012)

J'ai créer un planning de type gantt. Sauf que je souhaite diviser le temps en mois et par jours.
(En effet, c'est pour que le responsable puisse faire sa gestion au mois de ses chantiers c'est à dire du 1er au 31)

Pour cela, j'ai pour un mois 5 semaines de 5 jours.
5 semaines : car si on regarde le calendrier, les jours sont répartis sur 5 semaines pour former un mois. (ex: le vendredi est le 1er, donc c'est la première semaine puis on enchaine 3semaines complètes de 5jours et le 30 se finira le mardi donc 5ième et dernière semaine du mois.

5jours: car 5jours travaillés dans la semaine ( je n'ai pas indiqué les samedi et dimanche).

Pour l'instant j'ai rentré au 1er lundi du mois cette formule :

Code :

=DATE($X$2;EQUIV(H5;Mois;0);1)-JOURSEM(DATE($X$2;EQUIV(H5;Mois;0);1);2)+1+SI(JOURSEM(DATE($X$2;EQUIV(H5;Mois;0);1);2)>5;7;0)

et après j'enchaine les jours en mettant +1 au mardi. Sauf le lundi ou j'ajoute +3 ( pour sauter le samedi et dimanche).

Le problème est quand j'arrive à la fin du mois, il continue. Sauf que j'aimerai qu'arrivé au 30 (ou31). SI le 30 c'est un mardi (par exemple), le mois s’arrête et le mois d’après recommence dans une autre semaine au mercredi.

Est-ce possible? J'ai cherché dans des bouquins et sur le net je n'ai rien trouvé.

J'espère avoir était plus clair.

N'hésitez pas à me signaler toutes vos incompréhensions.

Amicalement.

[carden752]

Bonjour,

Tu as plusieurs fonctions sur les dates de disponibles dans Excel dont

1. Fin.Mois qui donne le jour du dernier jour du mois.
2. NB.JOURS.OUVRES qui donne le nombre de jours ouvrés (du lundi au vendredi) entre deux dates.

Pour accéder à ces fonctions, il faut les activés, se rendre dans Outils puis Macros complémentaires... et cocher Utilitaire d'analyse. Elles sont alors disponibles dans la barre de fonctions classique sous Date et Heure.

Je te laisse explorer ces fonctions, tu devrais y trouver ton bonheur.

[perpitou]

J'ai déjà réalisé la manip. Elle me dépanne bien.

Cependant, c'est pour incrémenter mes dates d'un seul mois.

Je veux juste que mes dates s'arrêtent au 30 (ou 31). Pour reprendre sur une nouvelle semaine.

exemple au mois de novembre 2011.
Semaine 1 : L. , M.1 , M.2, J.3, V.4
Semaine 2 : L.7 , M.8 , M.9, J.10, V.11
Semaine 3: L.14 , M.15 , M.16, J.17, V.18
Semaine 4: L.21, M.22 , M.23, J.24, V.25
Semaine 5: L.28, M.29 , M.30, J., V.

ET il me reprend au mois de décembre 2011 :
Semaine 6: L., M. , M., J.1, V.2 et ainsi desuite...

Est-ce possible sur excel de réussir à faire ça?

Mais merci pour la réponse.

[perpitou]

J'ai trouvé une partie de mon problème. Cependant je suis toujours bloqué car il ne fonctionne que pour les mois de Janvier ,Mai et Octobre 2012.

Si une personne peut aider un pauvre débutant...

[Gestionnaire_rh]

Bonjour,

essaye d'adapter cette exemple, le principe est simple: juste saisie la date du premier jour du mois et ça t'affichera les colonnes concernées pour les jours de la semaine (soit du lundi a vendredi).
encore un truc: peut être que ça marche pas juste le premier coup lors du passage sur nouvelle année.

Cordialement

[darkvadave]

Re Bonsoir, (navré, j'ai envoyé le message par erreu avant de l'avoir terminé)
la question est de savoir s'il est indispensable de supprimer les lignes correspondant aux jours non travaillés comme le dimanche : dans l'absolu, il suffit de créer un planning de 31 lignes (ou 62 si on distigue les matins et les apm) et d'utiliser une MFC pour faire disparaître les jours qu'on veut ignorer (du genre, faire apparaitre le N° du jour dans la semaine dans une colonne à coté des des jours du mois et demander par MFC de colorer les lignes correspondant aux samedi, dimanches... en noir).
Sinon :
* en A1 : case où on met l'année
*en A2 : case où on met le mois
*en A3 : N° jour semaine
*en A4 et suivantes:
"=JOURSEM(réf case juste à droite;2)" (le 2 indique de numéroter le lundi comme jour N°1, mardi N° 2...dimanche N°7)
c'est à dire : en A4 :

Code :

=JOURSEM($A$1;$A$2;B4)

et on fait un copierpcoller pour les lignes suivantes
* colonne B : indique la date
* en B3 : Date
"=DATE(année;mois;jour)" (référencer l'année et le mois en valeur absolue ie quand on étire la colonne, la référence ne change pas : perso, j'applique un fond rouge sur les cellules contenant des variables que je prévois de changer manuellement pour les repérer plus facilement)
* en B4 : =DATE(année;mois;1) indique le 1er jour
Cette ligne sera à masquer plus tard
La deuxième ligne correspondra à la 1ère ligne du planning :
* en B5 :

Code :

=SI(MOIS(B4+1)<>$A$2;"";SI(OU(A4=1;A4=2;A4=3;A4=4;A4=5);B4;SI(A4=6;B4+2;SI(A4=7;B4+1;""))))

* en B6

Code :

:=SI(MOIS(B5+1)<>$A$2;"";SI(OU(A5=1;A5=2;A5=3;A5=4);B5+1;SI(A5=5;B5+3;SI(A5=6;B5+2;SI(A5=7;B5+1;"")))))

et on étire cette cellule.
Rete à bricoler un peu pour ne pas avoir le message d'erreur #VALEUR! sur les cases suivant le dernier jour de la liste.
Logiquement, on doit pouvoir ainsi sélectionner uniquement les dates correspondant aux jours de semaine voulus : reste tenir compte des jours fériés (11 au total, dont 3 variables à calculer à partir du dimanche de paques (la voila au cas où...)

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Function DIMPAQUES(Yr As Integer) As Long
 
  Dim Century As Integer
  Dim Sunday As Integer
  Dim Epact As Integer
  Dim Golden As Integer
  Dim LeapDayCorrection As Integer
  Dim SynchWithMoon As Integer
  Dim N As Integer
 
  Golden = (Yr Mod 19) + 1
  Century = Yr \ 100 + 1
  LeapDayCorrection = 3 * Century \ 4 - 12
  SynchWithMoon = (8 * Century + 5) \ 25 - 5
  Sunday = 5 * Yr \ 4 - LeapDayCorrection - 10
  Epact = (11 * Golden + 20 + SynchWithMoon - LeapDayCorrection) Mod 30
  If Epact < 0 Then Epact = Epact + 30
  If (Epact = 25 And Golden > 11) Or Epact = 24 Then Epact = Epact + 1
  N = 44 - Epact
  If N < 21 Then N = N + 30
  N = N + 7 - ((Sunday + N) Mod 7)
  DIMPAQUES = DateSerial(Yr, 3, N)
 
End Function

Sur le même principe, on peut sélectionner les jours en fonction d'autres paramètres comme le N° de semaine...