Comment naviguer entre les feuilles de calcul à l'aide de la liste déroulante dans Excel?
En supposant que vous ayez un classeur contenant plusieurs feuilles de calcul, vous devez maintenant créer une liste déroulante ou une zone de liste déroulante qui répertorie tous les noms de feuille et lorsque vous sélectionnez un nom de feuille dans la liste déroulante, il passe immédiatement à cette feuille. Cet article, je vais vous présenter comment naviguer entre les feuilles de calcul à l'aide d'une liste déroulante dans Excel.
Naviguez entre les feuilles de calcul en utilisant la liste déroulante dans Excel
Naviguez entre les feuilles de calcul en utilisant la liste déroulante dans Excel
Pour accéder à chaque feuille sélectionnée à l'aide d'une liste déroulante, procédez comme suit:
1Cliquez sur Développeur > insérer > Zone de liste déroulante (contrôle ActiveX), voir capture d'écran:
2. Faites ensuite glisser la souris pour dessiner une zone de liste déroulante, puis cliquez dessus avec le bouton droit de la souris, sélectionnez Voir le code depuis le menu contextuel, voir capture d'écran:
3. Dans le ouvert Microsoft Visual Basic pour applications fenêtre, copiez et collez le code suivant pour remplacer le code d'origine, voir capture d'écran:
Code VBA: Naviguez entre les feuilles de calcul en utilisant la 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. Puis enregistrez et fermez cette fenêtre de code, puis cliquez sur Mode de conception pour désactiver le mode de conception, maintenant, lors de la sélection d'un nom de feuille dans la liste déroulante, il ira à cette feuille à la fois, voir capture d'écran:
Naviguez entre les feuilles de calcul à l'aide d'hyperliens ou de boutons:
Avec Kutools for Excel's Créer une liste de noms de feuilles utilitaire, vous pouvez rapidement répertorier tous les noms de feuille de calcul dans une nouvelle feuille avec des hyperliens ou des boutons de macro, puis vous pouvez naviguer entre eux selon vos besoins.
Kutools for Excel: avec plus de 300 compléments Excel pratiques, essai gratuit sans limitation dans 30 jours. Téléchargez et essayez gratuitement maintenant! |
Meilleurs outils de productivité bureautique
Améliorez vos compétences Excel avec Kutools for Excel et faites l'expérience d'une efficacité comme jamais auparavant. Kutools for Excel offre plus de 300 fonctionnalités avancées pour augmenter la productivité et gagner du temps. Cliquez ici pour obtenir la fonctionnalité dont vous avez le plus besoin...
Office Tab apporte une interface à onglets à Office et facilite grandement votre travail
- Activer l'édition et la lecture par onglets dans Word, Excel, PowerPoint, Publisher, Access, Visio et Project.
- Ouvrez et créez plusieurs documents dans de nouveaux onglets de la même fenêtre, plutôt que dans de nouvelles fenêtres.
- Augmente votre productivité de 50% et réduit des centaines de clics de souris chaque jour!