VBA: Positionner le curseur dans un textbox d'un userform
Thomas MOTTE
Sous VBA, j'ai créé un userform avec plusieurs TextBox et
je leur ai donné un ordre de tabulation adéquat.
Lorsque je suis dans un text box, je saisis une valeur et
j'appuie sur TAB. J'execute alors un code dans une private
sub TextBox_AfterUpdate() dans lequel je controle ce qui a
été saisi.
En cas d'inexactitude, je souhaite que le curseur se
repositionne dans le TextBox qui vient d'etre saisi et non
pas dans le suivant dans l'ordre de tabulation.
Quelle instruction faut il utiliser?
J'ai essayé TextBox.SetFocus mais cela ne donne rien.
Merci à celui ou celle qui m'apportera la réponse
Cordialement
Patrick
voici un code que je t'ai écris pour effectuer cette tâche:
------------
Public test As Integer
Private Sub TextBox1_AfterUpdate()
If TextBox1.Text = "texte a vérifier" Then
test = 1
Exit Sub
End If
test = 0
End Sub
Private Sub TextBox2_Enter()
If test = 1 Then TextBox1.SetFocus
End Sub
>-----Message d'origine-----
>.
>
hm hm
hm hm
MichD
Essaie plutôt comme ceci :
'--------------------------
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If TextBox1.Text = "toto" Then
'si oui, que doit-il se passer
Else
'si non
Cancel = True
With Me.TextBox1
.SetFocus
.SelStart = 0
.SelLength = Len(.Text)
End With
MsgBox "Erreur de format. Corriger"
End If
End Sub
'--------------------------
MichD