Discussion :

[azerty]

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 :

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

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

[SilkyRoad]

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 :

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

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