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 -
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 ?
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 ?
A voir également:
- Fenêtres Excel côte à côte
- Liste déroulante excel - Guide
- Word et excel gratuit - Guide
- Croix a cote contact snap - Forum Snapchat
- Déplacer colonne excel - Guide
- Point vert snapchat a cote de quelqu'un - Forum Snapchat
1 réponse
Bonjour,
avec un raccourci clavier:
http://www.info-3000.com/vbvba/raccourciclavier.php
Voici les macros:
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
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
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 SubJe ne suis pas sous Mac, je ne peux donc pas t'aider.
Désolé
@+ Le Pivert