[XL-2003] Curseur dans une textbox

Curseur dans une textbox

Bonjour,

Je souhaiterais que mon curseur aille directement dans la textbox suivante après avoir appuyé sur la touche ENTER.

Code:

1
2
3
4
5
6
7
8
9
Private Sub TxtBoxNISB_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
Dim chaine
chaine = "0123456789"
If InStr(1, chaine, Chr(KeyAscii)) = 0 And Not KeyAscii = 8 Or Len(TxtBoxNISB.Value) > 12 Then
    Beep
    MsgBox "Le numéro ISBN doit être une valeur numérique d'un maximum de  13 chiffres !", , "NUMERO ISBN"
    KeyAscii = 0
End If
End Sub

Merci pour vos réponses et bonne journée.

Bonjour,

ajouter une commande :
Code:

1 2 Private Sub TxtBoxNISB_Exit... toncontrole.SetFocus......

Merci,

Cela m'a permis de voir mon erreur.
En fait, la txtbox suivante était ENABLED=False.