listbox exclure une feuille

[Evelynetfrancois]

bonjour

je cherche comment exclure une feuille de la liste

Private Sub UserForm_Initialize()
Dim i As Byte
For i = 1 To Sheets.Count
Me.ListBox1.AddItem ThisWorkbook.Worksheets(i).Name
Next
End Sub

merci d'avance pour vos solutionsbonne journée
E et F

 

[Cousinhub]

Re : listbox exclure une feuille

Bonjour, rajoute une condition :

Private Sub UserForm_Initialize()
Dim i As Byte
For i = 1 To Sheets.Count
[COLOR="Red"]If Sheets(i).Name <> "Total" Then[/COLOR] Me.ListBox1.AddItem Sheets(i).Name
Next
End Sub

 

[Victor21]

Re : listbox exclure une feuille

Bonjour, Evelyneetfrancois.

A tester :

For Each i In ThisWorkbook.Sheets
    If i.Name <> "Fichier à exclure" Then
        Me.ListBox1.AddItem ThisWorkbook.Worksheets(i).Name
    End If
Next i

Bien cordialement

Désolé, bhbh. Je n'avais pas vu ta réponse.

 

[Evelynetfrancois]

Re : listbox exclure une feuille

SUPER bien !!!
MERCI bhbh et Victor21 pour votre rapidité et votre solution
bonne journée à vous
E et F