Detecter "inactif depuis + d'une minute"

Detecter "inactif depuis + d'une minute" - VB/VBA/VBS - Programmation

Marsh Posté le 26-03-2009 à 15:53:25    

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. Dim a As Date
  2. Dim b As Date
  6. Private Sub Workbook_Open()             'à l'ouverture du fichier
  7. a = (Time)
  8. b = (Time)
  10. Do While (1)                            'à l'infini on compare le temps de derniére action au temps actuel -10 secondes
  11. If b < Time - TimeValue("0:00:10" ) Then
  12.     Action                              'si temps de la derniére action < il  y a 10 secondes, alors action
  13. End If
  14. Loop                                    'et on fait continuellement le test...
  15. End Sub
  19. Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
  21.     b = (Time)                          'dés qu'il y a une action, on actualise l'heure de cette action
  22.     MsgBox "modif"
  24. End Sub


 
 
Je suis peut être parti dans la mauvaise direction, à vous de me le dire.
 
Merci pour toute aide.
 

Reply

Marsh Posté le 26-03-2009 à 15:53:25   

Reply

Marsh Posté le 26-03-2009 à 16:29:03    

Place un doevents dans ta boucle do while(1), genre juste avant le loop
 
Edit : par contre, attention : ce genre de boucle infini en vb, comme tu l'as faite ici, est vraiment instable.
 
Regarde du côté des timers


Message édité par kao98 le 26-03-2009 à 16:30:35

---------------
Kao ..98 - Uplay (R6S) : kao98.7.62x39 - Origin (BF4, BF1) : kntkao98
Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed