macro1......2sec...macro2

[Cruz]

Bonjour tout le Monde

J'ai un code de ce type:

Sub macro1()
tri
moyenne
tri2
active
End Sub

J'aimerai que ces 4 macros (tri, moyenne,tri2 et active) qui sont placés dans un module, s'activent avec 2 secondes d'intervalle
ex: tri
1sec
2sec
moyenne
1sec
2sec
tri2
1sec
2sec
active

existe-t-il un code qui permettent de faire cela ???
merci d'avance
bonne journée
a+
cruz

 

[michel_m]

bonsoir,

essaies cette instruction

Application.Wait Now + TimeValue('00:00:02')

a placer entre les macros

Bonne soirée

Michel

 

[_Thierry]

Bonsoir Cher ami Michel, bonsoir Cruz

Dans la même lignée que la réponse de Michel...

Possibilité 1

Sub TheRunner()
Tri
End Sub

Sub Tri()
MsgBox 'Run Tri'
Application.OnTime Now + TimeValue('00:00:02'), 'Moyenne'
End Sub

Sub Moyenne()
MsgBox 'Run Moyenne'
Application.OnTime Now + TimeValue('00:00:02'), 'Tri2'
End Sub

Sub Tri2()
MsgBox 'Run Tri2'
Application.OnTime Now + TimeValue('00:00:02'), 'Active'
End Sub

Sub Active()
MsgBox 'Run Active'
End Sub

Possibilité 2

Sub TheRunner()
Tri
With Application
.OnTime Now + TimeValue('00:00:02'), 'Moyenne'
.OnTime Now + TimeValue('00:00:04'), 'Tri2'
.OnTime Now + TimeValue('00:00:06'), 'Active'
End With
End Sub

Sub Tri()
MsgBox 'Run Tri'
End Sub

Sub Moyenne()
MsgBox 'Run Moyenne'
End Sub

Sub Tri2()
MsgBox 'Run Tri2'
End Sub

Sub Active()
MsgBox 'Run Active'
End Sub

Attentention toutefois à ce OnTime qui peut faire des beaux sbinz dans les applications et des plantages intempestifs aussi...

Bonne Soirée
[ol]@+Thierry[/ol]

 

[michel_m]

re Cruz, salut Grand chef Iroquois.


Eh bien Thierry ! que se passe t il ?

Je lis 'Moyenne' au lieu d''Average'

'Tri' au lieu de 'Sort'

... ???

Amitiés

Michel_M

 

[_Thierry]

Michel lol


et oui, j'arrive à aboyer français d'une main ! lol

Non, en fait, je reprenais textuellement les macros de notre ami Cruz !

@+Thierry

 

[Cruz]

super!!!
merci tout le Monde

bonne journée à tous
a+
cruz