combobox avec les onglets excel

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! :)

:salut:

Code:

---

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

---

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:

---

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