Fenêtres Excel côte à côte

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. Contributeur
    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
    1. 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
    2. Contributeur
      @Victor PoréeCe n'est valable que pour Windows!

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

      @+ Le Pivert