VBA dans Listbox, liste déroulantes onglets sous conditions

Bonjour, le forum

Alors voilà, je voudrais avoir, dans une ListBox située dans une Userform, un affichage des noms des onglets mais à partir de l'onglet 8 (par exemple)

Pour le moment j'ai ce code qui fonction bien mais qui m'affiche tous les onglets.

Pensez-vous que ce soit possible ?

Private Sub UserForm_Initialize()

Dim ws As Worksheet

For Each ws In ActiveWorkbook.Sheets

ListBox1.AddItem ws.Name

Next

End Sub

Merci de vos prochaines réponses

Bonjour,

Voici :

Private Sub UserForm_Initialize()

    Dim ws As Worksheet
    Dim Debut As Integer

    Debut = 8

    For Each ws In ActiveWorkbook.Sheets

        If ws.Index >= Debut Then ListBox1.AddItem ws.Name

    Next

End Sub

ou encore :

Private Sub UserForm_Initialize()

    Dim I As Integer
    Dim Debut As Integer

    Debut = 8

    For I = 1 To Sheets.Count

        If I >= Debut Then ListBox1.AddItem Sheets(I).Name

    Next

End Sub

Hello Theze

Parfait ! Je l'ai pourtant manipulé ce code pour trouver l'astuce, mais je n'avais pas pense à une deuxième variable.

Super, un grand merci à toi !

Content de t'avoir aidé