Discussion :

[NEC14]

Bonjour à tous,

A l'initialisation d'un UserForm, une Combo se remplie avec le nom des feuilles du fichier actif. Je souhaite que seules les feuilles commençant par L entre dans la liste des feuilles affichées dans le Combo.
Comment puis-je faire ? Merci par avance

Voici mon code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
 
Private Sub UserForm_Initialize()
Dim nbrfeuille As Long, I As Long
Application.ScreenUpdating = False
 
'je remplis ma combo avec le nom des feuilles
nbrfeuille = ActiveWorkbook.Worksheets.Count
 
    For I = 1 To nbrfeuille
 
    Me.CmbLigne.AddItem (ActiveWorkbook.Sheets(I).Name)
 
    Next I
End Sub

[goldstar]

Bonjour,

Il faut tester la premier lettre du nom de la feuille comme ca

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
 
Private Sub UserForm_Initialize()
Dim nbrfeuille As Long, I As Long
Application.ScreenUpdating = False
 
'je remplis ma combo avec le nom des feuilles
nbrfeuille = ActiveWorkbook.Worksheets.Count
 
    For I = 1 To nbrfeuille
          If Left(Sheets(I).Name, 1) = "L" Then 'test de  la premier lettre du nom de la feuille
               Me.CmbLigne.AddItem (ActiveWorkbook.Sheets(I).Name)
          endif
    Next I
End Sub

[NEC14]

Merci beaucoup ça marche comme je le souhaite