Bonjour à tous,

Voici mon code VBA

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim MyChart As Chart
 
Set MyChart = ActiveSheet.ChartObjects("Graphique 2").Chart
If Not Application.Intersect(Target, Range("D2")) Is Nothing Then
'ActiveSheet.Shapes.Range(Array("Group 13")).Select
MyChart.Axes(xlValue, xlSecondary).MaximumScale = MyChart.Axes(xlValue, xlPrimary).MaximumScale
End If
Range("A6").Select
 
 
End Sub
Pour information :

Range("D2") concerne une liste déroulante

Problème :
Lorsque je change le nom de la liste déroulante, mon graphique change et les échelles changent. Malheureusement, malgré mon code, le maximum de l'axe secondaire n'est pas égale au maximum de l'axe primaire.
Pourquoi?

Merci pour votre aide.