Controle des Echelles graphiques en VBA

Jondsyl à dit:

J'ai fait plusieurs graphiques qui represente la meme chose pour des ateliers différents
J'aimerais trouver la plus grande echelle et l'appliquer au autre garphique
est ce possible ?
Sylvain

Cliquez pour agrandir...

Private Sub Worksheet_activate()
ActiveSheet.ChartObjects("Graphique 2").Activate 'Référence graphique
ActiveChart.Axes(xlValue).Select
With ActiveChart.Axes(xlValue)
.MaximumScale = Range("B1").Value 'valeur en B1
.MinimumScale = Range("C1").Value 'valeur en C1
End With
ActiveSheet.ChartObjects("Graphique 3").Activate 'Référence graphique
ActiveChart.Axes(xlValue).Select
With ActiveChart.Axes(xlValue)
.MaximumScale = Range("B1").Value 'valeur en B1
.MinimumScale = Range("C1").Value 'valeur en C1
End With
ActiveSheet.ChartObjects("Graphique 4").Activate 'Référence graphique
ActiveChart.Axes(xlValue).Select
With ActiveChart.Axes(xlValue)
.MaximumScale = Range("B1").Value 'valeur en B1
.MinimumScale = Range("C1").Value 'valeur en C1
End With
ActiveSheet.ChartObjects("Graphique 8").Activate 'Référence graphique
ActiveChart.Axes(xlValue).Select
With ActiveChart.Axes(xlValue)
.MaximumScale = Range("B1").Value 'valeur en B1
.MinimumScale = Range("C1").Value 'valeur en C1
End With

End Sub

Cliquez pour agrandir...