Discussion :

[Hef-aîr]

Bonjour,

Je commence sur vba excel, et j'aurais une question.

Comment fait-on pour créer une combobox avec comme choix de la liste déroulante, les feuilles du tableur excel?

Merci d'avance!

[Phil'oche]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Public Sub ListeFeuilles()
Dim ws As Worksheet
ComboWS.Clear
For Each ws In ThisWorkbook.Worksheets
    ComboWS.AddItem ws.Name
Next
End Sub

[Philippe Tulliez]

Bonjour,
Tu peux aussi utiliser les propriétés List ou RowSource
Exemple (soit l'instruction de la ligne 5 soit de la ligne 6)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Private Sub UserForm_Initialize()
  Dim sht As Worksheet, rng As Range
  Set sht = ThisWorkbook.Worksheets("Feuil1")
  Set rng = sht.Range("A2:E16")
  listBox1.RowSource = sht.Name & "!" & rng.Address
  '  ListBox1.List = rng.Value
End Sub

Un tutoriel à lire Utiliser les contrôles dans un UserForm, en VBA Excel