échelle automatique

[sonerien]

Bonjour à tous.

Malgré une recherche dans le forum, je n'arrive pas à redimensionner automatiquement les échelles de mes graphes.

J'ai essayé dans l'onglet Echelle de l'axe des ordonnées (en cochant ou décochant Maximum-Minimum), sans succès !

Mon fichier :

J'aimerais que le minimum soit défini automatiquement (pr exemple 55 dans mon fichier).

Merci,
sonerien.

 

[porcinet82]

Re : échelle automatique

Salut Sonerien,

Je ne suis pas sur que qu'il existe un paramètre permettant de redimenssionner automatiquement l'échelle d'un graphes. Cependant, je te propose une petite alternative par le biais d'une macro.

La macro suivante permet de mettre l'échelle minimum à 55 pour tous les graphes présents dans la feuil1

Sub test()
Dim Nbre As Byte
With Worksheets("feuil1")
    For Nbre = 1 To .ChartObjects().Count
        .ChartObjects(Nbre).Activate
        With ActiveChart.Axes(xlValue)
            .MinimumScale = 55
        End With
    Next Nbre
End With
End Sub

Si tu as des questions, n'hesite pas.

@+

 

[sonerien]

Re : échelle automatique

Le pb c'est que la valeur de 55 n'est pas générale !

Il faudrait pouvoir changer cette valeur automatiquement !

 

[porcinet82]

Re : échelle automatique

re,

Peut etre en modifiant le code de la manière suivante :

Sub test2()
Dim Nbre As Byte
Dim Message, Default, MyValue
Message = "Entrez la borne minimum de l'échelle"
Default = "0"
MyValue = InputBox(Message, Title, Default)
With Worksheets("feuil1")
    For Nbre = 1 To .ChartObjects().Count
        .ChartObjects(Nbre).Activate
        With ActiveChart.Axes(xlValue)
            .MinimumScale = MyValue
        End With
    Next Nbre
End With
End Sub

J'ai rajouter une boite de dialogue qui te permet d'entrer la valeur souhaitée.

Tiens moi au courant.

@+

 

[chris]

Re : échelle automatique

Bonjour
Les graphiques Excel sont à échelle auto tant qu'on ne modifie pas manuellement cette échelle.
Enlève les valeurs de mini et maxi mais garde les coches : cela devrait remettre l'échelle auto.