cOMOBOX BOX LISTANT NOM DES FEUILLES

VBA · 2 Juin 2005

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 · 2 Juin 2005

Bonjour le forum
Bonjour VBA

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

Code:

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

Bonne journée à toute & à tous

Eric C · 2 Juin 2005

Re bonjour le forum
Re bonjour VBA

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

Code:

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

cOMOBOX BOX LISTANT NOM DES FEUILLES

VBA

Guest

Pièces jointes

Eric C

XLDnaute Barbatruc

Eric C

XLDnaute Barbatruc

Discussions similaires