Ben en reprenant le code de départ par exemple :
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 !
Partager