Après avoir parcouru les Internets en tous sens, j'ai trouvé ça :
- Exporter le graphique en question sur un onglet
- Mettre ce code dans cet onglet Graph :
Private Sub Chart_Activate()
End Sub
Private Sub Chart_MouseDown(ByVal Button As Long, ByVal Shift As Long, ByVal x As Long, ByVal y As Long)
Dim ElementID As Long
Dim Arg1 As Long, Arg2 As Long
On Error Resume Next
ActiveChart.GetChartElement x, y, ElementID, Arg1, Arg2
Sheets("Plan").Range("A2") = x
Sheets("Plan").Range("B2") = y
End Sub
Comme quoi pourquoi faire simple quand on peut faire compliqué