Bonjour,

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

Code : Sélectionner tout - Visualiser dans une fenêtre à part
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.