Comment naviguer entre les feuilles de calcul à l'aide d'une liste déroulante dans Excel ?

Supposons que vous ayez un classeur contenant plusieurs feuilles de calcul. Maintenant, vous devez créer une liste déroulante ou une zone de liste qui répertorie tous les noms des feuilles et lorsque vous sélectionnez un nom de feuille dans la liste déroulante, elle accède immédiatement à cette feuille. Dans cet article, je vais vous montrer comment naviguer entre les feuilles de calcul en utilisant une liste déroulante dans Excel.

Naviguer entre les feuilles de calcul à l'aide d'une liste déroulante dans Excel

Naviguer entre les feuilles de calcul à l'aide d'une liste déroulante dans Excel

Pour accéder à chaque feuille sélectionnée à l'aide d'une liste déroulante, suivez les étapes suivantes :

1. Cliquez sur Développeur > Insérer > Zone de liste déroulante (Contrôle ActiveX), voir capture d'écran :

2. Ensuite, faites glisser la souris pour dessiner une zone de liste déroulante, puis faites un clic droit dessus et sélectionnez Afficher le code dans le menu contextuel, voir capture d'écran :

3. Dans la fenêtre Microsoft Visual Basic pour Applications ouverte, copiez et collez le code suivant pour remplacer le code d'origine, voir capture d'écran :

Code VBA : Naviguer entre les feuilles de calcul à l'aide d'une liste déroulante

Private Sub ComboBox1_Change()
'Updateby Extendoffice
    If ComboBox1.ListIndex > -1 Then Sheets(ComboBox1.Text).Select
End Sub
Private Sub ComboBox1_DropButtonClick()
    Dim xSheet As Worksheet
    On Error Resume Next
    Application.ScreenUpdating = False
    Application.EnableEvents = False
    If ComboBox1.ListCount <> ThisWorkbook.Sheets.Count Then
        ComboBox1.Clear
        For Each xSheet In ThisWorkbook.Sheets
            ComboBox1.AddItem xSheet.Name
        Next xSheet
    End If
    Application.EnableEvents = True
    Application.ScreenUpdating = True
End Sub
Private Sub ComboBox1_GotFocus()
    If ComboBox1.ListCount <> 0 Then ComboBox1.DropDown
End Sub

4. Ensuite, enregistrez et fermez cette fenêtre de code, puis cliquez sur Mode Création pour désactiver le mode création. Maintenant, lorsque vous sélectionnez un nom de feuille dans la zone de liste déroulante, il accédera immédiatement à cette feuille, voir capture d'écran :