Discussion :

[chefsun]

Bonjour,

je fais sur une feuille excel l'affichage de questionnaire en qcm, il y a 13 questionnaires qui sont sous la forme de userform.
il faut quand je lance le premier questionnaire et 1 chrono se met en route et arrivé au bout de x temps, ma fenetre se ferme (sachant que 1 questionnaire a 100 userform) et que cela me desactive mes bouton et me demande 1 mot de passe pour passer au suivant.
je suis bloqué pour se chrono je sais qu'il faut appliqué application.ontime
mais je ne vois pas du tout comment le mettre en place.
pouvez-vous m'aider svp

Voyant pas de reponse je mets mon fichier a dispo, pour le moment seul le bouton meca permet d'afficher des question et je voudrais que qd je clic sur le bouton meca un chrono se met en route et que au bout de x tps ma fentre en couurs se ferme

[pgz]

Bonjour.

Ta question n'est pas très claire parce que tu parles de userform et que je n'en vois pas dans ton classeur.
Du coup, on ne voit pas quel est l'objet à ouvrir, et à refermer au bout d'un certain temps.
Sinon, c'est bien probablement une méthode OnTime qu'il faudra utiliser.

Cordialement,

PGZ

[chefsun]

je remets mon fichiers qui ouvre bien les questions
j'ai commencé à mettre un application.ontime mais pour le moment elle fonctionne que pour la première question en userform et moi je veux que se soit pour n'importe quel question

[chefsun]

j'ai trouvé sur mon bouton meca j'ai mis

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Runwhen = TimeValue(Now + TimeSerial(0, 0, 10))
 
Application.OnTime Runwhen, "FERMETURe"
 
sur un module j'ai déclaré
Public Runwhen As Date
 
ma maco fermeture contient se texte
If MECA1.Visible = True Then
Unload MECA1
End If
If MECA2.Visible = True Then
Unload MECA2
End If
If MECA3.Visible = True Then
Unload MECA3
End If
If MECA4.Visible = True Then
Unload MECA4
End If
MsgBox ("temps impartie terminé")
Do While InputBox("saisir mot de passe questionnaire suivant ") <> "toto"
Loop