reprise : Sélection d'une feuille excel avec une listbox

Bonjour,

Reprise d'une discussion entre Bidou et Felibelle :

Felibelle propose :

Code:

---

1 2 3 4 5 6 7 8 9 10

'Création de la listBox Private Sub UserForm_Initialize() ListBox1.Clear ListBox1.AddItem "Janvier" ListBox1.AddItem "Février" ListBox1.AddItem "Mars" ListBox1.AddItem "Avril" ListBox1.AddItem "Mai" End Sub

---

Imaginons que le classeur contienne plus de cent feuilles avec des noms scabreux, est-il possible de créer la listbox au moyen d'une astuce, d'un code sympa !!!!?


Merci,


Philippe

Bonjour,

oui en bouclant sur la collection Worksheets et en utilisant la propriété .Name d'une feuille …


__________________________________________________________________________________________

Merci de cliquer sur :plusser: pour chaque message ayant aidé puis sur :resolu: pour clore cette discussion …

Bonjour,

par exemple

Code:

---

1 2 3 4 5 6 7 8 9

Sub BoucleSheets()   Dim Sh As Worksheets     For Each Sh In Application.Workbooks.Worksheets "mais après comment remplir la listbox???" Next Wb End Sub

---

Philippe

Code:

---

1 2 3 4 5

ListBox1.Clear For Each Sh In Application.Workbooks.Worksheets ListBox1.AddItem Sh.Name Next Wb End Sub

---

Merci !

Philippe

Ben en reprenant le code de départ par exemple :

Code:

---

1 2 3 4 5 6 7 8 9

Private Sub UserForm_Initialize() Dim Feuille As Worksheet   ListBox1.Clear   For Each Feuille In ActiveWorkbook.Worksheets ListBox1.AddItem Feuille.Name Next End Sub

---

Merci la prochaine fois d'utiliser l'icône # dédiée au code …

__________________________________________________________________________________________

Merci de cliquer sur :plusser: pour chaque message ayant aidé puis sur :resolu: pour clore cette discussion …

__________________________________________________________________________________________
Le taux de radiation est plus élevé au Pôle Emploi qu'à Fukushima !

Edit : Robert a été le plus rapide !