User à droite de l'écran en fonction de la résolution

[ericTA]

Bonjour à tous,

je cherche à positionner une USER à droite de ma fenétre quelque soit la résolution de mon écran.
j'ai une USER avec
width = 200
StartUpPosition = Manual

Declare Function GetSystemMetrics Lib "user32.dll" (ByVal nIndex As Long) As Long
Sub auto_open()
Dim iResX As Integer
Dim iResY As Integer

iResX = GetSystemMetrics(0) ' donne la résolution de l'écran en X
iResY = GetSystemMetrics(1) ' donne la résolution de l'écran en Y
USER.Left = iResX - 200
USER.Show 0
AppActivate "Microsoft Excel"
End Sub

Mais cela ne marche pas, je ne vois pas l'USER, pour le voir, il faut que je change ma valeur de 200 par 520
J'ai une piste, la taille est exprimé en point (with : en point. Un point correspond à 1/72 pouce)
Y a-t-il un moyen de faire correspondre la résolution en pixel avec with en pouce
Ou un moyen plus simple.
Cordialement.

PS : avec la pièce jointe

Eric

 

[YANN-56]

Re : User à droite de l'écran en fonction de la résolution

Bonjour Eric, et à ceux qui passeront par là,

Sans doute ai-je mal compris la question,
car ma solution semble bien simple!!

Private Sub CommandButton1_Click()
With UserForm1
.Top = 150
.Left = Application.Width - (.Width + 10)
.Show
End With
End Sub

Si nécessaire mettre préalablement:

Application.WindowState = xlMaximized

Amicalement,

Yann

 

[ericTA]

Re : User à droite de l'écran en fonction de la résolution

merci
Ca marche super bien, mais surtout bien plus simple.
Encore Merci
Eric