Bonjour,

Je souhaite que mon userform s'ajuste automatiquement à la taille de l'écran à l'ouverture du fichier, mais ça ne fonctionne pas.
voici le code :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
Sub Workbook_Open()
Accueil.Show
worksheets("fond").Visible = True
End Sub
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
Sub Accueil_Activate()
    With Me
        .StartUpPosition = 3
        .Width = Application.Width
        .Height = Application.Height
        .Left = 0
        .Top = 0
    End With
End Sub
Merci de votre aide