Ouvrir un onglet plein écran à partir d’un UserForm [Résolu/Fermé]

Signaler
Messages postés
341
Date d'inscription
mercredi 16 décembre 2015
Statut
Membre
Dernière intervention
7 novembre 2019
-
mijean94
Messages postés
341
Date d'inscription
mercredi 16 décembre 2015
Statut
Membre
Dernière intervention
7 novembre 2019
-
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
Messages postés
4612
Date d'inscription
mardi 21 octobre 2014
Statut
Membre
Dernière intervention
11 décembre 2019
118
Bonjour Mijean, bonjour le forum,

Peut-être avec :

Application.DisplayFullScreen = True

mijean94
Messages postés
341
Date d'inscription
mercredi 16 décembre 2015
Statut
Membre
Dernière intervention
7 novembre 2019
7
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
Messages postés
4612
Date d'inscription
mardi 21 octobre 2014
Statut
Membre
Dernière intervention
11 décembre 2019
118
Re,

J'aurais plutôt fait :

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

mijean94
Messages postés
341
Date d'inscription
mercredi 16 décembre 2015
Statut
Membre
Dernière intervention
7 novembre 2019
7
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