chaelie2015
XLDnaute Accro
Bonjour Forum
Ci-dessous un code pour vérifier si toutes les TextBox d’un UserForm ne sont pas vide
Mon souci est quelque TextBox et en plus ComboBox (par exemple TextBox2,6,7,10 ,11,18,19 et ComboBox1 ,3,6)
salutations
Ci-dessous un code pour vérifier si toutes les TextBox d’un UserForm ne sont pas vide
Mon souci est quelque TextBox et en plus ComboBox (par exemple TextBox2,6,7,10 ,11,18,19 et ComboBox1 ,3,6)
Code:
Private Sub CommandButton1_Click() 'bouton de commande de validation de l'UserForm
Dim ctrl As Control 'déclare la variable ctrl
For Each ctrl In Me.Controls 'boucle sur tous les contrôles de l'userform
If TypeOf ctrl Is MSForms.TextBox And ctrl.Value = "" Then 'condition : si le type de contôle est une Textbox et si elle est vide
ctrl.SetFocus 'place le curserur dans la Textbox
MsgBox "Vous devez éditer ce champs !" 'message
End If 'fin de la condition
Next ctrl 'prochain contrôle de l'userform
End Sub
Dernière édition: