Option ExplicitDim
DELAI As Date
Public
HeureFin As Date
------------------------------------------------------------------------------
Private Sub
Workbook_Open()
DELAI = "00:00:20"
HeureFin = Now() + DELAI
Feuil1.[A1] = Now
Feuil1.[A2] = HeureFin
Application.OnTime HeureFin, "fermer"
End Sub
------------------------------------------------------------------------------
Private Sub
Workbook_SheetActivate(ByVal
Sh As Object)
On Error Resume Next
'Annule l'ordre de fermeture précédant
Application.OnTime EarliestTime:=HeureFin, Procedure:="fermer", Schedule:=False
On Error GoTo 0
HeureFin = Now() + DELAI
Feuil1.[A2] = HeureFin
Application.OnTime HeureFin, "fermer"
End Sub
------------------------------------------------------------------------------
Private Sub
Workbook_SheetChange(ByVal
Sh As Object, ByVal
Target As
Range)
If
Target.Address <> "$A$1" And Target.Address <> "$A$2" Then
On Error Resume Next
'Annule l'odre de fermeture précédant
Application.OnTime EarliestTime:=HeureFin, Procedure:="fermer", Schedule:=False
On Error GoTo 0
HeureFin = Now() + DELAI
Feuil1.[A2] = HeureFin
Application.OnTime HeureFin, "fermer"
End If
End Sub
------------------------------------------------------------------------------
Private Sub
Workbook_SheetSelectionChange(ByVal
Sh As Object, ByVal
Target As
Range)
On Error Resume Next
'Annule l'odre de fermeture précédant
Application.OnTime EarliestTime:=HeureFin, Procedure:="fermer", Schedule:=False
On Error GoTo 0
HeureFin = Now() + DELAI
Feuil1.[A2] = HeureFin
Application.OnTime HeureFin, "fermer"
End Sub