Probleme d'un pointage de souris sur un graphe

Question

Bonjour,

J'ai un graph 2D basique de coordonn&#233;es (x,y), ce que j'aimerais c'est que quand je clique sur un point du graph, les coordinn&#233;es du point cliqu&#233; s'inscrivent dans une cellule.

Comment faire? Merci d'avance.

cs_DARKSIDIOUS · Answer

Ben dans l'&#233;v&#233;nement Mouse_Down tu peux r&#233;cup&#232;rer les coordonn&#233;es auxquelles la souris &#224; cliqu&#233;...

DarK Sidious

Un API Viewer (pour le VB, VB.NET, C, C# et Delphi) : www.ProgOtoP.com/popapi/

titil64 · Answer

j'essaye et te donne des nouvelles
merci

titil64 · Answer

En fait &#231;a marche pas
j'ai cr&#233;e dans un classeur un graph.
j'ai rentr&#233; ce code de l'aide d'excel dans un module:
Private Sub Chart_MouseDown(ByVal Button As Long, _
        ByVal Shift As Long, ByVal X As Long, ByVal Y As Long)
MsgBox "Button = " &amp; Button &amp; chr$(13) &amp; _
        "Shift = " &amp; Shift &amp; chr$(13) &amp; _ 
        "X " &amp; X &amp; " Y " &amp; Y


End Sub

et rien ne se passe
peux tu m'aider

merci

cs_DARKSIDIOUS · Answer

Il ne faut pas le mettre dans un module, il faut le mettre dans l'&#233;v&#233;nement MouseDown de ton picturebox !

DarK Sidious

Un API Viewer (pour le VB, VB.NET, C, C# et Delphi) : www.ProgOtoP.com/popapi/

titil64 · Answer

mon picture box c'es un graph excel et je ne vois comment mettre un evenement &#224; excel

merci

titil64 · Answer

a un graph et non a excel pour l'evenement pardon

cs_DARKSIDIOUS · Answer

Arf, ben l&#224; alors, c'est diff&#233;rent !



Utilise la fonction de l'API Windows GetCursorPos pour r&#233;cup&#232;rer les coordonn&#233;es de la souris sur l'&#233;cran.



Ensuite, il faut r&#233;cup&#232;rer les coordonn&#233;es de ton graph sur l'&#233;cran, et
ensuite, calculer les coordonn&#233;es sur le graph &#224; partir des coordonn&#233;es
&#233;cran r&#233;cup&#232;r&#233;e.

DarK Sidious

Un API Viewer (pour le VB, VB.NET, C, C# et Delphi) : www.ProgOtoP.com/popapi/

titil64 · Answer

D&#233;sol&#233; mais je ne connais pas cette fonction je ne comprend pas ce que tu dis
Mais il y a un probleme si je change d'&#233;cran

non?

cs_DARKSIDIOUS · Answer

lol, ca n'a rien &#224; voir avec ton &#233;cran physique ! Ca juste &#224; voir avec
la surface compl&#232;te de ton &#233;cran, et non uniquement la fen&#234;tre excel.



La fonction GetCursorPos permet de r&#233;cup&#232;rer les coordonn&#233;es actuelles
de la souris, donc il te suffit de les r&#233;cup&#232;rer lors d'un clic sur le
graph pour savoir o&#249; est-ce que la souris a cliqu&#233;.



Le probl&#232;me qui se pose alors, vu que les coordonn&#233;es sont relatives &#224;
l'&#233;cran et non &#224; la fen&#234;tre d'excel, les coordonn&#233;es que tu r&#233;cup&#232;re ne
seront pas les coordonn&#233;es du clic sur le graph, mais les coordonn&#233;es
du clic sur Excel, et il faudras convertir les coordonn&#233;es f&#233;cran en
coordonn&#233;es clientes.


Exemple d'utilisation de GetCursorPos venant de mon viewer d'api :



'TESTE ET APPROUVE SOUS VB 6 et Windows XP 



'Contr&#244;le n&#233;cessaire : un bouton de commande nomm&#233; Command1. 



'Ce code vous permet de d&#233;placer la feuille aux coordonn&#233;es de la souris et de tracer l'image du bureau dans celle-ci. 



'Pour faire fonctionner le programme il vous suffit de cliquer sur le
bouton de commande, sans le relacher, puis de positionner la souris &#224;
l'endroit voulu, et enfin de le rel&#226;cher. 



Private Declare Function PaintDesktop Lib "user32" ( _

ByVal hdc As Long) As Long 



Private Declare Function GetCursorPos Lib "user32" ( _

lpPoint As POINTAPI) As Long 



Private Type POINTAPI 

X As Long 

Y As Long 

End Type 



Private Sub Command1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) 



Dim PNT_Position As POINTAPI  



'on r&#233;cup&#232;re la position du curseur 

GetCursorPos PNT_Position 



'on d&#233;place la feuille ainsi que la picturebox &#224; la position de la souris 

Me.Move Me.ScaleX(PNT_Position.X, vbPixels, vbTwips), Me.ScaleY(PNT_Position.Y, vbPixels, vbTwips)



'on enl&#232;ve l'ancienne image 

Me.Picture = LoadPicture("") 



'on copie l'image du bureau dans les picture box 



PaintDesktop Me.hdc 



End Sub 





Private Sub Form_Load() 



'initialisation de la feuille 

Me.ScaleMode = vbPixels 

Me.AutoRedraw = False 

Me.BorderStyle = 0 



End Sub




DarK Sidious

Un API Viewer (pour le VB, VB.NET, C, C# et Delphi) : www.ProgOtoP.com/popapi/

titil64 · Answer

J'ai essay&#233; autrement , je n'est pas tous saisi a ton prog je suis pas tr&#233;s dou&#233; dsl

mon graph est en fait un graphique fait dans excel dont l'emplacement est une autre feuille et non pas en petit a cot&#233; des donn&#233;es 
Il apparait donc dans l'explorateur d'objet VBA et je peux lui associ&#233; l'evenement Mouse_Down
Le probleme c'est qu'on me donne les coordonn&#233;es de l'ecran &#224; partir du coin en haut &#224; gauche et non celles du graph.

Comment faire pour que l'origine de mon repere soit celle du graph
(sachant que je dois l'appliquer &#224; une cinquantaine de garph et sur des ecrans tous differents(15" 17" 21"19" plat et catodique)

Merci

Probleme d'un pointage de souris sur un graphe

10 réponses

Discussions similaires