Dudu2
XLDnaute Barbatruc
Bonjour,
J'ai testé et ça fonctionne bien.
C'est moins commode que le MsgBox de cette ressource qui permet d'indiquer l'objet cible et qui corrige les marges extérieures du UserForm.
Positionnement sur I15:
0.6 c'est le taux de conversion Pixel To Point que j'ai mis en dur mais qu'il faut aller chercher avec l'API.
En I15: un décalage apparent vers la droite qui correspond à la marge gauche du UserForm (zone très légèrement ombrée).
J'ai testé et ça fonctionne bien.
C'est moins commode que le MsgBox de cette ressource qui permet d'indiquer l'objet cible et qui corrige les marges extérieures du UserForm.
Positionnement sur I15:
VB:
Retour = InputBoxPerso.Display(Message, Titre, "12", _
PosLeft:=ActiveWindow.Panes(1).PointsToScreenPixelsX([I15].Left) * 0.6, _
PosTop:=ActiveWindow.Panes(1).PointsToScreenPixelsY([I15].Top) * 0.6)
0.6 c'est le taux de conversion Pixel To Point que j'ai mis en dur mais qu'il faut aller chercher avec l'API.
En I15: un décalage apparent vers la droite qui correspond à la marge gauche du UserForm (zone très légèrement ombrée).