Bonjour a tous, je cherche a faire un chronometre qui stoppe l?application dès que le temps max est atteint. Je lance une série de questions et l?utilisateur doit y répondre le plus rapidement possible. Dès que les 15 secondes sont atteints je souhaite que le programme s?arrête, même s?il reste des questions.

Actuellement j?ai fait un programme mais je n?arrive pas a qu?il arrête l?application

Merci d?avance pour votre aide...

Voila ce que j?ai fait :

'debut = Timer
'fin = 15
'Do While Timer < debut + fin
'Range("e6").Value = Timer
      'Là j?ai placé plein de questions
 question1
 question2...
'DoEvents
'Loop

Si je pouvais aussi afficher le temps en direct se serait un plus très intéressant. Merci d?avance

Réponse acceptée !

Tu peux facilement affficher le temps restant dans un label en faisant ceci

label1.caption=(debut+fin)-timer 'a placer dans ta boucle

Quand tu parle d'arrèter l'apllication que veux tu faire exactement? La quitter? Si c'est le cas place l'instruction END a l'endroit ou tu veux que le programme se ferme.

Réponse acceptée !

Snake57 : End = VB (désolé)

en VBA, c'est Exit Sub. (donc après le Loop, je suppose) => place aussi un MsgBox pour signaler aux utilisateurs que le temps est écoulé)

Sinon, tu peux, au lieu d'arreter la procédure, en appeler une autre avec l'instruction Call.

@++

  Mortalino 
Le Mystérieux Chevalier "Provençal, le Gaulois"
N'oubliez pas de lire le  règlement

Réponse acceptée !
Oui Mortalino tu as raison. J'ai répondu trop vite.

Réponse acceptée !

Pas de problème !

@++

  Mortalino 
Le Mystérieux Chevalier "Provençal, le Gaulois"
N'oubliez pas de lire le règlement