c'est pas possible ce que je demande ??? svp

Question

coucou

Comment faire pr adapter automatiquement l echelle d un grahe incorpor&#233; en fonction des valeurs de mes s&#233;ries de donn&#233;e 

ca fait plusieur fois que je pose cette question je sais mais bon ... ca me prend la tete grave 

j ai essayer ce code la 

Function Echelle(ByVal nom As String) As Integer


   ActiveSheet.ChartObjects(nom).Activate
   
    ActiveChart.Axes(xlValue).Select
    Application.CutCopyMode = False
    
    With ActiveChart.Axes(xlValue)
    
        .MinimumScale = True
        .MaximumScale = True
        .MinorUnitIsAuto = True
        .MajorUnitIsAuto = True
        .Crosses = xlAutomatic
        .ReversePlotOrder = False
       .ScaleType = xlLinear
       .DisplayUnit = xlNone
       
    End With
    
End Function

mais il doit me manquer un truc ...

merci

cs_69chris · Answer

Salut,
Au lieu de 
        .MinimumScale = True
essaye
        .MinimumScaleIsAuto = True

Pareil pour maximumscale -> maximumscaleisauto
Si tu fais Outils->Macro->Nouvelle Macro, ca donne &#231;a pour de l'automatique sur les 2 axes.....

Sub Macro1()
'
' Macro1 Macro
' Macro enregistr&#233;e le 20/12/2005 par Chris
'
'
    ActiveSheet.ChartObjects("Graphique 1").Activate
    ActiveChart.Axes(xlValue).Select
    With ActiveChart.Axes(xlValue)
        .MinimumScaleIsAuto = True
        .MaximumScaleIsAuto = True
        .MinorUnitIsAuto = True
        .MajorUnitIsAuto = True
        .Crosses = xlAutomatic
        .ReversePlotOrder = False
        .ScaleType = xlLinear
        .DisplayUnit = xlNone
    End With
    ActiveChart.Axes(xlCategory).Select
    With ActiveChart.Axes(xlCategory)
        .MinimumScaleIsAuto = True
        .MaximumScaleIsAuto = True
        .MinorUnitIsAuto = True
        .MajorUnitIsAuto = True
        .Crosses = xlAutomatic
        .ReversePlotOrder = False
        .ScaleType = xlLinear
        .DisplayUnit = xlNone
    End With
End Sub

Chris

N'oubliez pas de cloturer votre post.

cs_romano69 · Answer

salut ,

en fait le programme bug avec 

ActiveChart.Axes(xlCategory).Select

tu sais pk ?

merci

kalobit · Answer

essaye de boucler sur tous les axes :

for each ax in ActiveChart.Axes
with ax
        .MinimumScaleIsAuto = True
        .MaximumScaleIsAuto = True
        .MinorUnitIsAuto = True
        .MajorUnitIsAuto = True
End With
next ax

++

C'est pas possible ce que je demande ??? svp

3 réponses