Discussion :

[Rogeure]

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.

[casefayere]

Bonjour,

ajouter une commande :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Rogeure]

Merci,

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