SVP encore une petite aide pour feuille avec chrono

Le
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:úlse
End Sub

merci
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Daniel.C
Le #5123701
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"
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
Le #5123681
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"
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"
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







Publicité
Poster une réponse
Anonyme