Je voulais dire KeyPreview en complément du code de Lord Nelson
Version VB avec un « TextBox » nommé Text1
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 9 Then
KeyCode = 0
MsgBox "Tabulation sur Form"
Else
Me.Caption = KeyCode
End If
End Sub
Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 9 Then
KeyCode = 0
'(la mise à 0 de KeyCode annule l'action de la tabulation, donc le Focus reste
'dans la TextBox)
'Ici: Appel de ta procédure
MsgBox "Tabulation sur Text Box"
End If
End Sub