XL 2013 modifier le timevalue via un userform

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 !

submarine22

XLDnaute Junior
Bonjour à tous et une très bonne année
j'ai un programme qui tourne avec un timer qui permet de fermer automatiquement mon classeur en cas d inactivité, mais je voudrais savoir si il est possible via un user form de modifier ce temps?
voici le bout de code en jaune sur lequel je voudrais agir:
Option Explicit
Public Activity0 As Date
Sub Début()
Activity0 = Now + TimeValue("01:00:00")
Application.OnTime Activity0, "Fermeture"

End Sub

Merci par avance de vos réponses
 
Bonjour submarine22, le forum

Pourquoi un Userform ? plus simple avec une InputBox.

Bien cordialement, @+
VB:
Option Explicit
Public Activity0 As Date
Sub Début()
Dim Delai_Ferme$
Delai_Ferme = Application.InputBox(Prompt:="Entrez un délai de fermeture en cas d'inactivité", Title:="Définition du délai", Default:="01:00:00", Type:=2)
If IsDate(Delai_Ferme) Then
    Activity0 = Now + TimeValue(Delai_Ferme)
    Application.OnTime Activity0, "Fermeture"
End If
End Sub
 
- 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

Discussions similaires

Réponses
9
Affichages
141
Retour