chrono

[justine]

bonjour tout le monde
je suis entrain de faire une petite application, un quizz et je bloque sur une petite chose.
j'espere que quelqu'un m'apportera une solution

voila mon souci
dans une userform, j'aimerai qu'il y ait un compte a rebours en temps reel.
si le joueur n'a pas validé sa reponse avant la minute écoulée, le quizz passe a une autre question
mais comment faire ce chrono?
merci a vous
j'en profite pour vous envoyer un brin de soleil de mon ile.

 

[Pierrot93]

Re : chrono

Bonsoir Justine,

un petit code ci dessous, un peu brouillon du reste, nécessite un "Label" et un "commandbutton" sur ton USF, si cela peut t'aider dans ton projet. Sans plus de détails difficile de t'orienter plus... enfin pour moi...

A placer dans le module de ton USF.

Option Explicit
Private i As Byte
Private Sub CommandButton1_Click()
MsgBox "réponse ok"
i = 1
End Sub
Private Sub UserForm_Activate()
Dim t As Single
Label1.Caption = "Question " & i
t = Timer
Do While Timer < t + 10
    DoEvents
Loop
Label1.Caption = "Question " & i
i = i + 1
UserForm_Activate
End Sub
Private Sub UserForm_Initialize()
i = 1
End Sub

bonne soirée
@+

 

[justine]

Re : chrono

re,
pierrot93 bonsoir
merci pour ton aide, mais j'ai deja essayé cette solution, sans succes
j'essaie de developper plus l'application et je vous envoie ca en piece-jointe
merci encore

 

[wilfried_42]

Re : chrono

Bonjour justine, pierrot

une finchier joint pour essai

une macro sur fermeture du classeur pour arreter le chono
une macro liée au bouton
un macro dans le module

Bloqué à 15 secondes pour les tests

 

[ZZR09]

Re : chrono

Bonjour Justine, Pierrot_93, Wilfried_42, le forum

Wilfried_42: j'ai essayé ton compte à rebours mais chez moi (Excel 2003), il s'emballe : la première fois c'est nikkel ensuite il n'affiche qu'une seconde sur 2 ou trois mais à chaque seconde!

à la fin il n'affiche plus que des 2 et des 0 en une fraction de seconde.
étant donné que je ne comprends pas bien ton application ontime ...

et cette ligne : Compteur=15: Range("A1")=compteur
je ne sais pas à quoi correspond le":" cela permet-il de ne pas passer à la ligne?

comme ça plantait, j'ai rajouté un bouton d'arrêt avec un switch boolean.

Merci

 

[GIBI]

Re : chrono

Bonsoir,

voici un système qui doit répondre au besoin (boucle avec temporisation sans blocage d'excel)


Dim suite As Boolean 'variable globale

Sub a()

' exemple de procédure qui écrit une cellule toutes les 5"

For l = 1 To 10

Cells(l, 1) = l

Application.OnTime Now + TimeValue("00:00:05"), "Fin"

suite = True

While suite ' boucle d'attente
DoEvents
Wend


Next

End Sub


Bon courage
Sub fin()
suite = False
End Sub



Bon courage

GIBI