Sujet Précédent Sujet Suivant

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

Résolu/Fermé
mijean94 Messages postés 394 Date d'inscription mercredi 16 décembre 2015 Statut Membre Dernière intervention 8 novembre 2021 - 30 mars 2016 à 16:38
mijean94 Messages postés 394 Date d'inscription mercredi 16 décembre 2015 Statut Membre Dernière intervention 8 novembre 2021 - 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:

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

Discussions similaires

Annuaire portable gratuit à partir d'un nom
dani26 -
Authority -

9 réponses
"Aucune application permettant d'ouvrir cette URL"
sidojaice -
JIP -

24 réponses
Comment trouver un numéro à partir du nom et prénom
papillon -
guyguy -

10 réponses