Rapport de message :*
 

Re: syntaxe VBA sur l'instruction application.ontime avec paramètres

Titre du sujet : Re: syntaxe VBA sur l'instruction application.ontime avec paramètres
par Mytå le 01/07/2008 15:27:27

Salut le forum

Michel, voilà un exemple avec passage de paramètres

Option Explicit
Public RunWhen As Variant

Sub LanceMessage()
'Départ du processus
RunWhen = TimeValue(Now + TimeSerial(0, 0, 15))
Application.OnTime RunWhen, "'Ma_Macro 100'"
End Sub

Sub StopMessage()
'Arret du processus
On Error Resume Next
Application.OnTime RunWhen, "'Ma_Macro 100'", , False
End Sub

Sub Ma_Macro(I As Integer)
MsgBox I
Call LanceMessage
End Sub

La syntaxe " ' Ta_Macro Ta_Variable ' "

Mytå