Rapport de message :*
 

Re: légende axe abscisse

Titre du sujet : Re: légende axe abscisse
par myDearFriend! le 23/09/2009 21:36:48

Bonsoir djstroubi, le Forum,

En partant toujours de la même procédure :
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Dim Graph As Object
Dim G As ChartObject
    'La donnée horaire modifiable est placée sur une feuille "JourX" en D2
    If Target.Address = "$D$2" And IsDate(Target.Text) Then
        On Error Resume Next
        Set Graph = Charts("graph " & Sh.Name)
        'Si la feuille "graph JourX" existe...
        If Not Graph Is Nothing Then
            '... on modifie la valeur de départ en abscisse sur chaque graphique
            With Graph
                .Axes(xlValue).MinimumScale = Target
                For Each G In .ChartObjects
                    G.Chart.Axes(xlValue).MinimumScale = Target
                Next G
            End With
        End If
    End If
End Sub

Attention toutefois :
Ce code est sensible à la casse : si la feuille contenant la donnée modifiable se nomme par exemple "mercredi", le graph correspondant doit obligatoirement se nommer "graph mercredi" ! (et NON "graph Mercredi" ou "graph MERCREDI" etc...)

Cordialement,