Ouvrir un onglet plein écran à partir d’un UserForm

Résolu
mijean94 Messages postés 413 Date d'inscription   Statut Membre Dernière intervention   -  
mijean94 Messages postés 413 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour,

J’utilise le code suivant pour démarrer mon programme sur un UserForm. 

Private Sub Workbook_Open()
  Application.WindowState = xlMinimized
  formulaire_debut.Show vbModeless
End Sub


Ça marche bien, mais …

Lorsque je demande une fonction de cet UserForm, la fonction est bien activée dans le fichier Excel mais l’onglet concerné n’est pas affiché plein écran. Il faut donc cliquer sur le raccourci pour le voir.

Que faudrait-il faire pour avoir la page demandée qui apparaisse en plein écran ?

Merci pour vos réponses

Cordialement

2 réponses

  1.
    ThauTheme Messages postés 1564 Statut Membre 160
     
    Bonjour Mijean, bonjour le forum,

    Peut-être avec : 

    Application.DisplayFullScreen = True

    0
    1. mijean94 Messages postés 413 Date d'inscription   Statut Membre Dernière intervention   11
       
      Bonjour ThauTheme, bonjour le forum,

      Merci pour cette réponse.

      J'ai placer ce code dans la commande du bouton de mon UserForm, mais ca ne marche pas.
      Ce n'est peut-être pas la bonne place ? Ou placer ton code ? 

      Private Sub CommandButton2_Click()
      Application.DisplayFullScreen = False
      Sheets("Toto").Activate
      Unload formulaire_debut
      End Sub


      merci pour la réponse

      Cordialement
      0
  2. ThauTheme Messages postés 1564 Statut Membre 160
     
    Re,

    J'aurais plutôt fait : 

    Private Sub CommandButton2_Click()
Unload formulaire_debut
Sheets("Toto").Activate
Application.DisplayFullScreen = True
End Sub

    0
    1. mijean94 Messages postés 413 Date d'inscription   Statut Membre Dernière intervention   11
       
      Re,

      Merci pour la réponse.
      Ca ne marche pas comme j'aurais souhaité.
      Après plusieurs essais en mode auto apprentissage des macros, j'ai trouvé le code qui répond à mon attente : 

      Private Sub CommandButton2_Click()
      Unload formulaire_debut
      Sheets("Toto").Activate
      Application.WindowState = xlNormal
      End Sub


      Cordialement
      0