Discussion :

[informer]

Bonjour

j'ai le graphique suivant



Le code ci-dessous dans le module VBA de l'onglet avec le graphique renvoie le nom de la série associé à la couleur.

Mais comment obtenir le nom de l'abscisse -> [Y] ou [Y+1] ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Private WithEvents oCht As Excel.Chart
Private Sub oCht_MouseUp(ByVal Button As Long, ByVal Shift As Long, ByVal x As Long, ByVal y As Long)
    Dim IDNum As Long
    Dim a As Long
    Dim b As Long
    Dim vCats As Variant
 
 
     oCht.GetChartElement x, y, IDNum, a, b
 
    If IDNum = xlSeries Then MsgBox oCht.SeriesCollection(a).Name
 
 
End Sub
 
Private Sub Worksheet_Activate()
     HookChart
End Sub
 
Public Sub HookChart()
    Set oCht = Me.ChartObjects("graphRisk").Chart
End Sub

[informer]

Solution simple

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
oCht.GetChartElement x, y, IDNum, a, b 'a = ordonnée / b = abscisse
 
vCats = oCht.SeriesCollection(1).XValues
    If IDNum = xlSeries Then MsgBox  vCats(b) ' -> Donne la valeur de l'abscisse