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

[fyejumpy]

J'ai tester ta version et même soucis quand je change de Userform, mes secondes passe de 1 en 1 à 2 en 2. Si je rechange encore je passe de 3 en 3 et ainsi de suite :/ je comprend pas comment régler ce soucis ..

Cordialement,

Fyejumpy

[Invité]

Place ton fichier!

[fyejumpy]

Le truc c'est que je rappel arretprog à chaque ouverture d'un nouvel userform. Cependant, entre temps "Now" change et je pense que le décalage vient de la du coup non ? Ou peut être le "+ TimeValue" qui a chaque ouverture fais + 1s ?

Voilà j'ai fais un fichier d'exemple tout bête.

merci encore de ton aide,

Cordialement,
Fyejumpy

[Invité]

la routine arretProg se lance automatiquement, pas besoin de la lancer plusieurs fois!

Code Module arret :

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
Option Explicit
Option Private Module
'//Partie Macro
'Durée
Public cmptArret As Integer
Public Start As Boolean
Public userfCourant As UserForm

'//Partie macros pour fermeture automatique

Sub arretProg()
    'Affichage du temps restant avant fermeture
    userfCourant.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"
                 cmptArret = cmptArret - 1
        End If
    'On décrémente le compteur
   
End Sub

Code UserForm1 :

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
Private Sub Quit_Click()
    Application.Quit
End Sub
 
Private Sub USF2_Click()
    Unload Me
    UserForm2.Show
End Sub
Private Sub UserForm_Initialize()
    'On met le compteur sur 3 min pour le menu principal
    cmptArret = 120
    'on prend le bon usf
    Set userfCourant = Me
 If Start = False Then arretProg: Start = True
    'On lance arretProg
End Sub

[fyejumpy]

Parfait ! c'est pile le résultat que j'attendais !
Merci beaucoup !


Cordialement,
Fyejumpy