Liste déroulante avec noms des feuilles
bonjour
je souhaiterais insérer une zone de liste déroulante dans chaque cellule (A1) de chaque feuille. Le truc, c'est que le nombre de feuilles n'est pas fixe, j'en ajoute au fur et à mesure (et je les renomme selon les besoins). Ce que je voudrais, c'est que le code - ou la formule, je ne sais pas ce qui est le plus adapté - prenne en compte les feuilles actuelles, mais aussi les futures feuilles, sans que j'ai à le modifier. Cette zone de liste déroulante permettrait de répertorier toutes les feuilles, et quand on clique sur un nom dans cette liste, la feuille correspondante s'affiche. Donc en résumé :
- créer une zone de liste déroulante
- écrire un code qui prend en compte les feuilles existant, et les feuilles futures, sans avoir à le modifier
- lier ce code à la zone de liste déroulante
- quand on clique sur un nom dans cette liste, la feuille devient active.
J'espère que j'ai été assez clair !
merci d'avance
Bonjour,
Tu as déjà ça en natif et cousu main en bas et à gauche de ta fenêtre : (Clic droit sur les petites flêches) ça ne suffirait pas ?
A+
merci, effectivement je ne connaissais pas cette fonctionnalité ! Mais je trouvais mon idée plutôt classe !
Bonjour,
à mettre dans thisworkbook :
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
If Target.Address = "$A$1" Then Application.CommandBars("Workbook tabs").ShowPopup
End Suberiiic a écrit :Bonjour,
à mettre dans thisworkbook :
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range) If Target.Address = "$A$1" Then Application.CommandBars("Workbook tabs").ShowPopup End Sub
génial, merci !