ya til moyen de tuer une procedure lancer
avec "Application.OnTime Now + TimeValue
("00:01:00"), "xxx" ???
je m'explique je voudrais kune macro se lancer toutes les
minutes. maintenant je dois lancer cette macro sous
certaines conditions (changement de feuille). donc si ds
ma macro commence, elle active la procedure de
repetition, moi je change de feuille, il relance donc ma
macro et relancer aussi une procedure de repetition etc...
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
ChrisV
Bonjour Albator V,
Option Explicit Public timR As Variant Public Const proC = "MPFE"
Sub Ta_macro_toutes_les_minutes() timR = TimeValue(Now + TimeValue("00:01:00")) Application.OnTime timR, proC End Sub
Sub MPFE() MsgBox "Hello !", vbExclamation zaza End Sub
Sub arrE() On Error Resume Next Application.OnTime timR, proC, , False End Sub
ChrisV
"Albator V" a écrit dans le message de news:08f101c46e66$7266b630$
bonjour,
ya til moyen de tuer une procedure lancer avec "Application.OnTime Now + TimeValue ("00:01:00"), "xxx" ??? je m'explique je voudrais kune macro se lancer toutes les minutes. maintenant je dois lancer cette macro sous certaines conditions (changement de feuille). donc si ds ma macro commence, elle active la procedure de repetition, moi je change de feuille, il relance donc ma macro et relancer aussi une procedure de repetition etc...
merci pour vos lumieres.
Bonjour Albator V,
Option Explicit
Public timR As Variant
Public Const proC = "MPFE"
Sub Ta_macro_toutes_les_minutes()
timR = TimeValue(Now + TimeValue("00:01:00"))
Application.OnTime timR, proC
End Sub
Sub MPFE()
MsgBox "Hello !", vbExclamation
zaza
End Sub
Sub arrE()
On Error Resume Next
Application.OnTime timR, proC, , False
End Sub
ChrisV
"Albator V" <albatorv@aol.com> a écrit dans le message de
news:08f101c46e66$7266b630$a501280a@phx.gbl...
bonjour,
ya til moyen de tuer une procedure lancer
avec "Application.OnTime Now + TimeValue
("00:01:00"), "xxx" ???
je m'explique je voudrais kune macro se lancer toutes les
minutes. maintenant je dois lancer cette macro sous
certaines conditions (changement de feuille). donc si ds
ma macro commence, elle active la procedure de
repetition, moi je change de feuille, il relance donc ma
macro et relancer aussi une procedure de repetition etc...
Option Explicit Public timR As Variant Public Const proC = "MPFE"
Sub Ta_macro_toutes_les_minutes() timR = TimeValue(Now + TimeValue("00:01:00")) Application.OnTime timR, proC End Sub
Sub MPFE() MsgBox "Hello !", vbExclamation zaza End Sub
Sub arrE() On Error Resume Next Application.OnTime timR, proC, , False End Sub
ChrisV
"Albator V" a écrit dans le message de news:08f101c46e66$7266b630$
bonjour,
ya til moyen de tuer une procedure lancer avec "Application.OnTime Now + TimeValue ("00:01:00"), "xxx" ??? je m'explique je voudrais kune macro se lancer toutes les minutes. maintenant je dois lancer cette macro sous certaines conditions (changement de feuille). donc si ds ma macro commence, elle active la procedure de repetition, moi je change de feuille, il relance donc ma macro et relancer aussi une procedure de repetition etc...
merci pour vos lumieres.
ChrisV
Hum... sûrement plus clair comme ça.
Option Explicit Public timR As Variant Public Const proC = "Ta_macro_toutes_les_minutes"
Sub zaza() timR = TimeValue(Now + TimeValue("00:01:00")) Application.OnTime timR, proC End Sub
Sub Ta_macro_toutes_les_minutes() MsgBox "Hello !", vbExclamation zaza End Sub
Sub arrE() On Error Resume Next Application.OnTime timR, proC, , False End Sub
ChrisV
"ChrisV" a écrit dans le message de news:%2392%
Bonjour Albator V,
Option Explicit Public timR As Variant Public Const proC = "MPFE"
Sub Ta_macro_toutes_les_minutes() timR = TimeValue(Now + TimeValue("00:01:00")) Application.OnTime timR, proC End Sub
Sub MPFE() MsgBox "Hello !", vbExclamation zaza End Sub
Sub arrE() On Error Resume Next Application.OnTime timR, proC, , False End Sub
ChrisV
"Albator V" a écrit dans le message de news:08f101c46e66$7266b630$
bonjour,
ya til moyen de tuer une procedure lancer avec "Application.OnTime Now + TimeValue ("00:01:00"), "xxx" ??? je m'explique je voudrais kune macro se lancer toutes les minutes. maintenant je dois lancer cette macro sous certaines conditions (changement de feuille). donc si ds ma macro commence, elle active la procedure de repetition, moi je change de feuille, il relance donc ma macro et relancer aussi une procedure de repetition etc...
merci pour vos lumieres.
Hum... sûrement plus clair comme ça.
Option Explicit
Public timR As Variant
Public Const proC = "Ta_macro_toutes_les_minutes"
Sub zaza()
timR = TimeValue(Now + TimeValue("00:01:00"))
Application.OnTime timR, proC
End Sub
Sub Ta_macro_toutes_les_minutes()
MsgBox "Hello !", vbExclamation
zaza
End Sub
Sub arrE()
On Error Resume Next
Application.OnTime timR, proC, , False
End Sub
ChrisV
"ChrisV" <chrisve@wanadoo.fr> a écrit dans le message de
news:%2392%23bimbEHA.2840@TK2MSFTNGP11.phx.gbl...
Bonjour Albator V,
Option Explicit
Public timR As Variant
Public Const proC = "MPFE"
Sub Ta_macro_toutes_les_minutes()
timR = TimeValue(Now + TimeValue("00:01:00"))
Application.OnTime timR, proC
End Sub
Sub MPFE()
MsgBox "Hello !", vbExclamation
zaza
End Sub
Sub arrE()
On Error Resume Next
Application.OnTime timR, proC, , False
End Sub
ChrisV
"Albator V" <albatorv@aol.com> a écrit dans le message de
news:08f101c46e66$7266b630$a501280a@phx.gbl...
bonjour,
ya til moyen de tuer une procedure lancer
avec "Application.OnTime Now + TimeValue
("00:01:00"), "xxx" ???
je m'explique je voudrais kune macro se lancer toutes les
minutes. maintenant je dois lancer cette macro sous
certaines conditions (changement de feuille). donc si ds
ma macro commence, elle active la procedure de
repetition, moi je change de feuille, il relance donc ma
macro et relancer aussi une procedure de repetition etc...
Option Explicit Public timR As Variant Public Const proC = "Ta_macro_toutes_les_minutes"
Sub zaza() timR = TimeValue(Now + TimeValue("00:01:00")) Application.OnTime timR, proC End Sub
Sub Ta_macro_toutes_les_minutes() MsgBox "Hello !", vbExclamation zaza End Sub
Sub arrE() On Error Resume Next Application.OnTime timR, proC, , False End Sub
ChrisV
"ChrisV" a écrit dans le message de news:%2392%
Bonjour Albator V,
Option Explicit Public timR As Variant Public Const proC = "MPFE"
Sub Ta_macro_toutes_les_minutes() timR = TimeValue(Now + TimeValue("00:01:00")) Application.OnTime timR, proC End Sub
Sub MPFE() MsgBox "Hello !", vbExclamation zaza End Sub
Sub arrE() On Error Resume Next Application.OnTime timR, proC, , False End Sub
ChrisV
"Albator V" a écrit dans le message de news:08f101c46e66$7266b630$
bonjour,
ya til moyen de tuer une procedure lancer avec "Application.OnTime Now + TimeValue ("00:01:00"), "xxx" ??? je m'explique je voudrais kune macro se lancer toutes les minutes. maintenant je dois lancer cette macro sous certaines conditions (changement de feuille). donc si ds ma macro commence, elle active la procedure de repetition, moi je change de feuille, il relance donc ma macro et relancer aussi une procedure de repetition etc...
