Se connecter avec
S'enregistrer | Connectez-vous

fermer l'userform aprés avoir controler les combobox

Dernière réponse : dans Programmation

bonjour à tous

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.

  1. Private Sub cloturedérogation_Click()
  2.  
  3. Dim ctrl As Control
  4. For Each ctrl In Me.Controls
  5. 'je recherche que les controles de type combobox
  6. If TypeOf ctrl Is ComboBox Then
  7. 'si le controle est vide alors je sors de la boucle
  8. 'et j'empeche la fermeture de la form
  9. If ctrl.Text = "" Then
  10. Cancel = 1
  11. 'message informant d'une erreur
  12. MsgBox "Vous devez remplir tous les champs obligatoires.", , "manque saisie"
  13. Exit For
  14. End If
  15. End If
  16. Next ctrl


merci pour votre aide
boby
Lassé par la pub ? Créez un compte
Expert Programmation

Ajoute un
Unload Me
à 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] ?

Citation :
Ajoute un
Unload Me
à 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] ?

merci pour toute les info ca fonctionne
super zeb
Lassé par la pub ? Créez un compte