[excel] reduire ou agrandir classeur

Résolu
ced3c Messages postés 237 Date d'inscription   Statut Membre Dernière intervention   -  
ced3c Messages postés 237 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour,
Je voudrais savoir comment faire pour reduire ou agrandir mon classeur à partir d'un userform
En cherchant sur le net j'ai pu trouver 

Application.WindowState = xlMinimized
Application.WindowState = xlMaximized


Mais cela ne marche pas
Je voudrais quelque chose comme les 2 codes ci-dessous 

Private Sub CommandButton20_Click()
ActiveWindow.WindowState = xlMinimized
End Sub

Private Sub CommandButton19_Click()
   ActiveWindow.WindowState = xlMaximized
End Sub


Pour complément d'explication, au lancement du classeur un userform s'affiche et à partir de cet userform je voudrais reduire(voir masquer) ou agrandir le classeur.
Le but de ceci est de pouvoir avoir acces au bureau (le userform n'est pas en plein écran) et dans un second temps pour un aspect esthétique (le classeur servira pour enregistrer des ventes dans un magasin)

merci d'avance

A voir également:

6 réponses

Réponse 1 / 6
Le Pingou Messages postés 12249 Date d'inscription   Statut Contributeur Dernière intervention   1 458
 
Bonjour,
Juste au passage, essayer de mettre cette ligne d'instruction juste avant la ligne d'ouverture du formulaire comme suit: 
Application.WindowState = xlMinimized
UserForm1.Show
0
Réponse 2 / 6
ced3c Messages postés 237 Date d'inscription   Statut Membre Dernière intervention   5
 
Merci Le pingou pour la reponse

J'ai fait comme vous m'avez dit
Au lancement, le workbook se minimise mais le userform de lancement aussi.
Si je clique sur la fenêtre minimisée, le userform apparaît et pas le classeur donc c'est bon
Par contre quand je balade ma souris en dehors du userform sur le bureau le sablier de la souris apparais et après une bonne attente, il n'a pas l'air de disparaître.

Est ce normal ou quelque chose se lancerait en boucle ?
0
ced3c Messages postés 237 Date d'inscription   Statut Membre Dernière intervention   5
 
du nouveau
apparemment cela s'arrêterais au bout de 2 minutes à peu près.
Donc si il y a un moyen de supprimer cela c'est bien mais ce n'est pas vital :)
0
Réponse 3 / 6
Le Pingou Messages postés 12249 Date d'inscription   Statut Contributeur Dernière intervention   1 458
 
Bonjour,
Non chez moi pas de sablier.
Cependant, vous pouvez essayer de mettre la ligne de commande 
Application.WindowState = xlMinimized
dans la procédure : 
Private Sub UserForm_Initialize()
0
Réponse 4 / 6
Le Pingou Messages postés 12249 Date d'inscription   Statut Contributeur Dernière intervention   1 458
 
Bonjour,
Essayez cet exemple : https://www.cjoint.com/?3LoxbRYZCHo
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
Réponse 5 / 6
ced3c Messages postés 237 Date d'inscription   Statut Membre Dernière intervention   5
 
Je vais faire avec votre exemple

Merci beaucoup pour votre aide :)
0
Réponse 6 / 6
ced3c Messages postés 237 Date d'inscription   Statut Membre Dernière intervention   5
 
Juste pour info cela marche impeccablement
Grand merci :)
0