salut
-j'ai créer une barre d'outil qui se créer à l'ouverture du fichier : OK
-dans cette barre, il y a une liste déroulante qui liste les 50 feuilles de mon classeur : OK

le pb :
je ne sais pas comment faire pour activer la feuille en question qd je clic sur le bouton de la liste déroulante ....

un bout de code ...

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
[...]
 Set feuille = labarre.Controls.Add(msoControlPopup)
     With feuille
     feuille.Caption = "Choix &Feuille"
          For Each ws In Worksheets
                   Set Button = feuille.Controls.Add(msoControlButton)
                      Button.Caption = ws.Name
                      Button.OnAction = "OuvrFeuille"
         Next ws
      End With
End Sub
..........
Sub OuvrFeuille()
      Sheets(???).Activate
End Sub
il doit y avoir un passage de paramètre à faire, je sais pas trop .....
sinon je peux faire 50 macro pour mes 50 feuilles mais il doit y avoir + efficace ....
j'espere avoir été asssez clair ....
si vous avez des idées ... merci !

jp