Bonjour le Forum,
j'ai des données en tableau que je mets en forme par macro, la macro enchaine ensuite la création d'un graphe, Ce graphe possède une échelle de temps en abcisse (en X) et une échelle de température en Y et une échelle de pression en Y'.
Tout va bien pour la création. Mais j'ai un soucis dans la mise en forme des échelles et pourtant
le code en rouge est récupéré de l'enregistreur
...et je ne trouve pas !!! le blem 1004
With MG.Axes(xlValue, xlSecondary)
.MinimumScale = 0
.MaximumScaleIsAuto = True
.MinorUnitIsAuto = 1
.MajorUnitIsAuto = 5
.Crosses = xlAutomatic
.ReversePlotOrder = False
.ScaleType = xlLinear
.DisplayUnit = xlNone
End With[/code]
...
Merci pour votre aide
j'ai des données en tableau que je mets en forme par macro, la macro enchaine ensuite la création d'un graphe, Ce graphe possède une échelle de temps en abcisse (en X) et une échelle de température en Y et une échelle de pression en Y'.
Tout va bien pour la création. Mais j'ai un soucis dans la mise en forme des échelles et pourtant
le code en rouge est récupéré de l'enregistreur
...et je ne trouve pas !!! le blem 1004
Code:
Sub InsereGraph()
...
Dim MG As Chart
...
Set MG = ActiveChart 'Permet d'instancier la nouvelle feuille graphique
...
'Gestion des échelles des X (hh:mm)
With MG.Axes(xlCategory)
.MinimumScale = 0
.MaximumScaleIsAuto = True
.MinorUnit = 0.04166666666666
.MajorUnit = 0.2083333333333
.Crosses = xlAutomatic
.ReversePlotOrder = False
.ScaleType = xlLinear
.DisplayUnit = xlNone
.TickLabels.NumberFormat = "[h]:mm"
End With
'Gestion de l'échelles des Y
With MG.Axes(xlValue)
.MinimumScale = 0
.MaximumScaleIsAuto = True
.MinorUnit = 10
.MajorUnit = 50
.Crosses = xlAutomatic
.ReversePlotOrder = False
.ScaleType = xlLinear
.DisplayUnit = xlNone
.TickLabels.NumberFormat = "0"
End With
'Gestion de l'échelles des Y' [highlight]'C'est à partir d'ici que ça plante !!
With MG.Axes(xlValue, xlSecondary)
.MinimumScale = 0
.MaximumScaleIsAuto = True
.MinorUnitIsAuto = 1
.MajorUnitIsAuto = 5
.Crosses = xlAutomatic
.ReversePlotOrder = False
.ScaleType = xlLinear
.DisplayUnit = xlNone
End With[/code]
...
Merci pour votre aide