Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Urgent une aide pour feuille avec chrono

Urgent une aide pour feuille avec chrono

5 réponses
Avatar
hys56
bonjour, j'ai créé un test pour mes élèves avec ce code ( le test se ferme
au bout du temps imparti et s'enregistre)
MAIS le chrono s'arrête quand on écrit dans une cellule et qu'on n'en sort
pas comment remédier?
l'original vient de http://boisgontierjacques.free.fr/
voici le code dans un module
Dim temps
Sub majHeure()
Sheets("Accueil").[A1] = Sheets("Accueil").[A1] - 1 '
adapter
Sheets("questions1").[A1] = Sheets("Accueil").[A1]
Sheets("questions2").[A1] = Sheets("Accueil").[A1]
If Sheets("Accueil").[A1] = 0 Then
MsgBox "C'est fini"
ActiveWorkbook.Close True
Else
temps = Now + TimeValue("00:00:1")
Application.OnTime temps, "majHeure"
End If
End Sub
Sub démarrer()
[A1] = 30 ' adapter
majHeure
Sheets("questions1").Activate
End Sub
Sub auto_close()
On Error Resume Next
Application.OnTime temps, Procedure:="majHeure", Schedule:=False
End Sub
et le fichier utilisé
http://www.cijoint.fr/cij135896966805.xls

merci de votre précieuse aide.
Signaler un problème avec ce contenu

5 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
FFO
Salut à toi

Une solution peut être est de remplacer la ligne :

temps = Now + TimeValue("00:00:1")

par

temps = Application.Wait(Now + TimeValue("0:00:01"))

L'avantage est que pendant le décompte aucune saisie n'est réalisable, le
décompte ne peut être donc perturbé

Inconvénient peut être est qu'aucune action n'est possible avant la fin du
décompte

A toi de voir




bonjour, j'ai créé un test pour mes élèves avec ce code ( le test se ferme
au bout du temps imparti et s'enregistre)
MAIS le chrono s'arrête quand on écrit dans une cellule et qu'on n'en sort
pas comment remédier?
l'original vient de http://boisgontierjacques.free.fr/
voici le code dans un module
Dim temps
Sub majHeure()
Sheets("Accueil").[A1] = Sheets("Accueil").[A1] - 1 '
adapter
Sheets("questions1").[A1] = Sheets("Accueil").[A1]
Sheets("questions2").[A1] = Sheets("Accueil").[A1]
If Sheets("Accueil").[A1] = 0 Then
MsgBox "C'est fini"
ActiveWorkbook.Close True
Else
temps = Now + TimeValue("00:00:1")
Application.OnTime temps, "majHeure"
End If
End Sub
Sub démarrer()
[A1] = 30 ' adapter
majHeure
Sheets("questions1").Activate
End Sub
Sub auto_close()
On Error Resume Next
Application.OnTime temps, Procedure:="majHeure", Schedule:úlse
End Sub
et le fichier utilisé
http://www.cijoint.fr/cij135896966805.xls

merci de votre précieuse aide.





Avatar
hys56
Bonjour et merci d'avoir tenté de m'aider
dans mon cas il faut écrire dans la cellule et le décompte doit continuer
même si on n'est pas sorti de la cellule
peut-être tester avec le fichier joint
difficile je crois?
"FFO" a écrit dans le message de news:

Salut à toi

Une solution peut être est de remplacer la ligne :

temps = Now + TimeValue("00:00:1")

par

temps = Application.Wait(Now + TimeValue("0:00:01"))

L'avantage est que pendant le décompte aucune saisie n'est réalisable, le
décompte ne peut être donc perturbé

Inconvénient peut être est qu'aucune action n'est possible avant la fin du
décompte

A toi de voir




bonjour, j'ai créé un test pour mes élèves avec ce code ( le test se
ferme
au bout du temps imparti et s'enregistre)
MAIS le chrono s'arrête quand on écrit dans une cellule et qu'on n'en
sort
pas comment remédier?
l'original vient de http://boisgontierjacques.free.fr/
voici le code dans un module
Dim temps
Sub majHeure()
Sheets("Accueil").[A1] = Sheets("Accueil").[A1] - 1 '
adapter
Sheets("questions1").[A1] = Sheets("Accueil").[A1]
Sheets("questions2").[A1] = Sheets("Accueil").[A1]
If Sheets("Accueil").[A1] = 0 Then
MsgBox "C'est fini"
ActiveWorkbook.Close True
Else
temps = Now + TimeValue("00:00:1")
Application.OnTime temps, "majHeure"
End If
End Sub
Sub démarrer()
[A1] = 30 ' adapter
majHeure
Sheets("questions1").Activate
End Sub
Sub auto_close()
On Error Resume Next
Application.OnTime temps, Procedure:="majHeure", Schedule:úlse
End Sub
et le fichier utilisé
http://www.cijoint.fr/cij135896966805.xls

merci de votre précieuse aide.







Avatar
Daniel.C
Bonjour.
Modifie ton code comme suit.
Le décompte est arrêté pendant l'écriture dans la cellule, mais le temps est
pris en compte et réajusté à la validation (il faut mettre les cellules A1
au format "nombre" entier) :

Dim temps, Deb, Duree
Sub majHeure()
Var = Second(Deb + Duree - Now)
Sheets("Accueil").[A1] = Second(Deb + Duree - Now) ' adapter
Sheets("questions1").[A1] = Sheets("Accueil").[A1]
Sheets("questions2").[A1] = Sheets("Accueil").[A1]
If Sheets("Accueil").[A1] <= 0 Then
MsgBox "C'est fini"
ActiveWorkbook.Close True
Else
temps = Now + TimeValue("00:00:1")
Application.OnTime temps, "majHeure"
End If
End Sub
Sub démarrer()
[A1] = 30 ' adapter
Duree = TimeSerial(0, 0, [A1])
Deb = Now
majHeure
Sheets("questions1").Activate
End Sub
Sub auto_close()
On Error Resume Next
Application.OnTime temps, Procedure:="majHeure", Schedule:úlse
End Sub

Cordialement.
Daniel
"hys56" a écrit dans le message de news:

bonjour, j'ai créé un test pour mes élèves avec ce code ( le test se ferme
au bout du temps imparti et s'enregistre)
MAIS le chrono s'arrête quand on écrit dans une cellule et qu'on n'en
sort pas comment remédier?
l'original vient de http://boisgontierjacques.free.fr/
voici le code dans un module
Dim temps
Sub majHeure()
Sheets("Accueil").[A1] = Sheets("Accueil").[A1] - 1 '
adapter
Sheets("questions1").[A1] = Sheets("Accueil").[A1]
Sheets("questions2").[A1] = Sheets("Accueil").[A1]
If Sheets("Accueil").[A1] = 0 Then
MsgBox "C'est fini"
ActiveWorkbook.Close True
Else
temps = Now + TimeValue("00:00:1")
Application.OnTime temps, "majHeure"
End If
End Sub
Sub démarrer()
[A1] = 30 ' adapter
majHeure
Sheets("questions1").Activate
End Sub
Sub auto_close()
On Error Resume Next
Application.OnTime temps, Procedure:="majHeure", Schedule:úlse
End Sub
et le fichier utilisé
http://www.cijoint.fr/cij135896966805.xls

merci de votre précieuse aide.



Avatar
hys56
bonjour et très grand merci pour ce déblocage ça fonctionne parfaitement
bonne soirée
"Daniel.C" a écrit dans le message de news:

Bonjour.
Modifie ton code comme suit.
Le décompte est arrêté pendant l'écriture dans la cellule, mais le temps
est pris en compte et réajusté à la validation (il faut mettre les
cellules A1 au format "nombre" entier) :

Dim temps, Deb, Duree
Sub majHeure()
Var = Second(Deb + Duree - Now)
Sheets("Accueil").[A1] = Second(Deb + Duree - Now) ' adapter
Sheets("questions1").[A1] = Sheets("Accueil").[A1]
Sheets("questions2").[A1] = Sheets("Accueil").[A1]
If Sheets("Accueil").[A1] <= 0 Then
MsgBox "C'est fini"
ActiveWorkbook.Close True
Else
temps = Now + TimeValue("00:00:1")
Application.OnTime temps, "majHeure"
End If
End Sub
Sub démarrer()
[A1] = 30 ' adapter
Duree = TimeSerial(0, 0, [A1])
Deb = Now
majHeure
Sheets("questions1").Activate
End Sub
Sub auto_close()
On Error Resume Next
Application.OnTime temps, Procedure:="majHeure", Schedule:úlse
End Sub

Cordialement.
Daniel
"hys56" a écrit dans le message de news:

bonjour, j'ai créé un test pour mes élèves avec ce code ( le test se
ferme au bout du temps imparti et s'enregistre)
MAIS le chrono s'arrête quand on écrit dans une cellule et qu'on n'en
sort pas comment remédier?
l'original vient de http://boisgontierjacques.free.fr/
voici le code dans un module
Dim temps
Sub majHeure()
Sheets("Accueil").[A1] = Sheets("Accueil").[A1] - 1 '
adapter
Sheets("questions1").[A1] = Sheets("Accueil").[A1]
Sheets("questions2").[A1] = Sheets("Accueil").[A1]
If Sheets("Accueil").[A1] = 0 Then
MsgBox "C'est fini"
ActiveWorkbook.Close True
Else
temps = Now + TimeValue("00:00:1")
Application.OnTime temps, "majHeure"
End If
End Sub
Sub démarrer()
[A1] = 30 ' adapter
majHeure
Sheets("questions1").Activate
End Sub
Sub auto_close()
On Error Resume Next
Application.OnTime temps, Procedure:="majHeure", Schedule:úlse
End Sub
et le fichier utilisé
http://www.cijoint.fr/cij135896966805.xls

merci de votre précieuse aide.







Avatar
hys56
re mais nouveau petit pb je n'arrive pas à entrer un temps supérieur à 59
sec.commnt faire?
"Daniel.C" a écrit dans le message de news:

Bonjour.
Modifie ton code comme suit.
Le décompte est arrêté pendant l'écriture dans la cellule, mais le temps
est pris en compte et réajusté à la validation (il faut mettre les
cellules A1 au format "nombre" entier) :

Dim temps, Deb, Duree
Sub majHeure()
Var = Second(Deb + Duree - Now)
Sheets("Accueil").[A1] = Second(Deb + Duree - Now) ' adapter
Sheets("questions1").[A1] = Sheets("Accueil").[A1]
Sheets("questions2").[A1] = Sheets("Accueil").[A1]
If Sheets("Accueil").[A1] <= 0 Then
MsgBox "C'est fini"
ActiveWorkbook.Close True
Else
temps = Now + TimeValue("00:00:1")
Application.OnTime temps, "majHeure"
End If
End Sub
Sub démarrer()
[A1] = 30 ' adapter
Duree = TimeSerial(0, 0, [A1])
Deb = Now
majHeure
Sheets("questions1").Activate
End Sub
Sub auto_close()
On Error Resume Next
Application.OnTime temps, Procedure:="majHeure", Schedule:úlse
End Sub

Cordialement.
Daniel
"hys56" a écrit dans le message de news:

bonjour, j'ai créé un test pour mes élèves avec ce code ( le test se
ferme au bout du temps imparti et s'enregistre)
MAIS le chrono s'arrête quand on écrit dans une cellule et qu'on n'en
sort pas comment remédier?
l'original vient de http://boisgontierjacques.free.fr/
voici le code dans un module
Dim temps
Sub majHeure()
Sheets("Accueil").[A1] = Sheets("Accueil").[A1] - 1 '
adapter
Sheets("questions1").[A1] = Sheets("Accueil").[A1]
Sheets("questions2").[A1] = Sheets("Accueil").[A1]
If Sheets("Accueil").[A1] = 0 Then
MsgBox "C'est fini"
ActiveWorkbook.Close True
Else
temps = Now + TimeValue("00:00:1")
Application.OnTime temps, "majHeure"
End If
End Sub
Sub démarrer()
[A1] = 30 ' adapter
majHeure
Sheets("questions1").Activate
End Sub
Sub auto_close()
On Error Resume Next
Application.OnTime temps, Procedure:="majHeure", Schedule:úlse
End Sub
et le fichier utilisé
http://www.cijoint.fr/cij135896966805.xls

merci de votre précieuse aide.