graphique et get chart element

Bonjour,

J'ai un graphique avec deux courbes et je voudrais qu'un ,essage d'erreur s'affiche si on clique autre part que la courbe 1.
J'ai essaye differents possibilites mais rien ne marchel:

lng_chart_index <> series_collection(1)
lng_chart_index <> 1
lng_chart_index <> xlseries1
...


Voila le code si quelau'un pouvait m'aider je l'en remercie par avance.

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Private Sub Chart_MouseDown(ByVal Button As Long, ByVal Shift As Long, ByVal x As Long, ByVal y As Long)   'MsgBox x ActiveChart.GetChartElement x, y, lng_chart_index, lng_chart_arg1, lng_chart_arg2   If lng_chart_index <> series_collection(1) Then MsgBox "Error! Please click on the observed flow data" Else   End If End Sub

---

bonsoir


c'est la valeur ElementId = 3 qui permet de déterminer que tu as cliqué sur une série.
et ensuite, l'argument Arg1 renvoie l'index de cette série:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

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   ActiveChart.GetChartElement x, y, ElementId, Arg1, Arg2   If ElementId = 3 And Arg1 <> 1 Then MsgBox "Mauvaise série (" & Arg1 & ")" End If End Sub

---

pour plus d'infos:

http://silkyroad.developpez.com/VBA/...phiques/#LII-B


bonne soirée
michel