Aide sur les combobox

[Jacky]

Bonjour,

J'ai un formulaire avec une combobox pour choisir le mois.
Je voudrais que par défault la macro choisisse le mois précédent.
J'ai donc tapé ceci : (mois. = ma combobox)
Private Sub UserForm_Initialize()
mois.AddItem "January" 'listindex=0
mois.AddItem "February" 'listindex=1
mois.AddItem "March" 'listindex=2
mois.AddItem "April" 'listindex=3
mois.AddItem "May" 'listindex=4
mois.AddItem "June" 'listindex=5
mois.AddItem "July" 'listindex=6
mois.AddItem "August" 'listindex=7
mois.AddItem "September" 'listindex=8
mois.AddItem "October" 'listindex=9
mois.AddItem "November" 'listindex=10
mois.AddItem "December" 'listindex=11
current_date = Month(Date) - 1
mois.ListIndex = current_date
End Sub

La ce me fait un run-time error 13 - type mismatch.
Auriez-vous une idée ?

J'ai une autre question, comment empecher la possibilité de saisir dans cette combobox, bref, que l'on puisse seulement choisir les Item ajouté par la macro ???

Cordialement, merci d'avance pour votre aide.

 

[Jacky]

Oula,

J'ai trouvé, en fait j'avais deja defini une variable month dans la macro principale (en public)... c'est pour cela que ca plantait...

Par contre ma 2eme question tient toujours !

Merci.

 

[@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@

 

[Jacky]

Merci Christophe,

en effet même si on peut écrire dans la combox, cela provoque une erreur si le mois n'est pas valide.

Merci.