@Christophe@

Bonjour Jacky,

Voici comment faire, tu ajoutes la propriété MatchRequired = true


Private Sub UserForm_Initialize()
current_date = Month(Date) - 1

With mois
.AddItem "January"
.AddItem "February"
.AddItem "March"
.AddItem "April"
.AddItem "May"
.AddItem "June"
.AddItem "July"
.AddItem "August"
.AddItem "September"
.AddItem "October"
.AddItem "November"
.AddItem "December"
.ListIndex = current_date
.MatchRequired = True
End With
End Sub

Bonne journée

@Christophe@