SVP encore une petite aide pour feuille avec chrono
2 réponses
hys56
bonsoir j'ai déjà reçu une aide pour ce pb voir message plus bas mais il
reste un pb je n'arrive pas à entrer un temps au delà de 59 secondes comment
faire?
je rappelle le code proposé :
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:=False
End Sub
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
Daniel.C
Il faudra encore adapter si tu dépasses l'heure :
Dim temps, Deb, Duree Sub majHeure() Sheets("Accueil").[A1] = Minute(Deb + Duree - Now) * 60 + _ 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] = 300 ' 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
Daniel "hys56" a écrit dans le message de news:
bonsoir j'ai déjà reçu une aide pour ce pb voir message plus bas mais il reste un pb je n'arrive pas à entrer un temps au delà de 59 secondes comment faire? je rappelle le code proposé : 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
merci
Il faudra encore adapter si tu dépasses l'heure :
Dim temps, Deb, Duree
Sub majHeure()
Sheets("Accueil").[A1] = Minute(Deb + Duree - Now) * 60 + _
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] = 300 ' 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
Daniel
"hys56" <dhoyois@hotmail.com> a écrit dans le message de news:
lJWdnQyAa_IbnBjaRVnyvgA@giganews.com...
bonsoir j'ai déjà reçu une aide pour ce pb voir message plus bas mais il
reste un pb je n'arrive pas à entrer un temps au delà de 59 secondes
comment faire?
je rappelle le code proposé :
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
Dim temps, Deb, Duree Sub majHeure() Sheets("Accueil").[A1] = Minute(Deb + Duree - Now) * 60 + _ 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] = 300 ' 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
Daniel "hys56" a écrit dans le message de news:
bonsoir j'ai déjà reçu une aide pour ce pb voir message plus bas mais il reste un pb je n'arrive pas à entrer un temps au delà de 59 secondes comment faire? je rappelle le code proposé : 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
merci
hys56
rebonsoir voilà je crois que ça fonctionne j'ai en fait besoin de donner au moins 4 à 5 minutes( donc 240 à 300 secondes) par test il faut que l'élève ait le temps de réfléchir ... encore merci et bonne soirée "Daniel.C" a écrit dans le message de news:
Il faudra encore adapter si tu dépasses l'heure :
Dim temps, Deb, Duree Sub majHeure() Sheets("Accueil").[A1] = Minute(Deb + Duree - Now) * 60 + _ 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] = 300 ' 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
Daniel "hys56" a écrit dans le message de news:
bonsoir j'ai déjà reçu une aide pour ce pb voir message plus bas mais il reste un pb je n'arrive pas à entrer un temps au delà de 59 secondes comment faire? je rappelle le code proposé : 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
merci
rebonsoir voilà je crois que ça fonctionne j'ai en fait besoin de donner au
moins 4 à 5 minutes( donc 240 à 300 secondes) par test
il faut que l'élève ait le temps de réfléchir ...
encore merci et bonne soirée
"Daniel.C" <dZZZcolardelle@free.fr> a écrit dans le message de news:
OUtRbbuUIHA.1132@TK2MSFTNGP06.phx.gbl...
Il faudra encore adapter si tu dépasses l'heure :
Dim temps, Deb, Duree
Sub majHeure()
Sheets("Accueil").[A1] = Minute(Deb + Duree - Now) * 60 + _
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] = 300 ' 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
Daniel
"hys56" <dhoyois@hotmail.com> a écrit dans le message de news:
lJWdnQyAa_IbnBjaRVnyvgA@giganews.com...
bonsoir j'ai déjà reçu une aide pour ce pb voir message plus bas mais il
reste un pb je n'arrive pas à entrer un temps au delà de 59 secondes
comment faire?
je rappelle le code proposé :
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
rebonsoir voilà je crois que ça fonctionne j'ai en fait besoin de donner au moins 4 à 5 minutes( donc 240 à 300 secondes) par test il faut que l'élève ait le temps de réfléchir ... encore merci et bonne soirée "Daniel.C" a écrit dans le message de news:
Il faudra encore adapter si tu dépasses l'heure :
Dim temps, Deb, Duree Sub majHeure() Sheets("Accueil").[A1] = Minute(Deb + Duree - Now) * 60 + _ 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] = 300 ' 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
Daniel "hys56" a écrit dans le message de news:
bonsoir j'ai déjà reçu une aide pour ce pb voir message plus bas mais il reste un pb je n'arrive pas à entrer un temps au delà de 59 secondes comment faire? je rappelle le code proposé : 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