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

Fermé
meyscal - 19 mars 2023 à 17:10
 meyscal - 19 mars 2023 à 18:02

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

A voir également:

2 réponses

cousinhub29 Messages postés 882 Date d'inscription mardi 10 août 2010 Statut Membre Dernière intervention 25 avril 2024 334
19 mars 2023 à 17:20

Bonjour,

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

Bonne apm


0

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

Bonne soirée ;)

0