userform list classeur

[tinet]

Bonsoir le forum,


J'ai trouvé ce code pour réaliser un userform pour rechercher la liste des feuilles.

Avons-nous la possibilité de ne pas faire apparaitre les feuilles masqués.

.

Private Sub CommandButton1_Click()
ActiveWorkbook.Worksheets(cbFeuille.Value).Activate
End Sub

Private Sub CommandButton2_Click()
Unload Me
End Sub

Private Sub userform_initialize()
For i = 1 To ActiveWorkbook.Worksheets.Count
cbFeuille.AddItem ActiveWorkbook.Worksheets(i).Name
Next i
End Sub

meci

 

[Papou-net]

Re : userform list classeur

Bonsoir tinet,

Comme ceci peut-être :

Private Sub CommandButton1_Click()
ActiveWorkbook.Worksheets(cbFeuille.Value).Activate
End Sub

Private Sub CommandButton2_Click()
Unload Me
End Sub

Private Sub userform_initialize()
For i = 1 To ActiveWorkbook.Worksheets.Count
If ActiveWorkbook.Visible = True Then cbFeuille.AddItem _
ActiveWorkbook.Worksheets(i).Name
Next i
End Sub

Cordialement.

 

[david84]

Re : userform list classeur

Bonsoir,
si je t'ai compris, il te suffit d'inclure une condition en utilisant la propriété Visible de l'objet worksheets :

Sub test()
For i = 1 To ActiveWorkbook.Worksheets.Count
If Worksheets(i).Visible = True Then MsgBox Worksheets(i).Name
Next i
End Sub

A+

 

[tinet]

Re : userform list classeur

Bonsoir,

Merci pour vos réponse .
Papou net , j'ai remplacé ta formule mais plantages.

David 84
je souhaite garder mon menu déroulant, et ne pas faire apparaître les feuilles masqué

a+

 

[david84]

Re : userform list classeur

Bonsoir,

Merci pour vos réponse .
Papou net , j'ai remplacé ta formule mais plantages.

David 84
je souhaite garder mon menu déroulant, et ne pas faire apparaître les feuilles masqué

a+

Je t'ai donné une piste qu'il te suffit d'adapter dans ta macro.
Sans fichier, je ne peux ni tester ni le faire à ta place mais je pense que là tu as les infos pour t'en sortir.
A+

 

[Papou-net]

Re : userform list classeur

RE tinet

Arf, je me suis planté ! Il manque tout simplement la feuille :

Private Sub userform_initialize()
For i = 1 To ActiveWorkbook.Worksheets.Count
If ActiveWorkbook.Worksheets(i).Visible = True Then cbFeuille.AddItem _
ActiveWorkbook.Worksheets(i).Name
Next i
End Sub

Cordialement.


PS : Bonsoir David84

 

[tinet]

Re : userform list classeur

Merci Papou net.

Merci David84