Discussion :

[JessieCoutas]

Bonjour,

J'ai un créé un fichier qui va être utilisé par différentes personnes et je dois mettre une sorte de minuteur ou compteur, de manière à savoir combien de temps a été passé sur le fichier, c'est à dire combien de temps la souris a été active sur le fichier.

Cette durée ne doit pas s'effacer d'une ouverture du classeur à l'autre mais il sera possible de remettre le compteur à zéro en cliquant sur un bouton.

Pour pas que les gens trichent, il faut vraiment que le compte se fasse quand la souris est active sur le fichier, et si le fichier est resté ouvert sur l'ordinateur, mais que l'utilisateur ne travaille pas dessus, le compte s'arrête.

Je n'ai absolument aucune idée de la faisabilité de ce truc là.
Quelqu'un aurait-il une petite idée?
Merci

[Fvandermeulen]

Salut,
A part le fait que la souris soit active, j'imagine qu'il doivent faire autre chose que de la bouger, c'est via des UserForm, dans les feuilles donc cellule,... ?
Si c'est un questionnaire, ont-ils un temps de réflexion ?

[JessieCoutas]

Il y a différents onglets dans le classeur. Certains sont des paramétrages à renseigner, il y a des tableaux qui se remplissent par des userforms, une feuille contenant tous les résultats...

[Fvandermeulen]

Re,
Il me semblait avoir vu un Post qui traitait de l'inactivité sur un fichier mais le module de recherche du forum semble un peu limité aujourd'hui...

Sinon, une autre piste serait de récupérer la date et l'heure par les modules de feuille sur Selection_Change et/change avec Now().

Etant donné que tu veux garder une trace après fermeture du fichier, j'aurais tendance à stocker ces dates et heures sur une feuille VeryHidden (que tu pourra nettoyer en temps voulu, ce qui répond à une autre de tes questions)

Sur base de cette liste de date heure tu pourras calculer le temps passé en limitant par exemple l'écart entre deux actions à 5' si tu considère que c'est le minimum acceptable d'inactivité.

En espérant avoir été clair et de bonne inspiration

A+ (je rentre chez moi... )

Edit: Allez, pour pas partir comme ça, un petit exemple sur un éveènement de feuille:

Code :

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

1
2
3
4
5
6
7
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim DerCel As Long
 
DerCel = Sheets("Utilisation").Cells(Columns(1).Cells.Count, 1).End(xlUp).Row
Sheets("Utilisation").Cells(DerCel + 1, 1) = Now()
 
End Sub

ReEdit: Avec une formule en colonne B qui met 0 si le temps entre deux mouvement >30 sec => Somme de la colonne B = temps passé à "bouger"

Code :

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

1
2
3
4
5
6
7
8
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim DerCel As Long
 
DerCel = Sheets("Utilisation").Cells(Columns(1).Cells.Count, 1).End(xlUp).Row
Sheets("Utilisation").Cells(DerCel + 1, 1) = Now()
Sheets("Utilisation").Cells(DerCel + 1, 2).FormulaR1C1 = "=IF((RC[-1]-R[-1]C[-1])>0.00035,0,RC[-1]-R[-1]C[-1])"
 
End Sub

Et cette fois ci je m'en vais