Si ta demande est toujours d'actualité, j'ai reconstitué le graphique donné en exemple et j'ai ajouté une feuille "PAS A PAS" avec les explications.
J'ai ajouté une macro pour mieux adapter l'axe des dates lorsque l'on change d'unité (7 jours, 1 Mois) :
Enrichi (BBcode):
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = Me.[VueGraphique].Address Then
With Me.ChartObjects("Suivi de perte de poids").Chart.Axes(xlCategory)
Select Case Target.Value
Case Is = "HEBDOMADAIRE"
.MajorUnitScale = xlDays
.MajorUnit = 7
Case Is = "MENSUELLE"
.MajorUnitScale = xlMonths...
Si ta demande est toujours d'actualité, j'ai reconstitué le graphique donné en exemple et j'ai ajouté une feuille "PAS A PAS" avec les explications.
J'ai ajouté une macro pour mieux adapter l'axe des dates lorsque l'on change d'unité (7 jours, 1 Mois) :
Enrichi (BBcode):
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = Me.[VueGraphique].Address Then
With Me.ChartObjects("Suivi de perte de poids").Chart.Axes(xlCategory)
Select Case Target.Value
Case Is = "HEBDOMADAIRE"
.MajorUnitScale = xlDays
.MajorUnit = 7
Case Is = "MENSUELLE"
.MajorUnitScale = xlMonths
.MajorUnit = 1
End Select
End With
End If
End Sub
J'ai collé à l'exemple donné, il y a des possibilités d'amélioration mais comme on dit : le mieux est l'ennemi du bien ...
Amicalement
Alain
Pièces jointes
Expliquer comment faire ce graphique pas à pas dans un classeur vierge.xlsm