je suis sur un probléme de macro
cette macro me sert à controler que tous les combobox soit non vide
et m'averti avec un msg si un combobox est vide
puis ce que je cherche à faire c'est de pouvoir fermer l'userform3
si tous les combobox sont rempli et de basculer sur l'userform1.
Private Sub cloturedérogation_Click()
Dim ctrl As Control
For Each ctrl In Me.Controls
'je recherche que les controles de type combobox
If TypeOf ctrl Is ComboBox Then
'si le controle est vide alors je sors de la boucle
'et j'empeche la fermeture de la form
If ctrl.Text = "" Then
Cancel = 1
'message informant d'une erreur
MsgBox "Vous devez remplir tous les champs obligatoires.", , "manque saisie"
à la fin.
Au lieu d'un Exit For, je te propose même un Exit Sub. Comme ça, en cas de champs obligatoires non remplis, tu ne passes pas à la suite donc pas au Unload Me.
--------------------------------
KangOl, et cette balise [icode] ?
à la fin.
Au lieu d'un Exit For, je te propose même un Exit Sub. Comme ça, en cas de champs obligatoires non remplis, tu ne passes pas à la suite donc pas au Unload Me.
--------------------------------
KangOl, et cette balise [icode] ?