XL 2016 Exécution automatique d'un macro

[badraaliou4]

J'ai mis un code lorsque je suis dans la feuille "liste" qui me permettra de retourner auto. à la feuille "accueil" après 10s. Ci-dessous mon code.

Est-il possible de l'arrêter si la feuille "liste" n'est plus activé?
Merci votre aide


Private Sub worksheet_activate()
Application.Ontime now + TimeValue("00:00:10"), "fermer_session"
End Sub

 

[youky(BJ)]

Bonjour,

Private Sub worksheet_activate()​

If ActiveSheets.Name="liste" Then _

Application.Ontime now + TimeValue("00:00:10"), "fermer_session"
End Sub​

Bruno

 

[badraaliou4]

Bonjour,

Private Sub worksheet_activate()​

If ActiveSheets.Name="liste" Then _

Application.Ontime now + TimeValue("00:00:10"), "fermer_session"
End Sub​

Bruno

Merci mais ça ne marche pas
Surbrillance jaune sur votre code ajouté

 

[youky(BJ)]

Désolé,
Enlever le s à ActiveSheet
Bruno

 

[youky(BJ)]

Hello,
il serait bon d'annuler le ontime comme ceci
Dim tempo
Private Sub Worksheet_Activate()
If ActiveSheet.Name = "liste" Then
tempo = Now + TimeValue("00:00:10")
Application.OnTime tempo, "fermer_session"
End If
End Sub
Private Sub Worksheet_Deactivate()
On Error Resume Next
Application.OnTime tempo, "fermer_session", , False
End Sub

Bruno

 

[badraaliou4]

Hello,
il serait bon d'annuler le ontime comme ceci
Dim tempo
Private Sub Worksheet_Activate()
If ActiveSheet.Name = "liste" Then
tempo = Now + TimeValue("00:00:10")
Application.OnTime tempo, "fermer_session"
End If
End Sub
Private Sub Worksheet_Deactivate()
On Error Resume Next
Application.OnTime tempo, "fermer_session", , False
End Sub

Bruno

Merci ça marche bien.
Y-a-t-il un code qui peut l'arrêter si la cellule ("C7") <>""

J'ai ajouté ce code ci-dessous mais ça ne marche pas.

Dim Mouv
Mouv=activesheet.range("C7").value
Private Sub worksheet_change(ByVal Target as range)
If Mouv<>"" then
application.ontime tempo, "fermer_session", , false
End if
End sub

 

[youky(BJ)]

Bon qlq modif à faire.
En Module1 mettre en 1ère ligne
Public tempo
effacer le Dim tempo en code de worksheet
en
Private Sub worksheet_change(ByVal Target as range)
if [C7]<>"" then Application.Ontime tempo, "fermer_session", , false
End Sub

Bruno