Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Sortir plein ecran "Userform"

maval

XLDnaute Barbatruc
Bonjour

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

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
 

Pièces jointes

  • Plein_ecran.xlsm
    15.7 KB · Affichages: 34
  • Plein_ecran.xlsm
    15.7 KB · Affichages: 37
  • Plein_ecran.xlsm
    15.7 KB · Affichages: 41

Roland_M

XLDnaute Barbatruc
Re : Sortir plein ecran "Userform"

Bonjour,

voir comme ceci !?
 

Pièces jointes

  • Plein_ecran.xlsm
    15 KB · Affichages: 32
  • Plein_ecran.xlsm
    15 KB · Affichages: 29
  • Plein_ecran.xlsm
    15 KB · Affichages: 37

maval

XLDnaute Barbatruc
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
 
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…