Private Sub Form_KeyPress(KeyAscii As Integer)
If KeyAscii vbKeyReturn Then Label1 "Retour"
If KeyAscii = vbKeyEscape Then EndIf KeyAscii vbKey1 Or KeyAscii vbKeyNumpad1 Then Label1 = "1"If KeyAscii vbKeyReturn Then SendKeys ("{TAB}"): KeyAscii 0
End Sub
Ne pas oublié de mettre la propriété KeyPreview de ta Form sur True