Vous utilisez un navigateur obsolète. Il se peut que ce site ou d'autres sites Web ne s'affichent pas correctement. Vous devez le mettre à jour ou utiliser un navigateur alternatif.
XL 2019Qui peut m'expliquer comment faire ce graphique pas à pas dans un classeur vierge... ?
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
Ce site utilise des cookies pour personnaliser le contenu, adapter votre expérience et vous garder connecté si vous vous enregistrez.
En continuant à utiliser ce site, vous consentez à notre utilisation de cookies.