Fenêtres Excel côte à côte

Victor Porée Messages postés 79 Statut Membre -  
Victor Porée Messages postés 79 Statut Membre -
Bonjour à tous,

Je cherche une procédure VBA pour mettre deux fenêtres Excel (en l'occurrence, un classeur et l'Éditeur Visual Basic) en mode d'affichage côte à côte.

Je commence un peu à me lasser de le faire quotidiennement.

Des idées ?

1 réponse

  1. cs_Le Pivert Messages postés 8437 Statut Contributeur 730
     
    Bonjour,

    avec un raccourci clavier:

    http://www.info-3000.com/vbvba/raccourciclavier.php

    Voici les macros:

    Option Explicit
    'http://www.info-3000.com/vbvba/raccourciclavier.php
    Sub Afficher()
    Dim objShell
    Set objShell = CreateObject("Shell.Application")
    objShell.TileVertically
    Set objShell = Nothing
    End Sub
    Sub Retablir()
    Dim objShell
    Set objShell = CreateObject("Shell.Application")
    objShell.UndoMinimizeALL
    Set objShell = Nothing
    End Sub
    


    ATTENTION
    Toutes les fenêtres ouvertes seront côte à côte!

    Mais je ne pense pas que cela soit plus rapide que:

    Clic droit sut la barre de tâche(en bas)
    Afficher les fenêtres côte à côte

    @+ Le Pivert
    0
    1. Victor Porée Messages postés 79 Statut Membre 2
       
      Merci pour votre réponse !

      Ma configuration ne s'est pas mentionnée, mais je suis sur Mac, ça ne fonctionne pas.

      Pour l'instant j'arrive à le mettre en plein écran au démarrage, mais c'est tout.

      Sub MettreAuTravail()
      
          With Application
              .DisplayFullScreen = True
          End With
      
      End Sub
      0
      1. cs_Le Pivert Messages postés 8437 Statut Contributeur 730 > Victor Porée Messages postés 79 Statut Membre
         
        Ce n'est valable que pour Windows!

        Je ne suis pas sous Mac, je ne peux donc pas t'aider.
        Désolé

        @+ Le Pivert
        0
      2. Victor Porée Messages postés 79 Statut Membre 2 > cs_Le Pivert Messages postés 8437 Statut Contributeur
         
        Pas de souci, encore merci !
        0