Récupérer les valeurs mini et maxi des axes

[Skud]

Bonjour tout le monde,

En cherchant sur le forum j'ai trouvé un post concernant le format de l'axe des ordonnées :

https://www.excel-downloads.com/threads/echelle-automatique.63941/

En partant du code de Porcinet82 (Merci ;-)) j'ai pensé faire un USF permettant de modifier le format des axes.
Jusque là pas de problème.

Seulement j'aurais bien aimé, en ouvrant l'USF, récupérer la valeur des minis et maxis de chaque axe afin de ne pas avoir à tout saisir pour valider l'USF.

Un exemple vaut mieux que des mots...

La partie qui me pose problème est l'initialisation de l'USF :

Private Sub UserForm_Initialize()
TextBox1.Value = ActiveChart.Axes(xlValue).MinimumScale.Value
TextBox2.Value = ActiveChart.Axes(xlValue).MaximumScale.Value
TextBox3.Value = ActiveChart.Axes(xlCategory).MinimumScale.Value
TextBox4.Value = ActiveChart.Axes(xlCategory).MaximumScale.Value
End Sub

Car ça, ça ne marche pas !!!

Si quelqu'un à une idée.

Merci.

 

[Bernard_XLD]

Re : Récupérer les valeurs mini et maxi des axes

Bonjour

tu utilises une variable publique genre

Public Graph_Actif As Chart

Sub essai()
Set Graph_Actif = ActiveChart 'ActiveSheet.ChartObjects("Graphique 2")
UserForm1.Show
End Sub

Private Sub UserForm_Activate()
MsgBox Graph_Actif.Axes(xlValue).MinimumScale
End Sub

le .value n'est pas necessaire

A+

 

[Bernard_XLD]

Re : Récupérer les valeurs mini et maxi des axes

Re

j'ai deux minutes alors je prends le temps de modifier ton fichier

A+

Regarde la pièce jointe Exemple FORMAT DES AXES (by MM).zip

 

[Skud]

Re : Récupérer les valeurs mini et maxi des axes

Merci beaucoup Yeahou !!!

D'autant plus que tu as même pris le temps de modifier directement le fichier.
C'est impeccable.