TextBox et SetFocus

Bonjour à tous
Et d'avance, merci de me lire.

Après une vérification par MsgBox, est il possible de repositionner le curseur sur le premier textbox vide trouvé parmi les 3 textbox?


Voici mon code pour tester si un TextBox est vide, mais je ne vois pas comment faire pour replacer le curseur sur le premier TextBox vide trouvé.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Private Sub Btn_Valider_Click() Dim i As Integer For i = 1 To 3 If Me.Controls("TextBox" & i) = "" Then MsgBox "Vous devez indiquer une valeur dans chaques champs", vbOKOnly + vbInformation, "Vérification des données." Me.TextBox1.SetFocus Exit Sub End If Next i     End Sub

---

Merci d'avance à tous
fasedan

Code:

---

Me.Controls("TextBox" & i).SetFocus

---

Merci à mercatoq et bbil pour vos réponses.

En fait je n'étais pas très loin.

Encore merci à vous mais aussi à Developpez.com dont je visite régulièrement les tutos.

fasedan