Titre du sujet : Re: légende axe abscisse par myDearFriend! le 22/09/2009 21:38:04
Bonsoir djstroubi, le Forum,
Si la feuille "graph lundi" contient plusieurs graphiques, tu peux modifier le code (contenu dans ThisWorkbook) comme suit :
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Dim G As ChartObject
'La donnée horaire modifiable est placée en feuille "lundi", cellule D2
If Sh.Name = "lundi" And Target.Address = "$D$2" And IsDate(Target.Text) Then
'Les graphiques sont créés directement sur une sheet de type Graph nommée "graph lundi"
With Charts("graph lundi")
.Axes(xlValue).MinimumScale = Target
For Each G In .ChartObjects
G.Chart.Axes(xlValue).MinimumScale = Target
Next G
End With
End If
End Sub
Merci de joindre un fichier exemple reflétant le cas exposé dans ta question la prochaine fois...
Cordialement,
|