Worksheet et combobox

Bonjour à toutes zetatous
je viens de creer un classeur comportant 12 feuilles (mois , janv, fev, etc...) et je souhaiterais lister ces feuilles dans un combobox.
J'ai donc créé un user form (nom : formulairedesaisie) et une combo (nom : comboboxmois)
voici le code :

Private Sub formulairedesaisie_Initialise()
Dim Feuille As Worksheet
For Each Feuille In Worksheets 'parcours du classeur
Select Case Feuille.CodeName
Case "feuil1", "feuil15", "feuil16", "feuil17", "feuil18" 'suppression de la liste
Case Else
Me.ComboBoxmois.AddItem Feuille.CodeName  'affectation de la liste des feuilles dans la combo

End Select
Next Feuille
End Sub

Je ne vois pas et j'ai parcouru ce forum et d'autres pourquoi strictement rien ne se passe, la combobox reste désespérément vide.
Je souhaiterai avoir vos lumières.
D'avance merci

bonjour,

Cette macro n'existe pas :

Private Sub formulairedesaisie_Initialise()

Que tu le veuilles ou non c'est :

Private Sub UserForm_Initialize()

Et ce, que que tu aies rebaptisé ou non ton Userform tu dois utiliser les macro évènementielle prédéfinies.

Et si tu utilises le CodeName des Feuilles e pas oublier les Majusciles...

A+

Bonsoir le forum

Bonsoir zacker, galopin01

Entièrement d'accord avec Galopin01.

Comme j'étais en train de bidouiller mon code, je le mets en ligne :

Option Explicit

Private Sub UserForm_Initialize()
Dim ws As Worksheet
For Each ws In Worksheets
ComboBox1.AddItem ws.Name
Next ws
End Sub

Bonne soirée à toutes & à tous

Bonjour

et un grand merci pour votre retour aussi rapide à tous les 2.
galopin01 j'ai rectifié mon code avec des majuscules et j'ai changé l'intitulé de mon userform (je n'avais tout simplement pas compris ce principe) mais rien y fait
Rien ne s'affiche dans la combo
Par contre avec le code de Ericcool02 tout rentre dans l'ordre sauf le fait qu'il affiche quelques unes (Feuil) qui n'ont pas besoin d'être listées je vais me creuser la tête avant de revenir.
j'aurais bien voulu quand même savoir comment se fait il que mon premier code ne fonctionne pas , j'ai du zapper quelque(s) chose(s)
en tout cas merci à tous les 2
Cordialement

Re le fil

Si tu ne veux qu'apparaissent certainers feuilles alors :

Private Sub UserForm_Initialize()
Dim ws As Worksheet

For Each ws In Worksheets
If ws.Name <> "Feuil2" And ws.Name <> "Feuil4" And ws.Name <> "Feuil5" Then     'A adapter
ComboBox1.AddItem ws.Name
End If
Next ws
End Sub

Re toi et merci de cet ajout
je ne comprend pas grand chose encore dans ce code :
If ws.Name <> "Feuil2" Then 'A adapter

si different de "Feuil2" alors ??? l'adaptation n'est pas encore de mon niveau
je parcours pas mal de bouquins et de forums mais je suis loin d'être au point, donc on pourrait dire même "une bille" enfin j'essaye de comprendre.
donc le then et surtout ce que je dois mettre ensuite et très flou. ce que je souhaiterai c'est d'enlever certaines feuil de ce combo.
Très cordialement

re
pour en revenir à ce code j'ai essayé

If ws.Name <> "Feuil1" And ws.Name <> "Feuil15" Then
      ComboBoxmois.AddItem ws.Name
      End If

et il ne m'a pas enlevé de la liste la Feuil1 et 15 donc ???
merci cdlt
j'ai corrigé par moi même en mettant le nom reel des feuilles ex : ws.Name <> "listes" et là ça fonctionne nickel

Donc résolu

Re le fil,

Oui, il suffit de remplacer le "Feuil" par le nom donné à celle-ci.

Je pense qu'il doit y avoir plus simple que : If ws.Name <> "Feuil2" And ws.Name <> "Feuil4" And ws.Name <> "Feuil5"

avec un Array mais mon niveau n'est que basique.

Bonne soirée

Hello

Je te remercie de ton retour.
Bonne journée à toi