question position useforme svp

Dranreb

XLDnaute Barbatruc

• 8 Mai 2017

• #2

Bonsoir.
Vous pouvez je pense mettre au début de votre userform:

VB:

Private Declare Function GetSystemMetrics Lib "user32" (ByVal nIndex As Long) As Long
Private Sub UserForm_Activate()
Me.Left = GetSystemMetrics(0) * 0.75 - Me.Width
Me.Top = GetSystemMetrics(1) * 0.75 - Me.Height
End Sub

 

Vote positif 0 Vote négatif

phlaurent55

Nous a quittés en 2020

Repose en paix

• 8 Mai 2017

• #3

Bonjour à tous,

voir fichier joint

à+
Philippe

 

Pièces jointes

• 111.xlsm

  13.9 KB · Affichages: 43

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 8 Mai 2017

• #4

Bonjour.
Dans ce cas, plutôt :

VB:

Private Sub UserForm_Initialize()
UserForm1.Left = Application.Left + Application.Width - UserForm1.Width - 20
UserForm1.Top = Application.Top + Application.Height - UserForm1.Height - 20
End Sub

 

Vote positif 0 Vote négatif

gardian

XLDnaute Occasionnel

• 8 Mai 2017

• #5

merci affaire résolut

 

Vote positif 0 Vote négatif