Sortir plein ecran "Userform"

[maval]

Bonjour

Pour mettre mon userform en plein écran à l'ouverture je met ce code:

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

Je suis a la recherche d'un code pour revenir a un écran normal.

Je vous remercie de votre aide

 

[Modeste geedee]

Re : Sortir plein ecran "Userform"

Bonsour®

remettre les propriétés Width et height à leurs valeurs d'origine

 

[Roland_M]

Re : Sortir plein ecran "Userform"

Bonjour,

voir comme ceci !?

 

[maval]

Re : Sortir plein ecran "Userform"

Bonjour Roland

Je te remercie, mais se que je souhaiterai c'est que l'userform s'ouvre en plein écran et que je puisse revenir en écran normal.

Merci d'avance

 

[Roland_M]

Re : Sortir plein ecran "Userform"

re

voir comme ceci