' Suite à un bog trouvé (VBA considere que la souris se deplace), je remets à zeros de position memorisée de la souris
Private Sub UserForm_Initialize()
mposy = 0: mposx = 0
End Sub
' Si un click souris quelque soit le bouton, je ferme et relance le chrono (sur l'image)
Private Sub Image1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Unload Me
Call Retour
End Sub
' Gestion du déplacement de la souris (sur l'image)
Private Sub Image1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
' Suite au bog, si la position memorisée de la souris est = 0, memoriser la position de la souris
If mposx = 0 Then
mposx = X
mposy = Y
Exit Sub
End If
' Si la souris n'a pas bougé, je sors de la procedure
If mposx = X And mposy = Y Then Exit Sub
'Sinon, le ferme et je relance le Crono
Unload Me
Call Retour
End Sub
' Si une touche est appuyée je ferme et je relance le chrono
Private Sub UserForm_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
Unload Me
Call Retour
End Sub
' Si un click souris quelque soit le bouton, je ferme et relance le chrono (sur l'userform)
Private Sub UserForm_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Unload Me
Call Retour
End Sub
' Gestion du déplacement de la souris (sur l'Userform)
Private Sub UserForm_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
' Suite au bog, si la position memorisée de la souris est = 0, memoriser la position de la souris
If mposx = 0 Then
mposx = X
mposy = Y
Exit Sub
End If
' Si la souris n'a pas bougé, je sors de la procedure
If mposx = X And mposy = Y Then Exit Sub
'Sinon, le ferme et je relance le Crono
Unload Me
Call Retour
End Sub