Classe Windows (Excel VBA)

Collection de tous les objets Window dans Microsoft Excel.

Pour utiliser une variable de classe Windows, elle doit d'abord être instanciée, par exemple

Dim wnds as Windows
Set wnds = ActiveWindow.Selection

Les procédures suivantes peuvent être utilisés pour définir des variables de la classe Windows : Application.Windows, Window.Selection et Workbook.Windows.

For Each

Voici un exemple de traitement des éléments Windows dans une collection

Dim wnd As Window
For Each wnd In Windows
	
Next wnd

Arrange

Cette méthode dispose les fenêtres à l'écran.

Arrange (ArrangeStyle, ActiveWorkbook, SyncHorizontal, SyncVertical)

Application.Windows.Arrange ArrangeStyle:=xlArrangeStyleTiled

Arguments

Optional arguments

Les arguments suivants sont facultatifs

ArrangeStyle (XlArrangeStyle) - Une des constantes de XlArrangeStyle spécifiant la disposition des fenêtres.


Valeurs possibles sont

xlArrangeStyleCascade Les fenêtres sont disposées en cascade.
xlArrangeStyleHorizontal Les fenêtres sont disposées horizontalement.
xlArrangeStyleTiled Valeur par défaut.
xlArrangeStyleVertical Les fenêtres sont disposées verticalement.

ActiveWorkbook (Boolean) - True pour disposer uniquement les fenêtres visibles du classeur actif. False pour disposer toutes les fenêtres. La valeur par défaut est False.

SyncHorizontal (Boolean) - Ignoré si ActiveWorkbook a la valeur false ou est omis. True pour synchroniser les fenêtres du classeur actif lors du défilement horizontal. False pour ne pas synchroniser les fenêtres. La valeur par défaut est False.

SyncVertical (Boolean) - Ignoré si ActiveWorkbook a la valeur false ou est omis. True pour synchroniser les fenêtres du classeur actif lors du défilement vertical. False pour ne pas synchroniser les fenêtres. La valeur par défaut est False.

BreakSideBySide

Cette méthode met fin au mode côte à côte lorsque deux fenêtres utilisent ce mode. Elle renvoie une valeur de type Boolean qui indique la réussite ou l'échec de la méthode.

Dim booBreakSideBySide As Boolean
booBreakSideBySide = ActiveWindow.Selection.BreakSideBySide

CompareSideBySideWith

Cette méthode ouvre deux fenêtres en mode côte à côte. Elle renvoie une valeur de type Boolean.

Vous ne pouvez pas utiliser la méthode CompareSideBySideWith avec l'objet Application ou la propriété ActiveWorkbook.

CompareSideBySideWith (WindowName)

WindowName: Nom de la fenêtre.

Dim booCompareSideBySideWith As Boolean
booCompareSideBySideWith = ActiveWindow.Selection.CompareSideBySideWith(WindowName:=)

Count

Cette propriété renvoie une valeur de type Long qui représente le nombre d’objets de la collection.

Dim lngCount As Long
lngCount = ActiveWindow.Selection.Count

Item

Cette méthode renvoie un seul objet d'une collection.

Item (Index)

Index: Nom ou numéro d'index de l'objet.

Dim wndItem As Window
Set wndItem = ActiveWindow.Selection(Index:=1)

ResetPositionsSideBySide

Cette méthode rétablit les positions de deux fenêtres de feuille de calcul comparées en côte à côte.

Utilisez la méthode ResetPositionsSideBySide pour réinitialiser la position de deux feuilles de calcul comparées côte à côte. Par exemple, si un utilisateur réduit ou agrandit une des deux fenêtres de feuille de calcul en cours de comparaison, la méthode ResetPositionsSideBySide rétablit l'affichage de manière à ce que les deux fenêtres apparaissent de nouveau côte à côte.

ActiveWindow.Selection.ResetPositionsSideBySide

SyncScrollingSideBySide

Attribuez à cette propriété la valeur True pour activer le défilement synchronisé des fenêtres de documents comparés côte à côte. Attribuez-lui la valeur False pour désactiver le défilement simultané des fenêtres.

ActiveWindow.Selection.SyncScrollingSideBySide = True