Bonjour,
Le code ci-dessous permet de lister les feuilles de mon classeur dans une combobox, comment le modifier pour que les feuilles masquées n'apparaissent pas dans la liste.
Private Sub UserForm_Initialize()
Dim WS As Worksheet
For Each WS In Worksheets
Me.ComboBox1.AddItem WS.Name
Next WS
With Me
.startUpPosition = 3
.Left = Application.Width - Me.Width
End With
End Sub
Merci, Cordialement Yoyo
Le code ci-dessous permet de lister les feuilles de mon classeur dans une combobox, comment le modifier pour que les feuilles masquées n'apparaissent pas dans la liste.
Private Sub UserForm_Initialize()
Dim WS As Worksheet
For Each WS In Worksheets
Me.ComboBox1.AddItem WS.Name
Next WS
With Me
.startUpPosition = 3
.Left = Application.Width - Me.Width
End With
End Sub
Merci, Cordialement Yoyo