Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Application.ontime

Application.ontime

3 réponses
Avatar
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/
----------------------------------------------------------
Signaler un problème avec ce contenu

3 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
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" a écrit dans le message de news:
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/
----------------------------------------------------------






Avatar
giorgi.leonello
Merci beaucoup.


"LeSteph" a écrit dans le message de news:

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" a écrit dans le message de news:
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/
----------------------------------------------------------










Avatar
LeSteph
;-)

"giorgi.leonello" a écrit dans le message de
news: 418cc9cc$0$15938$
Merci beaucoup.


"LeSteph" a écrit dans le message de news:

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" a écrit dans le message de news:
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/
----------------------------------------------------------