Rapport de message :*
 

Re: légende axe abscisse

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,