Saisie en temps limité dans un userform

[papyjc]

Bonjour à tous

je cale sur le problème suivant :

j'ai une userform chargée et affichée, contenant des zones de texte devant accueillir des réponses de l'utilisateur

Comment faire pour limiter le temps accordé à celui-ci pour remplir ces zones de texte (exemple : 3 mn en tout) ?

Merci d'avance de votre aide

Jean-Claude

 

[Oranger]

Re : Saisie en temps limité dans un userform

Bonjour,

Je pense que la fonction OnTime répondrait à ton problème. Au bout de 3 minutes tu pourrais fermer le UserForm ou afficher un message à ta convenance.

 

[papyjc]

Re : Saisie en temps limité dans un userform

OK MErci mais j'ai déjà essayé le code suivant et ça ne marche pas (où faut-il mettre ce code exactement ?)

application.ontime now+timevalue("00:03:00"),"fin"

sub fin()
userform.hide
end sub

 

[Dranreb]

Re : Saisie en temps limité dans un userform

Bonsoir
Il est peut être nécessaire que la propriété ShowModal du userform soit à False pour que ça puisse marcher.
Cordialement.

 

[papyjc]

Re : Saisie en temps limité dans un userform

Re bonjour

merci de vos réponses. En consultant le fichier Classeur.zip de Delahoche (trouvé ci-dessous dans les anciennes discussions similaires) j'ai résolu mon problème à un détail près : comment annuler la programmation d'un Ontime ?

Voici mon exemple

Application.ontime now + timevalue("00:03:00"),"fin" qui exécute la procédure "fin" au bout de 3 mn

Je n'arrive pas coder son annulation (on suppose que l'utilisateur a trouvé une réponse et qu'il ne veut pas attendre la fin des 3mn)

J'ai essayé selon l'aide Excel le code Application.ontime now + timevalue("00:03:00"),"fin",,false mais ça ne marche pas

Merci encore d'avance de votre aide

 

[Dranreb]

Re : Saisie en temps limité dans un userform

Bonjour.
Notez peut être dans une variable l'heure prévue à déprogrammer:

Dim Moment as Date
...
If Moment > Now Then Application.OnTime Moment, "Fin", , False 
Moment = Now + 3 / 1440: Application.OnTime Moment, "Fin", , True

À +