Detecter "inactif depuis + d'une minute"

Bonjour.

Je cherche à réaliser une action si l'utilisateur est inactif depuis plus de X minutes.

Mon problème est que ma fonction qui compare l'heure de la dernière action à l'heure actuelle, frizze Excel et donc empéche l'utilisateur d'être actif... moyen!

J'arrive pas à résoudre ce problème.

Pour l'instant j'en suis là:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
 
Dim a As Date
Dim b As Date
 
 
 
Private Sub Workbook_Open()             'à l'ouverture du fichier
a = (Time)
b = (Time)
 
Do While (1)                            'à l'infini on compare le temps de derniére action au temps actuel -10 secondes
If b < Time - TimeValue("0:00:10") Then
    Action                              'si temps de la derniére action < il  y a 10 secondes, alors action
End If
Loop                                    'et on fait continuellement le test...
End Sub
 
 
 
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
 
    b = (Time)                          'dés qu'il y a une action, on actualise l'heure de cette action
    MsgBox "modif"
 
End Sub
 
 
 
Je suis peut être parti dans la mauvaise direction, à vous de me le dire.
 
Merci pour toute aide.