Discussion :

[NEC14]

Bonjour,

Dans un UF j'ai une liste déroulante dans laquelle s'affiche le nom des feuilles du classeur et cela fonctionne bien.
Cependant j'aimerai que les feuilles "Intro" et "Aide" n'entrent pas dans cette liste.

Comment dois-faire ? Merci par avance

Voici le code qui alimente la Combo :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
Private Sub UserForm_Initialize()
Dim NbreFeuille As Long
NbreFeuille = Workbooks("SUIVI_DES_ERP.xls").Worksheets.Count
For I = 1 To NbreFeuille
Me.CmbNomOnglets.AddItem (Workbooks("SUIVI_DES_ERP.xls").Sheets(I).Name)
Next I
End Sub

[BlueMonkey]

Bonjour,

Une solution :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Private Sub UserForm_Initialize()
    Dim ws As Worksheet
    For Each ws In Workbooks("SUIVI_DES_ERP.xls").Sheets
        If (ws.Name <> "Intro") And (ws.Name <> "Aide") Then
            CmbNomOnglets.AddItem ws.Name
        End If
    Next ws
End Sub

Rmq : Si le classeur courant est SUIVI_DES_ERP.xls, il est inutile de précisé le nom du classeur ligne 3.
On peut l'écrire simplement

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

For Each ws In Sheets

[JPierreM]

Bonjour,

Dans la boucle i il suffit d'ajouter une condition disant que si le nom de la feuille est "Intro" ou "Aide" on ne fait rien

JP

[Invité]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Private Sub UserForm_Initialize()
Dim I As Long
Dim WB As Workbook
Set WB = Workbooks("SUIVI_DES_ERP.xls")  ' .Worksheets.Count
For I = 1 To WB.Worksheets.Count
    If WB.Worksheets(I).Name <> "Intro" And WB.Worksheets(I).Name <> "Aide" Then Me.CmbNomOnglets.AddItem WB.Worksheets(I).Name
Next I
End Sub

[Godzestla]

Bonjour René,

par exemple comme ceci.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
For I = 1 To NbreFeuille
Select case trim(upper(Sheets(I).Name)))
         case "INTRO", "AIDE"
         case else
Me.CmbNomOnglets.AddItem (Workbooks("SUIVI_DES_ERP.xls").Sheets(I).Name)
end select
Next I

Bonne journée.

------Edit-------
gasp, grillé par Robert.

[NEC14]

Merci à tous pour votre participation et votre aide.

J'ai pris la solution de rdurupt.

Encore mille mercis