Discussion :

[drakkar_agfa]

Bonjour,

Question simple, est-ce possible de passer des paramètres avec OnTime

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

    Application.OnTime Now + TimeValue("00:00:05"), "MaProc(MaVariable)"

Quelque chose ressemblant à ceci.

Si ce n'est pas possible, une variable globale?

Merci de vos suggestions!

[fred65200]

bonjour, deux exemples avec un ou deux paramètres

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Sub Test()
    Application.OnTime Now + TimeValue("00:00:02"), "'MaProc1  ""Test1""'"
    Application.OnTime Now + TimeValue("00:00:05"), "'MaProc2  ""Test"", 3'"
End Sub
Sub MaProc1(MaVariable)
    MsgBox MaVariable
End Sub
Sub MaProc2(MaVariable, X)
        MsgBox MaVariable & X
End Sub

Attention aux " et '
Cordialement

[fred65200]

trouvé depuis gràce à Silkyroad
http://excel.developpez.com/faq/?pag...rgumentsOnTime

fred

[drakkar_agfa]

Et oui c'est parfait!

Merci bien!

[drakkar_agfa]

Bonjour,

Au moment du test, ta macro fonctionne parfaitement. Quand j'essais de faire la mienne... on a un problème.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Sub MaProc()
    Dim sMessage As String
 
    sMessage = InputBox("Entrez le message")
    Application.OnTime Now + TimeValue("00:00:01"), "'LancerMessage ,sMessage'"
End Sub
Sub LancerMessage(Message As String)
    MsgBox ("Voici le message donné :" & Chr(10) & Message)
End Sub

Je suis capable de lui donner le message (en texte "") mais pas par variable... Est-ce possible?

Je dois avoir un problème avec les " et les '

Merci encore!

[SilkyRoad]

bonsoir

Tu as également une virgule de trop dans le paramétrage de l'argument.

Tu peux tester cette adaptation :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Sub MaProc()
    Dim sMessage As String
 
    sMessage = InputBox("Entrez le message")
    Application.OnTime Now + TimeValue("00:00:01"), "'LancerMessage " _
        & Chr(34) & sMessage & Chr(34) & "'"
End Sub
 
Sub LancerMessage(Message As String)
    MsgBox ("Voici le message donné :" & Chr(10) & Message)
End Sub

bonne soirée
michel

[fred65200]

bonsoir drakkar_agfa, silkyroad
il y a aussi

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

    Application.OnTime Now + TimeValue("00:00:01"), "'LancerMessage """ & sMessage & """'"

@+