Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Saisie en temps limité dans un userform

  • Initiateur de la discussion Initiateur de la discussion papyjc
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

P

papyjc

Guest
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
 
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.
 
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
 
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
 
Re : Saisie en temps limité dans un userform

Bonjour.
Notez peut être dans une variable l'heure prévue à déprogrammer:
VB:
Dim Moment as Date
...
If Moment > Now Then Application.OnTime Moment, "Fin", , False 
Moment = Now + 3 / 1440: Application.OnTime Moment, "Fin", , True
À +
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

G
Réponses
4
Affichages
667
Gubake
G
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…