XL 2019 Qui peut m'expliquer comment faire ce graphique pas à pas dans un classeur vierge... ?

anthoYS

XLDnaute Barbatruc
Bonjour,

voir document joint.

Merci !
 

Pièces jointes

  • suivi perte de poids.xlsm
    269.8 KB · Affichages: 27
Solution
Bonsoir à toutes & à tous, bonsoir @anthoYS

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...

AtTheOne

XLDnaute Impliqué
Supporter XLD
Bonsoir à toutes & à tous, bonsoir @anthoYS

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
    276.9 KB · Affichages: 11

Discussions similaires

Réponses
7
Affichages
306

Statistiques des forums

Discussions
312 184
Messages
2 086 008
Membres
103 089
dernier inscrit
johnjohn1969