liste déroulante

[eddy13t]

Bonjour, voila j'aurai voulu savoir comment créer une liste déroulante avec les onglets d'excel à l'intérieur. Je veux une liste déroulante et quand on clique dessus il y a les feuilles excel qui sont dans le classeur et si on clique dessus ça nous mènerait sur la feuille en question...

Si quelqu'un à une idée ^^

Merci

 

[BOISGONTIER]

Re : liste déroulante

Bonsoir,

http://boisgontierjacques.free.fr/fichiers/Formulaire/Form_ChoixFeuilleNonTrie.xls
http://boisgontierjacques.free.fr/fichiers/Formulaire/Form_ChoixFeuilleTrie1.xls
http://boisgontierjacques.free.fr/fichiers/Formulaire/Form_ChoixFeuilleTrie2.xls

JB

 

[eddy13t]

Re : liste déroulante

Merci bcp

tu pourrai me mettre les commentaires à coté du code pour savoir a quoi ça correspond pour ça:

Private Sub UserForm_Initialize()
For Each s In ActiveWorkbook.Sheets
Me.ComboBox1.AddItem s.Name
Next s
End Sub

Private Sub ComboBox1_Change()
m = Me.ComboBox1
Sheets(m).Select
End Sub

Merci

 

[eddy13t]

Re : liste déroulante

Le problème que j'ai avec cette méthode est que même les onglets qui sont cachés apparaissent dans la liste déroulante ce qui pose problème, je voudrais qu'il y ait juste les onglets actifs qui apparaissent et pas ceux qui sont cachés...

Merci

 

[BOISGONTIER]

Re : liste déroulante

Private Sub UserForm_Initialize()
 For Each s In ActiveWorkbook.Sheets
   If Sheets(s.Name).Visible = xlSheetVisible Then
     Me.ComboBox1.AddItem s.Name
   End If
 Next s
End Sub

JB

 

[eddy13t]

Re : liste déroulante

Merci bcp JB

 

[jojo86]

Re : liste déroulante

Au passage, si tu veux empêcher d'ecrire dans ton combobox, tu peux changer sa proprieté Style à : 2 - fmStyleDropDownList

Voilou !