Excel: liste pour afficher onglet???

stupidophil -  
aquarelle Messages postés 7181 Date d'inscription   Statut Modérateur Dernière intervention   -
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 7181 Date d'inscription   Statut Modérateur Dernière intervention   1 304
 
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 18903 Date d'inscription   Statut Contributeur Dernière intervention   3 318
 
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