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
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
il faut que tu rajoutes un test au moment où tu rajoutes l'item dans ta combo.
Ce qui donne quelque chose comme:
Code:
Private Sub UserForm_Initialize()
Dim WS As Worksheet
For Each WS In Worksheets
If WS.Visible = xlSheetVisible Then
Me.ComboBox1.AddItem WS.Name
end if
Next WS
With Me
.startUpPosition = 3
.Left = Application.Width - Me.Width
End With
End Sub
ça teste si ta feuille est visible, et si c'est le cas, ça ajoute à la liste du combo.