Discussion :

[fyejumpy]

Bonjour,

Mon problème est le suivant, j'ai récupérer sur le net qui me permet d'éteindre mon Userform au bout de 15 min. le but était de voir si la personne utilisée ou non le logiciel pour pouvoir l'éteindre.

Voici le code :

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
Sub arretProg()
    'Affichage du temps restant avant fermeture
    userfCourant(0).Caption = "Fermeture dans : " & cmptArret & " secondes"
         If cmptArret = 0 Then
            'Sauvegarde du classeur
            ActiveWorkbook.Save
            'Puis fermeture du fichier
            ActiveWorkbook.Close
            Exit Sub
        End If
    'pagination du temps en seconde et lancement de la procèdure
    Application.OnTime temps + TimeValue("00:00:01"), procedure:="arretProg"
    'On décrémente le compteur
    cmptArret = cmptArret - 1
End Sub

La macro fonctionne, cependant quand je change de userform, donc userfCourant(0) devient le userform actif et on remet cmptArret à 900.

Voici le code type au sein de l'ensemble de mes Userforms :

Code :

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

1
2
3
4
5
 
cmptArret = 900
 Set userfCourant(0) = Identification
'lancement de la procdure de vérification d'inactivité
    arretProg

Et bien le programme au lieu de descendre les secondes 1 par une 1. Il me les fait descendre 2 par 2 ou 3 par 3.

Je ne comprend vraiment pas le problème. Du coup au lieu d'avoir 900 secondes soit 15 minutes. il se ferme au bout de même pas 3 minutes.

Merci de m'aider.

Cordialement,
Fyejumpy

[Invité]

Bonjour,
que représente la variable temps et quel est sa valeur?

Code :

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

 Application.OnTime Now + TimeValue("00:00:01"), procedure:="arretProg"

[fyejumpy]

Et bien la variable temps représente l'heure actuelle je suppose. Et chaque seconde on rappel la fonction arretProg.

Cependant j'ai essayer de créer une variable "temps" de type date. Je lui affecte le temps de la première ouverture du fichier au lieu de la rafraîchir à chaque. Cependant le temps ne défile plus.

Code dans le userform:

Code :

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

temps = Time

Code dans la fonction arretprog:

Code :

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

Application.OnTime temps + TimeValue("00:00:01"), procedure:="arretProg"

Cordialement,

Fyejumpy

[Invité]

utilises Application.OnTime Now + TimeValue("00:00:01"), procedure:="arretProg"

[fyejumpy]

Au départ je l'utilisé et on rencontre le même soucis. J'ai juste changer avec la variable temps. Cependant, on arrive au problème que le temps ne défile pas.

En clair :
Avec Now : problème d'incrémentation au niveau des secondes lors d'un changement de userForms.
Avec temps : le temps défile d'une seconde puis s'arrête.


Cordialement,
Fyejumpy

[Invité]

Temp n'est pas utile!

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
Sub arretProg()
    'Affichage du temps restant avant fermeture
    userfCourant(0).Caption = "Fermeture dans : " & cmptArret & " secondes"
         If cmptArret = 0 Then
            'Sauvegarde du classeur
            ActiveWorkbook.Save
            'Puis fermeture du fichier
            ActiveWorkbook.Close
            Exit Sub
         else
                'pagination du temps en seconde et lancement de la procèdure
                Application.OnTime now + TimeValue("00:00:01"), procedure:="arretProg"
        End If
 
    'On décrémente le compteur
    cmptArret = cmptArret - 1
End Sub

accessoirement le probème vient de cmptArret =900 mais pas de arretProg