P
Pélican34
Guest
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
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
