USF à la taille de l'écran et centré

[Luke]

Bonjour,

avec le code ci dessous

Private Sub UserForm_Activate()
With UserForm1
.StartUpPosition = 3
.Width = Application.Width
.Height = Application.Height
End With
End Sub

le userform prend la taille de l'écran, mais je cherche à le centrer à l'ouverture de mon fichier excel, afin qu'il épouse exactement les contours de l'écran.

merci devotre aide

Luke

 

[michel]

bonjour Luke

tu peux utiliser les fonctions Left et Top pour positionner les objets par rapport à la feuille

Private Sub UserForm_Activate()
With UserForm1
.StartUpPosition = 3
.Width = Application.Width
.Height = Application.Height
.Left = 0
.Top = 0
End With
End Sub

bon apres midi
michel

 

[Luke]

merci bcp Michel