nommer l'axe horizontal en mois de l'année 2017

[NasserMoussa]

Bonjour, j ai besoins de vos aides j ai eu du mal à modifier l'axe horizontal en différents mois de l'année(janvier 2017.....jusqu’à janvier 2018).
ci joint le fichier. Merci

 

[job75]

Bonsoir NasserMoussa,

Voyez le fichier (2) joint.

En A2 entrer la date du 15/01/2017.

En A3 entrer la formule =A2+30 et la tirer vers le bas.

Enlever le +30 de la formule en A7 A12 A17.

Format personnalisé mmmm aaaa sur la colonne A.

Mettre en forme l'axe des abscisses, en particulier l'unité principale => 30.

Bonne nuit.

 

[NasserMoussa]

Bonsoir NasserMoussa,

Voyez le fichier (2) joint.

En A2 entrer la date du 15/01/2017.

En A3 entrer la formule =A2+30 et la tirer vers le bas.

Enlever le +30 de la formule en A7 A12 A17.

Format personnalisé mmmm aaaa sur la colonne A.

Mettre en forme l'axe des abscisses, en particulier l'unité principale => 30.

Bonne nuit.

Bonjour job75,
c est exactement ce que je cherchais, Merci infiniment.

 

[job75]

Bonjour NasserMoussa, le forum,

Voyez le fichier joint avec une solution VBA qui fonctionne quelle que soit l'année.

Liste déroulante en E2 pour choisir l'année.

Formule en A2 qui donne toujours le 15 du mois de janvier =DATE(E2;1;15)

Macro dans le code de la feuille pour forcer le minimum de l'axe des abscisses :

Private Sub Worksheet_Change(ByVal Target As Range)
ChartObjects(1).Chart.Axes(xlCategory).MinimumScale = [A2] - 30
End Sub

Bon dimanche.