userform list classeur

Papou-net

XLDnaute Barbatruc

• 13 Février 2013

• #2

Re : userform list classeur

Bonsoir tinet,

Comme ceci peut-être :

Code:

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.

 

Dernière édition: 13 Février 2013

Vote positif 0 Vote négatif

D

david84

XLDnaute Barbatruc

• 13 Février 2013

• #3

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 :

Code:

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

A+

 

Vote positif 0 Vote négatif

tinet

XLDnaute Impliqué

• 13 Février 2013

• #4

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+

 

Vote positif 0 Vote négatif

D

david84

XLDnaute Barbatruc

• 13 Février 2013

• #5

Re : userform list classeur

tinet à dit:

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+

Cliquez pour agrandir...

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+

 

Vote positif 0 Vote négatif

Papou-net

XLDnaute Barbatruc

• 13 Février 2013

• #6

Re : userform list classeur

RE tinet

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

Code:

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

 

Vote positif 0 Vote négatif

tinet

XLDnaute Impliqué

• 13 Février 2013

• #7

Re : userform list classeur

Merci Papou net.

Merci David84

 

Vote positif 0 Vote négatif