Salut Fabrice, le Forum
Vu que tu ne précises pas, je pars du principe qu'on est bien sur les "Zone de Liste" de la barre d'Outils "CONTROLES" (pas de la "vieille" barre d'outils Formulaire, auquel cas ce qui suit n'est pas applicable)
Ici on parle de Controls ActiveX, bien plus puissants, donc.
ETAPE 1 :
Tu dessines ta ListBox1 depuis, donc, la Barre d'outils "Contrôles" dans la "Feuil1"
ETAPE 2 :
Dans le Private Module de This Workbook, tu colles ceci :
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Dim X As Byte
Sheets("Feuil1").ListBox1.Clear
For X = 1 To Sheets.Count
With Sheets("Feuil1")
.ListBox1.AddItem Sheets(X).Name
End With
Next X
End Sub
Remarque on peut choisir un autre évènement mais celui là s'active dès que l'on change de feuille dans le classeur...
ETAPE 3 :
Dans le Private Module de Feuille "Feuil1" tu colles ceci :
Private Sub ListBox1_Click()
Dim Feuille As String
Feuille = ListBox1
Sheets(Feuille).Activate
End Sub
Voilà à peui près les bases, tu remarqueras que l'on préfèrera un ListBox à une ComboBox dans ce contexte, puisque le User n'a pas à essayer d'entrer un autre nom que celui des feuilles existantes.
Bon Aprèm
@+Thierry