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

  • Initiateur de la discussion Initiateur de la discussion anthoYS
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

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

- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

  • Question Question
XL pour MAC Graphique
Réponses
12
Affichages
271
  • Question Question
Microsoft 365 Excel graphique
Réponses
3
Affichages
292
Réponses
4
Affichages
181
Réponses
5
Affichages
210
  • Question Question
Microsoft 365 Graphique à bulles
Réponses
2
Affichages
152
  • Question Question
Microsoft 365 Lien vers pdf
Réponses
3
Affichages
147
  • Question Question
Réponses
12
Affichages
352
Retour