ComboBox pour afficher une feuille

[hirard]

Bonjour à toutes et tous,

J'ai un classeur avec 100 feuilles (une par département)
J'ai fait un userform avec un comboBox pour lister mes feuilles
Je souhaiterais que la feuille sélectionnée s'affiche, mais j'ai besoin d'un coup de pouce, car mon code affiche bien mes feuilles dans le Comb mais n'obéit pas à ma sélection d'une feuille.
Voici mon code (qui ne marche pas):

Private Sub userform_initialize()
Dim mavar
For mavar = 1 To 10
cbComboBox.AddItem "Feuil" & mavar
Next mavar
End Sub

Private Sub cmdQuitter_Click()
FmCombobox.Hide
End Sub

Private Sub ComboBox_Change()
Sheets(ComboBox.Value).Activate
End Sub

Merci,

Michel

 

[@+Thierry]

Bonsoir Michel, le Forum

Ce Forum est doté d'un moteur de recherche qui fonctionne très bien maintenant. On le trouve en haut de cette fenêtre sour la barre :

​

Faire Une Recherche​

Si tu avais un tant soit peu cherché, c'est une question récurrente, et tu serais tomber même sur des démos.

En bref voici comment faire (mais que celà ne t'empêche pas de chercher car tu auras des exemples plus complets)

Private Sub UserForm_Initialize()
Dim WS As Worksheet
For Each WS In Worksheets
Me.ComboBox1.AddItem WS.Name
Next WS
End Sub


Private Sub ComboBox1_Click()
Worksheets(CStr(Me.ComboBox1)).Activate
End Sub

Bonne soirée
@+Thierry