Andrew a besoin, dans sa macro, d’afficher une boîte de dialogue permettant à un utilisateur de changer de fenêtre. Lorsque quelqu’un clique sur le menu Fenêtre (dans Excel), les classeurs disponibles sont répertoriés en bas du menu. Voilà ce dont Andrew a besoin pour apparaître dans la boîte de dialogue. Il se demande s’il existe une boîte de dialogue intégrée pour ce faire ou s’il a besoin de créer la sienne.

La réponse courte est qu’il n’y a pas de boîte de dialogue intégrée pour accomplir cette tâche. Vous pouvez cependant créer facilement le vôtre. Voici un exemple simple:

Sub SwitchWindows()

Dim i As Integer     Dim n As Integer     Dim s As String     Dim v As Variant

n = Windows.Count     s = "Choose Window from:"

For i = 1 To n         s = s & Chr(10) & i & ")  " & Windows(i).Caption     Next     s = s & Chr(10) & "Enter a number from 1 to " & n     v = Application.InputBox(prompt:=s, Type:=2)

i = Val(v)

If i >= 1 And i <= n Then         Windows(i).Activate     End If End Sub

Tout cela fait est de créer une liste des noms pour chaque fenêtre de votre système. Il les présente dans une InputBox, puis passe à la fenêtre sélectionnée par l’utilisateur.

Si vous cherchez différentes manières de présenter les mêmes informations, vous pouvez link: / excel-Seeing_All_Open_Workbook_Names [référez-vous à cette astuce].

_Note: _

Si vous souhaitez savoir comment utiliser les macros décrites sur cette page (ou sur toute autre page des sites ExcelTips), j’ai préparé une page spéciale qui comprend des informations utiles.

lien: / excelribbon-ExcelTipsMacros [Cliquez ici pour ouvrir cette page spéciale dans un nouvel onglet de navigateur].

ExcelTips est votre source pour une formation Microsoft Excel rentable.

Cette astuce (11910) s’applique à Microsoft Excel 97, 2000, 2002 et 2003.

Vous pouvez trouver une version de cette astuce pour l’interface ruban d’Excel (Excel 2007 et versions ultérieures) ici:

link: / excelribbon-Switching_Windows_in_a_Macro [Changer de Windows dans une macro].