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!
Configuration: Windows XP Internet Explorer 6.0

2 réponses

  1. aquarelle Messages postés 7181 Date d'inscription   Statut Modérateur Dernière intervention   1 311
     
    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
  2. michel_m Messages postés 18903 Date d'inscription   Statut Contributeur Dernière intervention   3 320
     
    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