Alimenter Combobox avec certains noms d'onglets

Bonjour tout le monde,

J'ai un petit problème sur l'alimentation de ma combobox, je m'explique :

J'ai un fichier excel dans lequel je crée des nouvelles feuilles, nomme l'onglet, copies des données automatiquement

Jusque là tout va bien

Ensuite je voudrais pouvoir alimenter une combobox d'un userform par les noms des onglets mais pas tous les onglets,

comme par exemple j'ai ma première feuille "Accueil" où je ne veux pas quelle se retrouve dans la liste de la combobox.

J'ai bien ce code que j'ai trouver et qui fonctionne pour tous les onglets:

Private Sub UserForm_Initialize()
Dim ws As Worksheet
    For Each ws In ActiveWorkbook.Sheets
        ComboBox1.AddItem ws.Name
    Next
End Sub

Mais je voudrais pouvoir mettre par exemple les noms des onglets qu'à partir de la 4ème feuille en sachant que les 3 premières feuilles ne bougeront pas et c'est qu'à partir de la 4ème que mes feuilles seront rajoutés automatiquement

Merci d'avance

Bonjour,

teste comme ceci

Private Sub UserForm_Initialize()
Dim ws As Worksheet
    For Each ws In ActiveWorkbook.Sheets
    If ws.Name <> "Accueil" and ws.name<>"Feuil1" and ws.name<>"Feuil2" Then
        ComboBox1.AddItem ws.Name
        End If
    Next
End Sub

Enremplacant le nom de tes onglets et en ajoutant ceux que tu ne veut pas voir dans la Combo

Bonjour,

Private Sub UserForm_Initialize()
    Dim i%
    For i = 4 To Worksheets.Count
        ComboBox1.AddItem Worksheets(i).Name
    Next i
End Sub

Cordialement.

Bonsoir a vous,

J'ai testé les 2 méthodes et ça fonctionne comme je le souhaite

D’après ce que je peux comprendre :

• La première méthode peut servir pour ne pas afficher n'importe quel onglet dans la combobox quelque soit ou la feuille se trouve
• La deuxième méthode peut servir pour ne pas afficher les premiers onglets du fichier dans la combobox

Pour ma part affaire résolu

Merci encore