J
Jacky
Guest
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.
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.