Récupérer des coordonnées.

Résolu
Elfebon
Messages postés
7
Date d'inscription
mercredi 4 avril 2012
Statut
Membre
Dernière intervention
13 mai 2016
- 4 avril 2012 à 15:18
Elfebon
Messages postés
7
Date d'inscription
mercredi 4 avril 2012
Statut
Membre
Dernière intervention
13 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.

6 réponses

Elfebon
Messages postés
7
Date d'inscription
mercredi 4 avril 2012
Statut
Membre
Dernière intervention
13 mai 2016

4 avril 2012 à 15:20
Re-bonjour je viens de voir les : ’ sont des '
3
mjpmjp
Messages postés
115
Date d'inscription
dimanche 6 avril 2003
Statut
Membre
Dernière intervention
29 juin 2012

6 avril 2012 à 15:29
bonjour
aprés recherche Web "position+souris"
Pour la feuille Excel
@+JP
0
mjpmjp
Messages postés
115
Date d'inscription
dimanche 6 avril 2003
Statut
Membre
Dernière intervention
29 juin 2012

6 avril 2012 à 15:32
bonjour
aprés recherche Web "position+souris"
Pour l'ecran ??
@+JP
0
ucfoutu
Messages postés
18038
Date d'inscription
lundi 7 décembre 2009
Statut
Modérateur
Dernière intervention
11 avril 2018
235
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
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
Elfebon
Messages postés
7
Date d'inscription
mercredi 4 avril 2012
Statut
Membre
Dernière intervention
13 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.
0
Elfebon
Messages postés
7
Date d'inscription
mercredi 4 avril 2012
Statut
Membre
Dernière intervention
13 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)

(Sinon sa serais trop facile). lol.
0