XL 2013 modifier le timevalue via un userform

[submarine22]

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

 

[Bernard_XLD]

Bonjour submarine22, le forum

Pourquoi un Userform ? plus simple avec une InputBox.

Bien cordialement, @+

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

 

[Dranreb]

Bonsoir.
If faut exécuter un If Activity0 > 0 Then Application.OnTime Activity0, "Fermeture", Schedule:=False
avant de reporter le truc.

 

[submarine22]

Bonsoir,
Merci à vous pour ces infos.
Bonne fin de soirée