XL 2013 modifier le timevalue via un userform

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
 

Discussions similaires

Statistiques des forums

Discussions
294 442
Messages
1 938 528
Membres
188 906
dernier inscrit
fars