Ajouter la liste des feuilles d'un classeur Excel dans une listeBox

Bonjour membres du forum,

J'ai une listeBox ListBoxFeuilles de la UserForm UserFormMobile dans laquelle la liste des feuilles du classeur PARTAGE_HERITAGE_Version_2

devrait s'afficher. Alors ai essayé d'adapter a ma recherche le code suivant trouvé ici https://forum.excel-pratique.com/excel/listbox-29320#p166576

Malheureusement rien ne s y affiche.

Private Sub UserForm_Initialize()
' Rajoute les feuilles créées dans Excel à la liste du formulaire

    Dim feuille As Worksheet
    For Each feuille In ActiveWorkbook.Worksheets
        ListBox.AddItem feuille.Name
    Next

End Sub

Voici mon essai d'aptation

Private Sub UserForm_Initialize()
' Rajoute les feuilles créées dans Excel a la liste du formulaire

    Dim feuille As Worksheet
    For Each feuille In ActiveWorkbook.Worksheets
        UserFormMobile.AddItem feuille.Name
    Next

End Sub

Message d'erreur:

Quelle serait la solution ?

Pièce jointe (Les infos dans la PJ

ne sont que des exemples).

Cordialement.

Bonjour,
Essaie ainsi :

' Rajoute les feuilles créées dans Excel a la liste du formulaire
Private Sub UserForm_Initialize()
Dim feuille As Worksheet
    For Each feuille In ActiveWorkbook.Worksheets
        Me.ListBoxFeuilles.AddItem feuille.Name
    Next
End Sub

Bonjour,

Essayez de comprendre le message d'erreur : méthode introuvable, additem surligné, juste après Usf...

Donc un usf ne procède pas d'item, par contre il contient une listbox qui elle contient une liste d'item... C'est le principe de la programmation orienté "objet" : on part de l'objet "parent" le usf, puis on prend un de ses "fils" la listbox, puis on prend une methode de ce fils additem : USF.ListBox.AddItem

Comme l'a écrit Jean-Eric mais lui il a utilisé le "Me" pour identifier le "parent".

@ bientôt

LouReeD

Bonjour Jean-Eric,

bonjour LouReeD,

bonjour membres du forum,

Cette discussion est résolue.

Merci infiniment

Cordialement.

Bonsoir,

merci pour ce retour !

@ bientôt

LouReeD