bouton avec liste à l'interieur

[eldenis]

salut le forum

j'ai deux problemes avec le bouton que j'ai cree plus precisement avec la liste à l'interieur

si vous pouvez m'aider en consultant mon fichier joint

merci je sais que vous etes tres fort

 

[eric]

Salut,

J'ai eu le même problème à gérer et voilà ce que j'ai fait : Toutes les feuilles que je ne voulais pas voir apparaitre dans ma liste, je les masquai :


Private Sub UserForm_Initialize()
sheets("feuil1).visible=false
For i = 1 To Sheets.Count
If Sheets(i).Visible = True Then ComboBox1.AddItem (Sheets(i).Name)
Next i
'on peut éventuellement les réafficher en fin de procédure
sheets("feuil1).visible=true
End Sub

J'espère que ça te convient .

Bon week-end