Passer à la suite après une boucle For ... Next

meyscal -  
 meyscal -

Bonjour,

j'ai un code pour un bouton qui vérifie que tous les champs d'un userform soient remplis. Ca fonctionne très bien si ce n'est que je ne trouve pas comment passer à la suite ... :(

Ce que je souhaite si tout est rempli est tout bête :

UserForm2.Hide
UserForm3.Show

Voici mon code : 

Option Explicit

Private Sub CommandButton1_Click()
Dim ctrl As Control
For Each ctrl In UserForm2.Controls
If TypeName(ctrl) = "TextBox" Then
If ctrl.Text = "" Then
MsgBox "C'est de la triche, vous ne jouez pas le jeu. Tous les champs doivent être renseignés."
Exit For
End If
End If
If TypeName(ctrl) = "ComboBox" Then
If ctrl.Value = "" Then
MsgBox "C'est de la triche, vous ne jouez pas le jeu. Tous les champs doivent être renseignés."
Exit For
End If
End If
Next ctrl
End Sub

Par avance un grand merci

Windows / Chrome 111.0.0.0

2 réponses

  1. cousinhub29 Messages postés 1113 Date d'inscription   Statut Membre Dernière intervention   383
     

    Bonjour,

    A la place des "Exit For", essaie en les remplaçant par des "Exit Sub"

    Bonne apm


    0
  2. meyscal
     

    Merci cousinhub29 ! Je l'avais fait pour le dernier mais pas le 1er ... 

    Bonne soirée ;)

    0