Dimension automatique de la Fenêtre de l'Userform

Bonjour à Tous,

Depuis très longtemps, je cherche à dimensionner automatiquement la fenêtre qui contient un USF , je n'arrive pas à trouver la solution.

Mon principal problème c'est quand je suis en programmation quand j'ouvre un USF, la fenêtre est toujours trop grande par rapport à l'USF.

Peut-on avoir une solution?

Merci pour votre aide si précieuse.

Amicalement

Noel

Bonjour,

Veux-tu essayer comme ça :

Private Sub UserForm_Initialize()
    With ActiveWindow
            .WindowState = xlNormal
            .Top = 0
            .Left = 0
            .Height = UserForm1.Height
            .Width = UserForm1.Width
    End With
End Sub