[excel] reduire ou agrandir classeur

Résolu
ced3c Messages postés 240 Statut Membre -  
ced3c Messages postés 240 Statut Membre -
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

6 réponses

  1.
    Le Pingou Messages postés 12275 Date d'inscription   Statut Contributeur Dernière intervention   1 478
     
    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
  2. ced3c Messages postés 240 Statut Membre 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
    1. ced3c Messages postés 240 Statut Membre 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
  3. Le Pingou Messages postés 12275 Date d'inscription   Statut Contributeur Dernière intervention   1 478
     
    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

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

    Posez votre question
  6. ced3c Messages postés 240 Statut Membre 5
     
    Je vais faire avec votre exemple

    Merci beaucoup pour votre aide :)
    0
  7. ced3c Messages postés 240 Statut Membre 5
     
    Juste pour info cela marche impeccablement
    Grand merci :)
    0