Sujet Précédent Sujet Suivant

[excel] reduire ou agrandir classeur

Résolu/Fermé
ced3c Messages postés 237 Date d'inscription samedi 19 juillet 2008 Statut Membre Dernière intervention 28 mai 2016 - 13 déc. 2011 à 20:30
ced3c Messages postés 237 Date d'inscription samedi 19 juillet 2008 Statut Membre Dernière intervention 28 mai 2016 - 15 déc. 2011 à 14:32
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 12230 Date d'inscription mercredi 11 août 2004 Statut Contributeur Dernière intervention 15 janvier 2025 1 454
14 déc. 2011 à 21:27
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 samedi 19 juillet 2008 Statut Membre Dernière intervention 28 mai 2016 5
14 déc. 2011 à 21:58
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 samedi 19 juillet 2008 Statut Membre Dernière intervention 28 mai 2016 5
14 déc. 2011 à 22:07
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 12230 Date d'inscription mercredi 11 août 2004 Statut Contributeur Dernière intervention 15 janvier 2025 1 454
14 déc. 2011 à 22:40
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 12230 Date d'inscription mercredi 11 août 2004 Statut Contributeur Dernière intervention 15 janvier 2025 1 454
14 déc. 2011 à 23:02
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 samedi 19 juillet 2008 Statut Membre Dernière intervention 28 mai 2016 5
14 déc. 2011 à 23:28
Je vais faire avec votre exemple

Merci beaucoup pour votre aide :)
0
Réponse 6 / 6
ced3c Messages postés 237 Date d'inscription samedi 19 juillet 2008 Statut Membre Dernière intervention 28 mai 2016 5
15 déc. 2011 à 14:32
Juste pour info cela marche impeccablement
Grand merci :)
0