Discussion :

[ickis69]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[ucfoutu]

Bonjour,

- ta boucle sans passer la main au système (par un DoEvents) est en effet telle que rien d'autre ne pourrait être exécuté pendant qu'elle tourne
- Y mettre un DoEvents ferait que le reste de ton appli pourrait tourner en même temps que la boucle, mais ton processeur va chauffer et souffrir, c'est sûr, au bout de quelques minutes
- Il te faut utiliser Application.OnTime (à voir dans ton aide en ligne).
- il y a moins de trois mois, ce sujet a été traité (une petite recherche et tu le retrouveras).

EDIT :
Voilà :
http://www.developpez.net/forums/d65...t-application/

(la réponse à ta question est dans les premiers messages)