Bonjour à tous,
Je cherche le moyen de positionner correctement un UserForm sur une cellule.
J'ai rapidement compris que le simple :
Ne fonctionnais pas, semble-t-il à cause d'un conversion nécessaire entre Pt et Px.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2 Me.Top = Activecell.Top Me.Left = Activecell.Left
J'ai donc tenté :
Mais ça ne donne pas vraiment un résultat plus probant
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2 Me.Left = ActiveWindow.PointsToScreenPixelsX(pPosition.Left) Me.Top = ActiveWindow.PointsToScreenPixelsY(pPosition.Top)
J'ai trouvé ce sujet : http://www.developpez.net/forums/d82...pport-cellule/
Mais cela ne fonctionne pas correctement non plus, le UserForm est quand même largement décalé.
Petite précision, je ne sais pas si ça peu jouer mais j'ai retiré la CaptionBar du UserForm.
Merci pour votre aide![]()
Partager