Microsoft 365 Modulation Time dans VBA

JBL07

XLDnaute Occasionnel
Bonjour le Forum !

Voici un petit code, qui détermine le temps ( ici 10 minutes 30' ) au-delà duquel mon classeur Excel sans activité va se fermer
J'aimerais que depuis une cellule dans le classeur ( Disons dans la Feuille "Ecritures" - Cellule G7 ), je puisse changer la durée sans retourner dans le VBA
Donc en gros que dans mon code, la durée devienne un truc genre "=Ecritures!G7"

Est-ce possible ?
Merci de votre aide

Sub Début()

Activity0 = Now + TimeValue("00:10:30")

Application.OnTime Activity0, "Fermeture"

End Sub
 
Solution
Bonjour le Forum !

Voici un petit code, qui détermine le temps ( ici 10 minutes 30' ) au-delà duquel mon classeur Excel sans activité va se fermer
J'aimerais que depuis une cellule dans le classeur ( Disons dans la Feuille "Ecritures" - Cellule G7 ), je puisse changer la durée sans retourner dans le VBA
Donc en gros que dans mon code, la durée devienne un truc genre "=Ecritures!G7"

Est-ce possible ?
Merci de votre aide

Sub Début()

Activity0 = Now + TimeValue("00:10:30")

Application.OnTime Activity0, "Fermeture"

End Sub
Bonjour,
Essaye
VB:
Activity0 = Now + TimeValue(CDate(Sheets("Ecritures").[g7].Value))
G7 étant sous la forme 00:00:00

Jacky67

XLDnaute Barbatruc
Bonjour le Forum !

Voici un petit code, qui détermine le temps ( ici 10 minutes 30' ) au-delà duquel mon classeur Excel sans activité va se fermer
J'aimerais que depuis une cellule dans le classeur ( Disons dans la Feuille "Ecritures" - Cellule G7 ), je puisse changer la durée sans retourner dans le VBA
Donc en gros que dans mon code, la durée devienne un truc genre "=Ecritures!G7"

Est-ce possible ?
Merci de votre aide

Sub Début()

Activity0 = Now + TimeValue("00:10:30")

Application.OnTime Activity0, "Fermeture"

End Sub
Bonjour,
Essaye
VB:
Activity0 = Now + TimeValue(CDate(Sheets("Ecritures").[g7].Value))
G7 étant sous la forme 00:00:00
 

Discussions similaires