bonjour je me permets à nouveau de demander une aide pour une feuille à
propos de laquelle j'ai déjà reçu des modifications : c'est un support pour
effectuer un test type QCM avec chrono voici le code
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:=False
End Sub
lorsqu'on coche une case réponse et qu'on n'en sort pas le chrono semble
être arrêté mais en fait il tourne en fond et se rajuste au moment où l'on
quitte la cellule
MAIS pb lorsqu'on reste dans la cellule et que le temps imparti est terminé,
le fichier ne se ferme pas et le chrono repart en sens inverse.Y a t il une
solution? (il suffirait bien sûr de signaler à l'utilisateur de quitter la
cellule à chaque fois) mais on est vite distrait merci d'une aide
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
Bonjour. Au temps pour moi. Modifie la macro majHeure comme suit :
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 Deb + Duree - Now <= 0 Then Sheets("Accueil").[A1] = 0 Sheets("questions1").[A1] = 0 Sheets("questions2").[A1] = 0 MsgBox "C'est fini" ActiveWorkbook.Close True Else temps = Now + TimeValue("00:00:1") Application.OnTime temps, "majHeure" End If End Sub
Daniel "hys56" a écrit dans le message de news:
bonjour je me permets à nouveau de demander une aide pour une feuille à propos de laquelle j'ai déjà reçu des modifications : c'est un support pour effectuer un test type QCM avec chrono voici le code 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
lorsqu'on coche une case réponse et qu'on n'en sort pas le chrono semble être arrêté mais en fait il tourne en fond et se rajuste au moment où l'on quitte la cellule MAIS pb lorsqu'on reste dans la cellule et que le temps imparti est terminé, le fichier ne se ferme pas et le chrono repart en sens inverse.Y a t il une solution? (il suffirait bien sûr de signaler à l'utilisateur de quitter la cellule à chaque fois) mais on est vite distrait merci d'une aide
Bonjour.
Au temps pour moi. Modifie la macro majHeure comme suit :
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 Deb + Duree - Now <= 0 Then
Sheets("Accueil").[A1] = 0
Sheets("questions1").[A1] = 0
Sheets("questions2").[A1] = 0
MsgBox "C'est fini"
ActiveWorkbook.Close True
Else
temps = Now + TimeValue("00:00:1")
Application.OnTime temps, "majHeure"
End If
End Sub
Daniel
"hys56" <dhoyois@hotmail.com> a écrit dans le message de news:
ZJadnexafuY2-BbanZ2dnUVZ8v6dnZ2d@giganews.com...
bonjour je me permets à nouveau de demander une aide pour une feuille à
propos de laquelle j'ai déjà reçu des modifications : c'est un support
pour effectuer un test type QCM avec chrono voici le code
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
lorsqu'on coche une case réponse et qu'on n'en sort pas le chrono semble
être arrêté mais en fait il tourne en fond et se rajuste au moment où l'on
quitte la cellule
MAIS pb lorsqu'on reste dans la cellule et que le temps imparti est
terminé, le fichier ne se ferme pas et le chrono repart en sens inverse.Y
a t il une solution? (il suffirait bien sûr de signaler à l'utilisateur de
quitter la cellule à chaque fois) mais on est vite distrait merci d'une
aide
Bonjour. Au temps pour moi. Modifie la macro majHeure comme suit :
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 Deb + Duree - Now <= 0 Then Sheets("Accueil").[A1] = 0 Sheets("questions1").[A1] = 0 Sheets("questions2").[A1] = 0 MsgBox "C'est fini" ActiveWorkbook.Close True Else temps = Now + TimeValue("00:00:1") Application.OnTime temps, "majHeure" End If End Sub
Daniel "hys56" a écrit dans le message de news:
bonjour je me permets à nouveau de demander une aide pour une feuille à propos de laquelle j'ai déjà reçu des modifications : c'est un support pour effectuer un test type QCM avec chrono voici le code 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
lorsqu'on coche une case réponse et qu'on n'en sort pas le chrono semble être arrêté mais en fait il tourne en fond et se rajuste au moment où l'on quitte la cellule MAIS pb lorsqu'on reste dans la cellule et que le temps imparti est terminé, le fichier ne se ferme pas et le chrono repart en sens inverse.Y a t il une solution? (il suffirait bien sûr de signaler à l'utilisateur de quitter la cellule à chaque fois) mais on est vite distrait merci d'une aide
hys56
bonsoir , à nouveau sauvé par votre aide efficace merci beaucoup et bonne soirée "Daniel.C" a écrit dans le message de news: eSHj%
Bonjour. Au temps pour moi. Modifie la macro majHeure comme suit :
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 Deb + Duree - Now <= 0 Then Sheets("Accueil").[A1] = 0 Sheets("questions1").[A1] = 0 Sheets("questions2").[A1] = 0 MsgBox "C'est fini" ActiveWorkbook.Close True Else temps = Now + TimeValue("00:00:1") Application.OnTime temps, "majHeure" End If End Sub
Daniel "hys56" a écrit dans le message de news:
bonjour je me permets à nouveau de demander une aide pour une feuille à propos de laquelle j'ai déjà reçu des modifications : c'est un support pour effectuer un test type QCM avec chrono voici le code 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
lorsqu'on coche une case réponse et qu'on n'en sort pas le chrono semble être arrêté mais en fait il tourne en fond et se rajuste au moment où l'on quitte la cellule MAIS pb lorsqu'on reste dans la cellule et que le temps imparti est terminé, le fichier ne se ferme pas et le chrono repart en sens inverse.Y a t il une solution? (il suffirait bien sûr de signaler à l'utilisateur de quitter la cellule à chaque fois) mais on est vite distrait merci d'une aide
bonsoir , à nouveau sauvé par votre aide efficace merci beaucoup et bonne
soirée
"Daniel.C" <dZZZcolardelle@free.fr> a écrit dans le message de news:
eSHj%23orVIHA.5300@TK2MSFTNGP03.phx.gbl...
Bonjour.
Au temps pour moi. Modifie la macro majHeure comme suit :
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 Deb + Duree - Now <= 0 Then
Sheets("Accueil").[A1] = 0
Sheets("questions1").[A1] = 0
Sheets("questions2").[A1] = 0
MsgBox "C'est fini"
ActiveWorkbook.Close True
Else
temps = Now + TimeValue("00:00:1")
Application.OnTime temps, "majHeure"
End If
End Sub
Daniel
"hys56" <dhoyois@hotmail.com> a écrit dans le message de news:
ZJadnexafuY2-BbanZ2dnUVZ8v6dnZ2d@giganews.com...
bonjour je me permets à nouveau de demander une aide pour une feuille à
propos de laquelle j'ai déjà reçu des modifications : c'est un support
pour effectuer un test type QCM avec chrono voici le code
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
lorsqu'on coche une case réponse et qu'on n'en sort pas le chrono semble
être arrêté mais en fait il tourne en fond et se rajuste au moment où
l'on quitte la cellule
MAIS pb lorsqu'on reste dans la cellule et que le temps imparti est
terminé, le fichier ne se ferme pas et le chrono repart en sens inverse.Y
a t il une solution? (il suffirait bien sûr de signaler à l'utilisateur
de quitter la cellule à chaque fois) mais on est vite distrait merci
d'une aide
bonsoir , à nouveau sauvé par votre aide efficace merci beaucoup et bonne soirée "Daniel.C" a écrit dans le message de news: eSHj%
Bonjour. Au temps pour moi. Modifie la macro majHeure comme suit :
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 Deb + Duree - Now <= 0 Then Sheets("Accueil").[A1] = 0 Sheets("questions1").[A1] = 0 Sheets("questions2").[A1] = 0 MsgBox "C'est fini" ActiveWorkbook.Close True Else temps = Now + TimeValue("00:00:1") Application.OnTime temps, "majHeure" End If End Sub
Daniel "hys56" a écrit dans le message de news:
bonjour je me permets à nouveau de demander une aide pour une feuille à propos de laquelle j'ai déjà reçu des modifications : c'est un support pour effectuer un test type QCM avec chrono voici le code 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
lorsqu'on coche une case réponse et qu'on n'en sort pas le chrono semble être arrêté mais en fait il tourne en fond et se rajuste au moment où l'on quitte la cellule MAIS pb lorsqu'on reste dans la cellule et que le temps imparti est terminé, le fichier ne se ferme pas et le chrono repart en sens inverse.Y a t il une solution? (il suffirait bien sûr de signaler à l'utilisateur de quitter la cellule à chaque fois) mais on est vite distrait merci d'une aide