Graph, échelle macro

[jbdubreuil]

Bonjour le forum,

J'ai un graphique alimenté par un tableau qui change de valeurs et de taille selon un parametrage.
Je ne suis pas satisfait par l'echelle "automatique" de excel.
J'aimerais utiliser un code pour delimiter l'echelle selon les min et max des deux listes (a:a) et (b:b) de mon tableau.

J'ai un debut de code que j'ai fait avec l'enregistreur de macro.
Pour le reste, je bloque encore...

Si vous avez une astuce, un bout de code... n'hesitez pas 🙂
Merci par avance !!!

Cordialement
jb




ActiveSheet.ChartObjects("Chart 1").Activate
ActiveChart.Axes(xlValue).Select
Range("A2").Select
Selection.End(xlDown).Select
...
With ActiveChart.Axes(xlValue)
.MinimumScale = ...
.MaximumScale = ...
.MinorUnitIsAuto = True
.MajorUnit = 1
.Crosses = xlAutomatic
.ReversePlotOrder = False
.ScaleType = xlLinear
.DisplayUnit = xlNone
End With

ActiveChart.Axes(xlCategory).Select
With ActiveChart.Axes(xlCategory)
Range("b2").Select
Selection.End(xlDown).Select...

.MinimumScale = ...
.MaximumScale = ...
.MinorUnitIsAuto = True
.MajorUnit = 1
.Crosses = xlAutomatic
.ReversePlotOrder = False
.ScaleType = xlLinear
.DisplayUnit = xlNone
End With
ActiveWindow.Visible = False
End Sub

 

[jbdubreuil]

Re : Graph, échelle macro

OK,
Je viens de trouver qqchose:
Comme quoi avec un peu de perseverance...

MinimumScale = Application.Min(Range("a2:a30"))
MaximumScale = Application.Max(Range("a2:a30"))

C'est un bon début.
Maintenant, je ne veux pas les valeurs "aberrantes".
A savoir je veux une echelle allant de 0 à 100 (valeurs minimales et maximales)
Si minimum scale <0 ou maximum scale >100, alors je veux conserver l'ecchelle 0-100 et ne pas voir les valeurs "aberrantes" sur mon graphique
Est ce possible?

Merci beaucoup

 

[MJ13]

Re : Graph, échelle macro

Bonjour
Un grand merci à JPDubreuil pour son aide précieuse.
Cela faisait 20 minutes que je cherchai à trouver le min d’une sélection. Je me suis dit : je vais aller voir sur XLD, j’ai fait une recherche avec min et graphique et voila t’y pas que je tombe sur ce post qui m’a bien aidé.

Voici comment j’ai procédé :
J’ai déclarer en public les 2 min et max

Public minimumscale As Double
Public maximumscale As Double

Puis j’ai entré ce code par rapport à ma sélection de ma colonne où les y sont en C:

minimumscale = Application.Min(Range("C" & ligdeb & ":C" & ligfin - 1))
maximumscale = Application.Max(Range("C" & ligdeb & ":C" & ligfin - 1))

Et enfin une fois sur le graph, j’ai mis ce code après l’avoir enregistré pour connaître sa syntaxe:

ActiveChart.Axes(xlValue).Select
With ActiveChart.Axes(xlValue)
.minimumscale = minimumscale
.maximumscale = maximumscale
.MinorUnitIsAuto = True
.MajorUnitIsAuto = True
.Crosses = xlAutomatic
.ReversePlotOrder = False
.ScaleType = xlLinear
.DisplayUnit = xlNone
End With