Boucle sur textbox

Private Sub CommandButton1_Click()
Dim x As Byte 'déclare la variable x

For x = 1 To 15 'boucle sur les 15 TextBoxes

If Me.Controls('textbox' & x).Value = '' Then 'condition : si la TextBox est vide
MsgBox 'Vous devez remplir la Textbox ' & x 'message
Me.Controls('textbox' & x).SetFocus 'place le curseur dans la TextBox
Exit Sub 'sort de la procédure
End If 'fin de la condition

Next x 'prochaine TexBox

End Sub

Cliquez pour agrandir...

For Each ctrlarray In Array(TextBox3, TextBox5, TextBox7, TextBox8, TextBox9, TextBox11, _
TextBox12, TextBox13, TextBox14, TextBox15, TextBox16, TextBox17, _
TextBox18, TextBox19, TextBox20, TextBox21)

If ctrlarray.Value = '' Then
MsgBox 'Vous devez remplir ce champ !'
ctrlarray.SetFocus
Exit Sub
End If
Next

Cliquez pour agrandir...