XL 2016 Exécution automatique d'un macro

badraaliou4 · 18 Septembre 2019

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) · 18 Septembre 2019

Bonjour,

Private Sub worksheet_activate()

If ActiveSheets.Name="liste" Then _

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

Bruno

badraaliou4 · 18 Septembre 2019

youky(BJ) à dit:
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) · 18 Septembre 2019

Désolé,
Enlever le s à ActiveSheet
Bruno

youky(BJ) · 18 Septembre 2019

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 · 18 Septembre 2019

youky(BJ) à dit:
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) · 18 Septembre 2019

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

XL 2016 Exécution automatique d'un macro

badraaliou4

XLDnaute Occasionnel

youky(BJ)

XLDnaute Barbatruc

badraaliou4

XLDnaute Occasionnel

youky(BJ)

XLDnaute Barbatruc

youky(BJ)

XLDnaute Barbatruc

badraaliou4

XLDnaute Occasionnel

youky(BJ)

XLDnaute Barbatruc

Discussions similaires