ComboBoxs vides

[Pélican34]

Bonjour à tous,

Je vous explique mon problème, j'ai créé un Userform avec Plusieurs Textbox et combobox.
Pour obtenir une date complète, je met 3 combobox a coté, 1 pour les Jours, 1 pour les mois, et 1 pour les années.
Ainsi je peux remplir une cellule avec la forme jj/mm/aa
Pour faire cela j'utilise le code suivant:
Dim lesMois, leMois
lesMois = Array('Janvier', 'Février', 'Mars', 'Avril', 'Mai', 'Juin', 'Juillet', 'Août', 'Sptembre', 'Octobre', 'Novembre', 'Décembre')
leMois = Application.Match(ComboBox4, lesMois, 0)
Range('Q' & num).Value = DateSerial(ComboBox3, leMois, ComboBox6)
Et il y en a plusieur comme ça...

Mon problème est que si je ne remplie pas les combobox le débogueur se met en route.

Alors comment faire pour pouvoir laisser des combobox vides?

Merci beaucoup pour votre aide

 

[Pélican34]

Merci jmps,
Mais à quel endroit je dois le placer?
avant ce que j'ai écrit, au début à la fin?

 

[Pélican34]

Ok merci,
Je vais tester.

Merci de ton aide.