Elfebon
Messages postés7Date d'inscriptionmercredi 4 avril 2012StatutMembreDernière intervention13 mai 2016
-
4 avril 2012 à 15:18
Elfebon
Messages postés7Date d'inscriptionmercredi 4 avril 2012StatutMembreDernière intervention13 mai 2016
-
10 avril 2012 à 13:06
Bonjour, je voudrais savoir comme récupérer les coordonner du pointeur par rapport à l’écran en dehors d’une feuille excel.
Concrètement je voudrais :
Après avoir lance un UserForm il y aurait un bouton nommé « Nouvelle coordonner ».
En cliquent dessus une nouvelle fenêtre parait avec un bouton « Fini ».
Tant que cette fenêtre est pressente, je voudrais quant je clic sur « Ctrl »+clic gauche de la sourie, enregistrer les coordonnées du curseur même en dehors d’une feuille excel.
Ci je clic sur « Fini » je reviens à UserForm précédant.
Je sais crée les UserForm.
J’ai la macro pour récupérer les coordonner à l’écran.
Il ne me manque que la formule magique pour qu’il lance la macro en faisant Ctrl+clic gauche.
Je signale que je viens de chercher pendant une journée sans trouver quelque chose qui fonctionne.
ucfoutu
Messages postés18038Date d'inscriptionlundi 7 décembre 2009StatutModérateurDernière intervention11 avril 2018211 6 avril 2012 à 16:31
Bonjour,
Cutrieuse démarche.
Mais on va y répondre :
Dans l'évènement Mouse Down : Button est le bouton de la souris (1 pour gauche et 2 pour droit) et Shift est la rouche "annexe" éventuellement préssée (1 maj et 2 CTRL)
Je ne réponds qu'à :
Il ne me manque que la formule magique pour qu’il lance la macro en faisant Ctrl+clic gauche.
Mon aide s'arrêtera là pour ta démarche.
____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient
Vous n’avez pas trouvé la réponse que vous recherchez ?
Elfebon
Messages postés7Date d'inscriptionmercredi 4 avril 2012StatutMembreDernière intervention13 mai 2016 10 avril 2012 à 11:28
Bonjour, merci pour vos réponses.
Mjpmjp : De ce que j’ai pus voir, tes réponse sont pour la position du curseur or j’ai préciser que je savais comment faire. Plus exactement après une journée de recherche j’ai pus maîtriser la bette.
Ucfoutu : Vus la forme de ta réponse on dirais que je devais connaître l’évènement mouseUp. Ce qui n’étais pas le cas.
Donc il faut utiliser la évènement MouseUp pour mon cas.
Le truc c’est que je viens de chercher sur le net est je n’est pas réussi a faire fonctionner quoi que se soi.
J’ai récupéré ça
Sub Chart_MouseUp(ByVal Button As Long, ByVal Shift As Long, ByVal X As Long, ByVal Y As Long)
MsgBox "Button " & Button & Chr$(13) & "Shift " & Shift & Chr$(13) & "X = " & X & " Y = " & Y
End Sub
Mais j'ai beau faire des clic il ne se passe rien.
Donc il faut utilisé cet évènement mais je la place ou dans on userform, un bouton , en exécution à l’ouverture...? (Je sais je suis naze).
Tu vas peut être pouvoir m'aider sur le cite il y à plein de code à télécharger mais je n'ais jamais réussit à en faire fonctionner 1 sous excel 2000.
Elfebon
Messages postés7Date d'inscriptionmercredi 4 avril 2012StatutMembreDernière intervention13 mai 2016 10 avril 2012 à 13:06
Re bonjour, je crois avoir compris ce que tu voulais dire .
C'est dans l'userforme utiliser ce code :
Private Sub UserForm_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
If Button 1 And Shift 2 Then
MsgBox ("Test ok")
End If
End Sub
Le problème est comme je l'ai dis au départ c'est de pouvoir l'utiliser n'importe où sur tous l'écran donc en dehors d'excel de l'Userform (Sur une page web pour être précis)