Excel: liste pour afficher onglet???

Fermé
stupidophil - 10 déc. 2009 à 18:47
aquarelle Messages postés 7140 Date d'inscription dimanche 8 avril 2007 Statut Modérateur Dernière intervention 25 mars 2024 - 10 déc. 2009 à 22:14
Bonjour à tous,

Me revoici encore avec une question Excel:

J'ai un classeur avec plus de 55 feuilles.
Je voudrais faire une liste déroulante qui permet de choisir directement la feuille sur laquelle on veut aller.
J'ai trouvé sur ce forum une macro (associée à un objet liste déroulante) qui permet ça. La voici:
Private Sub ComboBox1_DropButtonClick()
ComboBox1.Clear
For Each vfeuille In ActiveWorkbook.Sheets
ComboBox1.AddItem vfeuille.Name
Next
End Sub

Private Sub ComboBox1_Click()
Sheets(ComboBox1.Value).Activate
End Sub

Le problème est que j'aimerais que cette liste soit présente sur toutes les feuilles.
Et quand je copie l'objet liste déroulante, ça ne me copie pas la macro...

Quelqu'un aurait il une idée?
d'avance, merci!
A voir également:

2 réponses

aquarelle Messages postés 7140 Date d'inscription dimanche 8 avril 2007 Statut Modérateur Dernière intervention 25 mars 2024 1 302
10 déc. 2009 à 22:14
Bonsoir,

Excel a prévu cela et il n'est pas nécessaire de créer une macro : http://www.commentcamarche.net/...

Bonne soirée
1
michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 303
10 déc. 2009 à 19:09
Bonsoir

essaies une solution "autre" mais je n'ai jamais essayé avec 55 feuilles...

Copies ces 2 macros dans le module "this workbook " de VBE

Private Sub Workbook_Open()
Application.CommandBars("Workbook tabs").ShowPopup 500, 500
End Sub

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Application.CommandBars("Workbook tabs").ShowPopup 500, 500
End Sub


500, 500 donne la position du pop-up sur la feuille
0