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

Résolu
mijean94 Messages postés 415 Date d'inscription   Statut Membre Dernière intervention   -  
mijean94 Messages postés 415 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
A voir également:

2 réponses

Réponse 1 / 2
ThauTheme Messages postés 1442 Date d'inscription   Statut Membre Dernière intervention   160
 
Bonjour Mijean, bonjour le forum,

Peut-être avec : 

Application.DisplayFullScreen = True
0
mijean94 Messages postés 415 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
Réponse 2 / 2
ThauTheme Messages postés 1442 Date d'inscription   Statut Membre Dernière intervention   160
 
Re,

J'aurais plutôt fait : 

Private Sub CommandButton2_Click()
Unload formulaire_debut
Sheets("Toto").Activate
Application.DisplayFullScreen = True
End Sub
0
mijean94 Messages postés 415 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