Discussion :

[lucasgaetan]

Bonjour le Forum,

Je cherche à connaitre la position du curseur par rapport à mes cellules, pour savoir quelle cellule je survole.
Position du curseur ne veux pas dire cellule sélectionnée

Pour le moment j’arrive à Connaitre/Définir la position du curseur par rapport à l'origine de l’écran (en haut à gauche):

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
32
33
34
35
36
37
38
39
40
41
42
43
44
Type RECT
    Left As Long
    Top As Long
    Right As Long
    Bottom As Long
End Type
 
Public Type POINTAPI
        X As Long
        Y As Long
End Type
 
Public m_CursorPos As POINTAPI
Public Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
Public Declare Function SetCursorPos Lib "user32" (ByVal X As Long, ByVal Y As Long) As Long
 
Sub PlaceSouris(xs As Long, ys As Long)
Dim rectPos As RECT
 
    Call SetCursorPos(xs, ys)
    Start = Timer    ' Définit l'heure de début.
    Do While Timer < Start + 0.01
        DoEvents    ' Donne le contrôle à d'autres processus.
    Loop
End Sub
Sub SetCurseur() 'Définir la position du curseur par rapport à l'origine de l’écran  (en haut à gauche)
Dim i As Long
For i = 1 To 300
    Call PlaceSouris(i, 2 * i)
Next i
End Sub
 
Sub GetCurseur() 'Connaitre la position du curseur par rapport à l'origine de l’écran  (en haut à gauche)
Dim LonCStat As Long
    Do While (ActiveCell.Row = 11) And (ActiveCell.Column = 1)
        LonCStat = GetCursorPos(m_CursorPos)
        Debug.Print "X = " & m_CursorPos.X
        Debug.Print "Y = " & m_CursorPos.Y
        Start = Timer    ' Définit l'heure de début.
        Do While Timer < Start + 0.5
            DoEvents    ' Donne le contrôle à d'autres processus.
        Loop
    Loop
End Sub

Y a-t-il un moyen de connaitre la position du curseur par rapport à mes cellules ou connaitre la position de la cellule A1 par rapport à l'origine de l’écran (en haut à gauche)?

Merci

[Jean-Philippe André]

Salut,

il semblerait que cela soit possible, mais je ne trouve pas de source Fr à ce sujet.

J'ai une personne qui a proposé des idées à partir d'hyperlink :
http://chandoo.org/wp/2011/07/20/int...ng-hyperlinks/
http://optionexplicitvba.blogspot.fr...er-b8-ov1.html

L'idée serait de mettre une combinaison SIERREUR + LIEN_HYPERTEXTE dans des cellules, et de remettre

Si ca peut t'aider pour faire avancer le schmiblick...

[Marc-L]

Bonjour,

regarder du côté des méthodes PointsToScreenPixelsX & Y mais je ne les ai pas utilisées depuis fort longtemps !

Je crois bien qu'il faut tenir compte du facteur de zoom mais aussi de la densité de l'écran (ppi) …

[lucasgaetan]

j'ai trouver une solution:
http://jacxl.free.fr/ 1er poste

un peut tordu mais je n'aurais pas fait mieux

merci pour votre temps.

a+ pour une autre question à la c..