bonjour chaps le forum pas sur d avoir tous compris tu peus utilser l evenement mousemove ex: Private Sub textbox1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
TextBox1.Value = 1
TextBox2.Value = 2
End Sub
Private Sub textbox2_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
TextBox1.Value = 2
TextBox2.Value = 1
End Sub
'si tu peus t en inspirer salutations