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

Résolu/Fermé

mijean94 Messages postés 413 Date d'inscription mercredi 16 décembre 2015 Statut Membre Dernière intervention 12 septembre 2024 - 30 mars 2016 à 16:38
mijean94 Messages postés 413 Date d'inscription mercredi 16 décembre 2015 Statut Membre Dernière intervention 12 septembre 2024 - 31 mars 2016 à 11:08

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:

Ouvrir un onglet plein écran à partir d’un UserForm
Comment ouvrir un fichier epub ? - Guide
Creer un groupe whatsapp a partir d'un autre groupe - Guide
Ouvrir un fichier .bin - Guide
Comment ouvrir un fichier docx ? - Guide
Ouvrir un onglet fermé - Guide

2 réponses

Réponse 1 / 2

ThauTheme Messages postés 1442 Date d'inscription mardi 21 octobre 2014 Statut Membre Dernière intervention 29 juillet 2022 160
31 mars 2016 à 08:47

Bonjour Mijean, bonjour le forum,

Peut-être avec :

Application.DisplayFullScreen = True

mijean94 Messages postés 413 Date d'inscription mercredi 16 décembre 2015 Statut Membre Dernière intervention 12 septembre 2024 11
Modifié par mijean94 le 31/03/2016 à 10: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

Réponse 2 / 2

ThauTheme Messages postés 1442 Date d'inscription mardi 21 octobre 2014 Statut Membre Dernière intervention 29 juillet 2022 160
31 mars 2016 à 10:54

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 413 Date d'inscription mercredi 16 décembre 2015 Statut Membre Dernière intervention 12 septembre 2024 11
31 mars 2016 à 11:08

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

Discussions similaires

Annuaire portable gratuit à partir d'un nom