Lister feuilles (sans les feuilles masquées)

[yoyo69]

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

 

[Orodreth]

Re : Lister feuilles (sans les feuilles masquées)

Bonjour yoyo69

Ton code:

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:

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.

Cordialement,
Thomas

 

[yoyo69]

Re : Lister feuilles (sans les feuilles masquées)

Re thomas,
que de temps tu me fait gagner !!! merci et bonne journée, yo

 

[Orodreth]

Re : Lister feuilles (sans les feuilles masquées)

Re.

Bah de rien