Application.ontime

Le
leo
Bonsoir,

Comment savoir si application.ontime est actif ou non ?

De plus si plusieurs sont lancés, comment savoir individuellement ?

Merci d'avance,

--

Amicalement
Leo
-
Pour les Riders, BMX, VTT, un seul site
LITTLE BIG TRAIL
http://perso.wanadoo.fr/lbt/
-
  • Partager ce contenu :
Vos réponses
Trier par : date / pertinence
LeSteph
Le #1900420
ReBonsoir,
Si c'est toi qui les détermine donc définit la variable de temps
c'est envisageable, exemple avec trois programmartions:
'****************
Public nextick1 As Date
Public nextick2 As Date
Public nextick3 As Date
'*****
Sub tstontim1()
nextick1 = Now + TimeValue("00:00:20")
Application.OnTime nextick1, "affiche"
End Sub
'*****
Sub tstontim2()
nextick2 = Now + TimeValue("00:00:20")
Application.OnTime nextick2, "affiche"
End Sub
'****
Sub tstontim3()
nextick3 = Now + TimeValue("00:00:20")
Application.OnTime nextick3, "affiche"
End Sub
'*****
Sub affiche()
MsgBox "debout c'est l'heure"
End Sub
'******
Sub témoin()

MsgBox "tim1=" & Format(nextick1, "dd/mmm/yyyy-hh:nn:ss") _
& Chr(13) & _
"tim2=" & Format(nextick2, "dd/mmm/yyyy-hh:nn:ss") _
& Chr(13) & _
"tim3=" & Format(nextick3, "dd/mmm/yyyy-hh:nn:ss")


End Sub
'*********************************

leSteph

"leo" 418c13ab$0$18894$
Bonsoir,

Comment savoir si application.ontime est actif ou non ?

De plus si plusieurs sont lancés, comment savoir individuellement ?

Merci d'avance,

--

Amicalement
Leo
----------------------------------------------------------
Pour les Riders, BMX, VTT, un seul site
LITTLE BIG TRAIL
http://perso.wanadoo.fr/lbt/
----------------------------------------------------------






giorgi.leonello
Le #1900373
Merci beaucoup.


"LeSteph"
ReBonsoir,
Si c'est toi qui les détermine donc définit la variable de temps
c'est envisageable, exemple avec trois programmartions:
'****************
Public nextick1 As Date
Public nextick2 As Date
Public nextick3 As Date
'*****
Sub tstontim1()
nextick1 = Now + TimeValue("00:00:20")
Application.OnTime nextick1, "affiche"
End Sub
'*****
Sub tstontim2()
nextick2 = Now + TimeValue("00:00:20")
Application.OnTime nextick2, "affiche"
End Sub
'****
Sub tstontim3()
nextick3 = Now + TimeValue("00:00:20")
Application.OnTime nextick3, "affiche"
End Sub
'*****
Sub affiche()
MsgBox "debout c'est l'heure"
End Sub
'******
Sub témoin()

MsgBox "tim1=" & Format(nextick1, "dd/mmm/yyyy-hh:nn:ss") _
& Chr(13) & _
"tim2=" & Format(nextick2, "dd/mmm/yyyy-hh:nn:ss") _
& Chr(13) & _
"tim3=" & Format(nextick3, "dd/mmm/yyyy-hh:nn:ss")


End Sub
'*********************************

leSteph

"leo" 418c13ab$0$18894$
Bonsoir,

Comment savoir si application.ontime est actif ou non ?

De plus si plusieurs sont lancés, comment savoir individuellement ?

Merci d'avance,

--

Amicalement
Leo
----------------------------------------------------------
Pour les Riders, BMX, VTT, un seul site
LITTLE BIG TRAIL
http://perso.wanadoo.fr/lbt/
----------------------------------------------------------










LeSteph
Le #1900289
;-)

"giorgi.leonello" news: 418cc9cc$0$15938$
Merci beaucoup.


"LeSteph"
ReBonsoir,
Si c'est toi qui les détermine donc définit la variable de temps
c'est envisageable, exemple avec trois programmartions:
'****************
Public nextick1 As Date
Public nextick2 As Date
Public nextick3 As Date
'*****
Sub tstontim1()
nextick1 = Now + TimeValue("00:00:20")
Application.OnTime nextick1, "affiche"
End Sub
'*****
Sub tstontim2()
nextick2 = Now + TimeValue("00:00:20")
Application.OnTime nextick2, "affiche"
End Sub
'****
Sub tstontim3()
nextick3 = Now + TimeValue("00:00:20")
Application.OnTime nextick3, "affiche"
End Sub
'*****
Sub affiche()
MsgBox "debout c'est l'heure"
End Sub
'******
Sub témoin()

MsgBox "tim1=" & Format(nextick1, "dd/mmm/yyyy-hh:nn:ss") _
& Chr(13) & _
"tim2=" & Format(nextick2, "dd/mmm/yyyy-hh:nn:ss") _
& Chr(13) & _
"tim3=" & Format(nextick3, "dd/mmm/yyyy-hh:nn:ss")


End Sub
'*********************************

leSteph

"leo" 418c13ab$0$18894$
Bonsoir,

Comment savoir si application.ontime est actif ou non ?

De plus si plusieurs sont lancés, comment savoir individuellement ?

Merci d'avance,

--

Amicalement
Leo
----------------------------------------------------------
Pour les Riders, BMX, VTT, un seul site
LITTLE BIG TRAIL
http://perso.wanadoo.fr/lbt/
----------------------------------------------------------














Poster une réponse
Anonyme