XL 2016 Positionner Userform sur cellule

[morest38]

Salut à tous,
Voilà j'ai trouvé une solution pour positionner une userform sur la cellule de mon choix. En l’occurrence, la cellule active.

Option Explicit
Private Declare Function GetDC& Lib _
"user32.dll" (ByVal hwnd&)
Private Declare Function GetDeviceCaps& _
Lib "gdi32" (ByVal hDC&, ByVal nIndex&)
Private Sub UserForm_Initialize()

Dim x#, y#, w#, h#
ActiveWindow.Zoom = 100
x = GetDeviceCaps(GetDC(0), 88) / 72
y = GetDeviceCaps(GetDC(0), 90) / 72
With Me
.StartUpPosition = 0
.Left = ActiveWindow.PointsToScreenPixelsX(ActiveCell.Left * x) * 1 / x
.Top = ActiveWindow.PointsToScreenPixelsY(ActiveCell.Top * y) * 1 / y
End With
End Sub

Ce code marche parfaitement mais il est limité à Windows 32 bit.
Je cherche a le rendre viable pour le 64 bit. Si quelqu'un pouvait me faire profiter de ses lumières ça serait top. Peut être en faisant autrement d'ailleurs, peu importe tant que l'Userform s'ouvre sur une cellule choisie c'est nickel.

Merci d'avance et bonne soirée.

 

[Staple1600]

Bonsoir à tous

Je cherche à le rendre viable pour le 64 bit. Si quelqu'un pouvais me faire profiter de ces lumières ça serait top

Les explications pour ce faire sont déjà dans les archives du forum ou sur le net.
Il suffit donc effectivement continuer de chercher et tu trouveras d'ici 3m27 😉

 

[morest38]

J'ai cherché pendant 1 heure avant de me décider à poster. Mais ok je vais continuer de chercher car j'ai dû mal le faire 🙂.

 

[Staple1600]

Re

Alors ton moteur de recherche doit être cassé 😉
Ce lien n'existe plus
(1er résultat renvoyé par G..gle)

 

[morest38]

Re,
Effectivement mais je ne suis pas aussi à l'aise lorsque ça touche aux API. Ce code je l'ai trouvé sur ce forum il me semble mais je la partie "Option explicit" je ne la comprends quasiment pas 🙂.
Merci quand même de ton aide.

 

[Staple1600]

Re

Il n'y a rien à comprendre, juste prendre le temps de lire et de s'arreter à ce qui cause de PrtSafe 😉

 

[morest38]

C'est souvent quand il n'y a rien a comprendre que c'est le plus compliqué 🙂.
Merci en tous cas pour ton aide!! Ca marche nickel.
Voici le code final:

Option Explicit
Private Declare PtrSafe Function GetDC& Lib _
"user32.dll" (ByVal hwnd&)
Private Declare PtrSafe Function GetDeviceCaps& _
Lib "gdi32" (ByVal hDC&, ByVal nIndex&)

Bonne soirée.

 

[PHV.FSM]

Voici une solution qui intègre toutes les versions et gère aussi le zoom ainsi que les panneaux :
ScreenToGridPos

 

[Dranreb]

Bonjour.
J'ai équipé d'une méthode Posit un UserForm à positionner par rapport à quelque chose.