cOMOBOX BOX LISTANT NOM DES FEUILLES

[VBA]

Bonjour
J'ai un petit souci de macro et je ne vois pas ce qui bloque.

J'ai un userform avec une combobox. Cette combobox reprend le nom des feuilles de mon fichier ainsi en sélectionnant une feuille je me rends sur la feuille sélectionnée.

Alors j'ai tapé le code mais la combobox ne s'alimente pas.

Est-ce que quelqu'un peut m'aider. Ci-joint le fichier.

Merci

vba [file name=Listbox.zip size=9668]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Listbox.zip[/file]

 

[Eric C]

Bonjour le forum
Bonjour VBA

L'alimentation de ton Cbo doit se faire dans l'initialize de ton USF

Private Sub UserForm_Initialize()
  ComboBox1.List = RecupF
End Sub

Bonne journée à toute & à tous

 

[Eric C]

Re bonjour le forum
Re bonjour VBA


En plus concis et en faisant abstraction de la feuille 'Accueil' lors de la sélection :

Private Sub CommandButton1_Click()
Sheets(ComboBox1.List(ComboBox1.ListIndex)).Activate
End Sub


Private Sub UserForm_Initialize()
For I = 1 To ThisWorkbook.Worksheets.Count
If Sheets(I).Name <> 'Accueil' Then ComboBox1.AddItem Sheets(I).Name
Next I
End Sub

Bonne journée à toutes & à tous