Remplir Combobox avec le nom des onglets

Bonjour à tous et bonne année !

J'ai débuté à peine la semaine dernière le VBA Excel donc je ne suis pas encore un expert

Je cherche à incruster ma ComboBox avec les noms des différents onglets.

Private Sub ComboBox1_Change()

Dim ws As Worksheet

For Each ws In ActiveWorkbook.Sheets

ComboBox1.AddItem ws.Name

Next

End Sub

Cependant toujours aucun résultat... Je précise que je met ce code dans le formulaire

Bonjour,

et bonne année également.

Ta procédure ne donne pas le résultat attendu car l'évènement Change ne survient que lorsque la valeur du contrôle ComboBox est modifiée.

Dans ton cas, il est préférable d'utiliser l'évènement Initialize de l'Userform.

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

A+

Ah d'accord je ne savais pas qu'il y avait une nuance entre Change et Initialize

Une bonne chose de comprise, je vous remercie à fond Frangy !!!!!

Cordialement

Armand

Il y a surtout une différence entre détecter la modification du ComboBox et détecter l'initialisation de l'Userform .

A+

C'est un peu plus clair pour moi merci

Il ne me reste plus qu'à comprendre comment poser la condition de recherche sur le mois

Bonne après-midi !