Compte à rebour dans un userform

[mj95]

Bonjour,

J'ai 2 userforms dans lesquelles je souhaiterai que lorsqu'elles sont restées trop longtemps ( = 5 minutes) ouvertes / activées, le Fichier excel se ferme entièrement.

Cependant, j'aimerais qu'un message s'affiche avant la fermeture du genre : "L'application est restée trop longtps inactive, arrêt dans : " placer un compte a rebour de 10 secondes et placer un bouton qui permet d'annuler au cas où l'utilisateur ne voudrait pas fermer l'appli.

Mon niveau macro / excel étant peu élevé, j'ai trouver plein de choses sur fermeture après un temps donné, fermeture après inactivité et compte à rebour, mais je n'arrive pas a faire la corrélation entre chaque élément et le faire fonctionner dans mon outil.

Je ne peux pas transmettre mon fichier car professionnel.

Si vous pouviez m'aider ...

 

[Pierrot93]

Re : Compte à rebour dans un userform

Bonjour,

regarde peut être ce lien, espérant qu'il puisse t'aider...
https://www.excel-downloads.com/thr...-de-louverture-de-userform-temporaire.174042/

bonne journée
@+

 

[mj95]

Re : Compte à rebour dans un userform

OK je regarde

 

[mj95]

Re : Compte à rebour dans un userform

Bon j'ai réussi a faire quelque chose, mon problème c'est que le compte à rebour de fermeture se déclenche au bout d'un certain temps alors que j'aimerais qu'il se déclenche lorsqu'il n'y a aucune activité dans la macro (pas de mouvement de souris ni clavier ) au bout d'un certain temps.

Quand je rentre le code suivant :

Application.Wait Now + TimeValue("00:00:03")
UserForm1.Show ' fenêtre du compte à rebour

dans UserForm_Mousemove(), rien ne se passe (pas d'ouverture de mon compte a rebour), alors que je ne touche à rien.
et lorsque je le mets dans KeyPress(), si je fais une saisie dans une textbox de mon usf, avant que le compte à rebour ne s'ouvre et que j'arrete de saisir, le compte à rebour ne s'ouvrira pas.

Comment puis-je procéder ?