[Excel] Récupérer les coordonnées d'un point

   1. Private Sub Chart_MouseDown(ByVal Button As Long, ByVal Shift As Long, ByVal x As Long, ByVal y As Long)
   2. Dim ElementID As Long
   3. Dim Arg1 As Long
   4. Dim Arg2 As Long
   5. Dim v As Variant
   6. GetChartElement x, y, ElementID, Arg1, Arg2
   7. MsgBox ("X = " & x & " / Y = " & y)
   8. End Sub

Cela permet d'afficher les coordonnées du pointeur de la souris si le graphique est dans un onglet et non intégré à une feuille Excel.

******************

J'arrive à récupérer les coordonnées X et Y de la souris sur le graphique incorporé dans une feuille Excel. En fait il "suffit" de créer un module de classe "graphique" lequel existe déjà dans excel et reconnait les "mouse down", les "mouse up" et les "mouse move"
 
Créez un nouveau module de classe, il s'appelle classe1 par défaut. Je l'ai laissé comme ça(en fait je n'arrive pas à le modifier)
Il faut placer "Public WithEvents mychartclass As Chart" en tête de classe. Voici le code de la classe :

   1. Public WithEvents mychartclass As Chart
   2.
   3. Private Sub mychartclass_MouseDown(ByVal Button As Long, ByVal Shift As Long, ByVal x As Long, ByVal y As Long)
   4.     Range("A9" ) = x
   5.     Range("B9" ) = y
   6. End Sub
   7.
   8. Private Sub mychartclass_MouseMove(ByVal Button As Long, ByVal Shift As Long, ByVal x As Long, ByVal y As Long)
   9.     Range("A8" ) = x
  10.     Range("B8" ) = y
  11. End Sub

******************

Ensuite il faut activer cette classe à partir du module de la feuille excel (sheet1 chez moi). La sub "initializechart" est reliée à un bouton de commande sur la feuille Excel. Voici le code :

   1. Dim myClassModule As New Classe1
   2.
   3. Private Sub initializechart()
   4. Set myClassModule.mychartclass = Sheet1.ChartObjects(1).Chart
   5. End Sub

Avec ça vous verrez apparaitre les coordonnées du pointeur de votre souris dans les cases A8 et B8.
"Il ne reste plus qu'à" lier ces coordonnées à une ligne qui sera tracée sur le graphique.