Bonjour,

J'ai une macro qui crée une feuille, ajoute un combobox dans cette feuille et le remplit avec la liste des onglets.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
 
ActiveSheet.DropDowns.Add(138, 160, 150, 15).Select
For Each feuille In Worksheets
      Selection.AddItem feuille.Name 
Next feuille
Selection.Name = "CbChoixFeuille"
Selection.OnAction = "choixFeuille"
Jusqu'ici pas de problème. J'aimerais que l'utilisateur puisse ouvrir l'onglet qui le concerne en le choisissant dans le combobox plutôt que de le sélectionner dans les onglets en bas de page.
Et là je sèche complètement. Comment lire le contenu du combobox que j'ai créé par macro? Ma sub choixfeuille ne marche pas.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
 
Sub choixFeuille()
 
    Sheets(ActiveSheet.Shapes("CbChoixFeuille").List(ActiveSheet.Shapes("CbChoixFeuille").listitem)).Select
 
End Sub
Quelqu'un a une idée?