Rapport de message :*
 

Re: légende axe abscisse

Titre du sujet : Re: légende axe abscisse
par myDearFriend! le 19/09/2009 19:27:37

Re,

C'est entendu djstroubi, merci de ta compréhension.

Ta nouvelle demande différe encore de la précédente... Avec l'emploi d'un graphique sur une feuille dédiée (de type Graph), ce n'est plus tout à fait la même approche.
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    '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
        'Le graphique est créé directement sur une sheet de type Graph
        Charts("graph lundi").Axes(xlValue).MinimumScale = Target
    End If
End Sub
Par ailleurs, si tu ne modifies pas If Sh.Name = "Feuil1" en If Sh.Name = "lundi", ça ne pourra jamais fonctionner...

Cordialement,