effacer des feuilles mais exclure certaines dans un combobox

cyrikou

XLDnaute Occasionnel
Bonjour, j'ai un userform qui à son ouverture initialise une combobox où son répertoriées les noms des feuilles.
Par la suite, selon le choix, l'utilisateur pourra supprimer cette feuille. Mon problème est qu'il y a 4 feuilles qui ne doivent pas apparaître car elles servent de base de travail pour créer des feuilles personnalisées.
Voici le code :
VB:
Private Sub UserForm_Initialize()
Dim ws As Worksheet
    For Each ws In ActiveWorkbook.Sheets
        ComboBox1.AddItem ws.Name
    Next
End Sub

Par exemple, si je ne veux pas que les noms de la feuille "accueil" et "Cycle 1" n'apparaissent pas, comment dois-je implémenter le code. J'ai testé avec des conditions et "bof,bof"..o_O
Merci
 

Discussions similaires

Statistiques des forums

Discussions
311 723
Messages
2 081 934
Membres
101 844
dernier inscrit
pktla