Discussion :

[Pierre67]

Bonjour,

je cherche à mettre dans un usf une listbox pour lister les onglets d'un fichier, cela ne pose pas de problème, cependant j'aimerai ajouter une deuxième colonne précisant le statut de chaque feuille visible ou masquée.
C 'est là que je coince

Si quelqu'un avait une idée je suis preneur

cordialement

[Thautheme]

Bonjour Pierre, bonjour le forum,

Essaie comme ça :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub UserForm_Initialize()
Dim O As Worksheet
 
With Me.ListBox1
    .ColumnCount = 2
    For Each O In Worksheets
        .AddItem
        .Column(0, .ListCount - 1) = O.Name
        .Column(1, .ListCount - 1) = IIf(O.Visible, "Visible", "Masqué")
    Next O
End With
End Sub

[Pierre67]

Super Thauteme

ça marche NICKEL

merci beaucoup
@+