Discussion :

[issoram]

Bonjour à tous,

Sauriez vous comment obtenir les coordonnées écran (en pixels) d'une cellule (coin supérieur gauche)? Les propriétés .top et .Left (de l'objet range) ne fournissant que les coordonnées en points de la cellule par rapport à la première ligne et la première colonne.
C'est pour aligner un Userform sur une cellule.

Merci d'avance.

[Bear the french]

Bonsoir issoram,

Peut-être as tu déjà consulté ce post ? POST

Bertrand

[issoram]

Merci Bear

Oui je l'ai consulté, mais la fonction ActiveWindow.PointsToScreenPixelsX (ou Y) renvoie toujours la position relative de la cellule (certes en Pixels) par rapport à la première ligne et la première colonne de la fenêtre Excel.

[issoram]

Comme je ne trouvais pas mon bonheur, j'ai changé mon fusil d’épaule:

Puisque mon UserForm doit s'afficher au clic droit souris, autant se servir des coordonnées de la souris!
Du coup j'essaie d'utiliser la fonction d'API ci dessous prenant en paramètre un type point 2D:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Public Type POINTAPI
    x As Long
    y As Long
End Type
 
'****** AFFECTE LES COORDONNEES DE LA SOURIS AU POINT
Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long

Pour le coup, le Userform suit bien les mouvements de la souris, mais j'ai quand même un décalage d'affichage (vers le bas et vers la droite) par rapport à la position de la souris. Je pense que c'est lié au référentiel (coin haut gauche écran ou coin haut gauche Application).

Est ce que quelqu'un sait comment pallier à ce problème de décalage?

Merci d'avance.

[fring]

Bonjour,

Quel est l'intérêt de cette usine à gaz ?
Que se passera t-il quand tu feras un clic en bas à droite ? Ton UserForm ne sera qu'en partie visible... Pourquoi ne pas simplement le laisser s'afficher au centre de l'écran en faisant un clic droit ?

[issoram]

Chaque cellule génère un UF différent, donc je préférais avoir un affichage proche de la cellule pour plus de lisibilité (Dans l'esprit d'une liste déroulante ou d'un menu popup)

[issoram]

Finalement j'ai résolu mon problème.

En fait le .top et le .left d'un userform attendent des coordonnées en points et pas en pixels.
Forcément en leur passant du pixel j'avais toujours un décalage