Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11

SVP encore une petite aide pour feuille avec chrono

2 réponses
Avatar
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

merci

2 réponses

Avatar
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



Avatar
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