Bonsoir,
En - long (juste comme ça !!!)
Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
ExecTab KeyCode.Value, Shift, TextBox2, TextBox3
End Sub
Private Sub TextBox2_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
ExecTab KeyCode.Value, Shift, TextBox3, TextBox1
End Sub
Private Sub TextBox3_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
ExecTab KeyCode.Value, Shift, TextBox1, TextBox2
End Sub
Private Sub ExecTab(ToucheClavier As Integer, TShift As Integer, TBFutur As Object, TBPreced As Object)
'Programme type
If ToucheClavier = 9 Then
If TShift = 0 Then
TBFutur.Activate
ElseIf TShift = 1 Then
TBPreced.Activate
End If
End If
End Sub
@+
Ronan