'ergonomie automatique textbox nom /prenom/ avec combo "clientexistant"
Private Sub TXTNOM_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer): controlpane: End Sub
Private Sub TXTNOM_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal x As Single, ByVal Y As Single)
If Clientexistant.ListIndex > -1 Then selectalltext
End Sub
Private Sub TXTPRENOM_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer): controlpane: End Sub
Private Sub TXTPRENOM_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal x As Single, ByVal Y As Single)
If Clientexistant.ListIndex > -1 Then selectalltext
End Sub