XL 2013 modifier le timevalue via un userform

submarine22 · 11 Janvier 2022

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 · 11 Janvier 2022

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

Dranreb · 11 Janvier 2022

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

submarine22 · 13 Janvier 2022

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

XL 2013 modifier le timevalue via un userform

submarine22

XLDnaute Junior

Bernard_XLD

XLDnaute Barbatruc

Dranreb

XLDnaute Barbatruc

submarine22

XLDnaute Junior

Discussions similaires