Afficher les feuilles dans un combobox sauf une (au choix)

Bonjour le forum

j'ai deux combobox dans mon userform qui affiche les feuilles de mes deux classeurs.

un bouton qui me permet de créer des feuilles avec des noms dans mes differents classeurs.

J'aimerais savoir comment afficher toutes les feuilles sauf la feuil1 (qui est la feuille sur laquelle se fait la copie pour une nouvelle)

Merci de bien vouloir maider.

voici mon code

Private Sub Userform_Initialize()
    Dim sh As Worksheet

    Set wb_avions = ThisWorkbook  '<--- AVION
    Set wb_clients = Workbooks("C-CLIENT.xlsm")

    For Each sh In wb_avions.Sheets
        Me.ComboBox2.AddItem sh.Name
    Next sh

    For Each sh In wb_clients.Sheets
        Me.ComboBox1.AddItem sh.Name
    Next sh
End Sub

Bonjour,

Avec un test IF :

Private Sub Userform_Initialize()
    Dim sh As Worksheet

    Set wb_avions = ThisWorkbook  '<--- AVION
    Set wb_clients = Workbooks("C-CLIENT.xlsm")

    For Each sh In wb_avions.Sheets
        If Sh.Name <> "Feuil1" Then Me.ComboBox2.AddItem sh.Name
    Next sh

    For Each sh In wb_clients.Sheets
          If Sh.Name <> "Feuil1" Then Me.ComboBox1.AddItem sh.Name
    Next sh
End Sub

Problème resolu

Merci beaucoup

Rechercher des sujets similaires à "afficher feuilles combobox sauf choix"