Lister des dates paliers dans une combobox

Bonjour à tous,

Pas moyen, avec le format ou c date, de faire apparaitre une série de dates dans ma combobox.

Private Sub initialize()
'initialise les données à l'ouverture du formulaire
 'on gère la gestion des erreurs
   On Error Resume Next
With Sheets("deroul")
        For Each cell In .Range("A2:A" & .Range("A200").End(xlUp).Row) 'classe en onglet notes
                'UserForm1.cmbDat.Text = Format(cmbDat.Text, "dd/mm/yyyy")
                UserForm1.cmbDat.Text = CDate(cmbDat.Text)
                AddItem (cell)
        Next
End With
End Sub

Clic droit dans la page pour ouvrir le formulaire correspondant.

Merci de votre aide.

Bonjour,

C'est normal, il y a plusieurs problèmes:

1:

Private Sub initialize()

Ce n'est pas ce qu'il faut écrire pour que ça se lance à l'initialisation du formulaire, il faut:

Private Sub UserForm_Initialize()

Le code ne s’exécutait même pas, donc la combobox ne risquait pas d'être remplie
2:

AddItem (cell)

génère une erreur, car l'objet auquel on veut ajouter l'item n'est pas précisé, il faut écrire:

cmbDat.AddItem (cell)

Avec ces modifications ça marche très bien de mon côté. Le souci ne venait donc pas du format de la date.

Bonjour, et merci.