Discussion :

[triaguae]

Bonjour,

Je voudrais récupérer les coordonnées d'un point d'un graph (y,x) en cliquant de ssus. (càd affichage ds msgbox par exemple)

j'ai regarder ce tuto mais sans succès

http://silkyroad.developpez.com/VBA/...ntsGraphiques/

Merci d'avance

[triaguae]

Je remonte mon mesage car je n'ai tjs pas de solution

pour l'instant j'ai ce code

Code :

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

1
2
3
4
5
Private Sub Chart_BeforeDoubleClick(ByVal xlDataLabel As Long, _
    ByVal SeriesIndex As Long, ByVal PointIndex As Long, Cancel As Boolean)
Cancel = True
MsgBox SeriesIndex & " - val = " & PointIndex
End Sub

Le pointIndex me renvoie -1 (tous les points sont sélectionnés)
-comment faire pour sélectionner 1 seul point
-comment récupérer les valeurs du point index et non pas son numéro

[triaguae]

Punaise ça fait des mois que je cherche et je viens de trouver

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
23
24
25
26
27
28
29
30
31
Private Sub Chart_MouseUp(ByVal Button As Long, ByVal Shift As Long, _
ByVal x As Long, ByVal y As Long)
 
Dim ElementID As Long, Arg1 As Long, Arg2 As Long
Dim myX As Variant, myY As Double
 
With ActiveChart
' Pass x & y, return ElementID and Args
.GetChartElement x, y, ElementID, Arg1, Arg2
 
' Did we click over a point or data label?
If ElementID = xlSeries Or ElementID = xlDataLabel Then
If Arg2 > 0 Then
' Extract x value from array of x values
myX = WorksheetFunction.Index _
(.SeriesCollection(Arg1).XValues, Arg2)
' Extract y value from array of y values
myY = WorksheetFunction.Index _
(.SeriesCollection(Arg1).Values, Arg2)
 
' Display message box with point information
MsgBox "Series " & Arg1 & vbCrLf _
& """" & .SeriesCollection(Arg1).Name & """" & vbCrLf _
& "Point " & Arg2 & vbCrLf _
& "X = " & myX & vbCrLf _
& "Y = " & myY
End If
End If
End With
 
End Sub

Merci M Peltier!!!!