[XL-2007] TextBox et SetFocus [Résolu]

[fasedan]

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

[mercatog]

Code :

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

[fasedan]

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