Discussion :

[philippe6]

Bonjour,

Reprise d'une discussion entre Bidou et Felibelle :

Felibelle propose :

Code :

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

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

[Marc-L]

Bonjour,

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


__________________________________________________________________________________________

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

[philippe6]

Bonjour,

par exemple

Code :

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

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

[Invité]

Code :

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

1
2
3
4
5
ListBox1.Clear
For Each Sh In Application.Workbooks.Worksheets
ListBox1.AddItem Sh.Name
Next Wb
End Sub

[philippe6]

Merci !

Philippe

[Marc-L]

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

Code :

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

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 pour chaque message ayant aidé puis sur pour clore cette discussion …

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

Edit : Robert a été le plus rapide !