Discussion :

[marcelisa2]

Bonjour,
j'essaye de réaliser planning avec une vision mensuelle et y restituer des blocs de tâches.
Vis à vis de l'axe des abscisses, je souhaiterai pouvoir représenter les mois de l'année de la manière suivante


J'ai commencé à minima à essayer de représenter les dates des fin de mois comme suit . Voici un extrait du code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
ActiveChart.Axes(xlValue).Select
    ActiveChart.ChartArea.Select
    ActiveChart.Axes(xlValue).Select
    ActiveChart.Axes(xlValue).MinimumScale = 42735  ' 31/12/2016
    'pas de 30 jours
    ActiveChart.Axes(xlValue).MajorUnit = 30

je n'obtiens pas une gestion exacte de fin de mois


1. quel code dois je utiliser pour gérer des abscisses de fin de mois ?
2. Comment puis je arriver au résultat avec 3 niveaux d'échelle comme représenté sur la 1ère image?

En vous remerciant par avance pour votre aide

[Menhir]

Une astuce pour déterminer la fin d'un mois : c'est le jour qui précède le début du mois suivant.

Non, non, je ne me moque pas de toi en sortant une lapalissade.
Le premier jour du mois suivant est facile à obtenir avec la fonction DateSerial().
https://msdn.microsoft.com/fr-fr/lib.../gg264202.aspx
Il suffit ensuite de faire -1 à cette fonction pour avoir la fin de mois.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

DateSerial(Year(Range("A1")), Mounth(Range("A1")) + 1, 1) - 1

[halaster08]

Une astuce pour déterminer la fin d'un mois : c'est le jour qui précède le début du mois suivant.

C'est pas plus simple d'utiliser la fonction EOMONTH ?
https://support.office.com/en-us/art...6-f49db127d628