Où est le vice ?

Bonsoir Serge,
Et avec y1 = Range("py").value ?
Par ailleurs, qu'y a t il en py ?
--
Amicales Salutations
A_S_rauphil@wanadoo.fr
Retirer A_S_ pour répondre.
XL97 / XL2002

"garnote" <rien@absent.net> a écrit dans le message de news:c2Bob.738$Ng3.167@charlie.risq.qc.ca...

Bonchoir le monde,

Des fois, ça marche, des fois ça marche pas !!!
Auriez-vous une idée pour expliquer cette infamie ?

Sub ChangeY()
y1 = Range("py")
y2 = Range("gy")
With ActiveSheet.ChartObjects("GraphiqueGarno"). _
Chart.Axes(xlValue)
.MinimumScale = y1 ' C'est ici que ça bloque
.MaximumScale = y2
.MajorUnitIsAuto = True
End With
End Sub

;-)

Serge

......
.MinimumScale = [py]
.MaximumScale = [gy]
......

AV

bonjour Serge,

la référence des plages py et gy est bien mit en absolu ?

isabelle

Bonchoir le monde,

Des fois, ça marche, des fois ça marche pas !!!
Auriez-vous une idée pour expliquer cette infamie ?

Sub ChangeY()
y1 = Range("py")
y2 = Range("gy")
With ActiveSheet.ChartObjects("GraphiqueGarno"). _
Chart.Axes(xlValue)
.MinimumScale = y1 ' C'est ici que ça bloque
.MaximumScale = y2
.MajorUnitIsAuto = True
End With
End Sub

;-)

Serge

Merci à Philippe, au capitaine Crochet et à Isabelle.

J'essayais de mettre au point un système permettant
de contrôler les bornes en X et en Y d'un graphique.
Là, ça y est et mon code semble minimal !


Dim AX As Object
Dim AY As Object

Sub Nomme()
Set AX = ActiveSheet.ChartObjects("graphe").Chart.Axes(xlValue)
Set AY = ActiveSheet.ChartObjects("graphe").Chart.Axes(xlCategory)
End Sub

Sub ÉchelleExcel()
Call Nomme
With AX
.MinimumScaleIsAuto = True
.MaximumScaleIsAuto = True
End With
With AY
.MinimumScaleIsAuto = True
.MaximumScaleIsAuto = True
End With
End Sub

Sub ÉchellePersonnalisée()
Call Nomme
Range("px") = [pxm]
Range("gx") = [gxm]
With AX
.MinimumScale = [py]
.MaximumScale = [gy]
End With
With AY
.MinimumScale = [pxm]
.MaximumScale = [gxm]
End With
End Sub

Serge


"isabelle" <as.isabellevIE@videotron.ca> a écrit dans le message de news:
3FA399D2.4CED0B9C@videotron.ca...

bonjour Serge,

la référence des plages py et gy est bien mit en absolu ?

isabelle

Bonchoir le monde,

Des fois, ça marche, des fois ça marche pas !!!
Auriez-vous une idée pour expliquer cette infamie ?

Sub ChangeY()
y1 = Range("py")
y2 = Range("gy")
With ActiveSheet.ChartObjects("GraphiqueGarno"). _
Chart.Axes(xlValue)
.MinimumScale = y1 ' C'est ici que ça bloque
.MaximumScale = y2
.MajorUnitIsAuto = True
End With
End Sub

;-)

Serge