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

Cruz · 2 Avril 2006

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 · 2 Avril 2006

bonsoir,

essaies cette instruction

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

a placer entre les macros

Bonne soirée

Michel

_Thierry · 2 Avril 2006

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 · 2 Avril 2006

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 · 2 Avril 2006

😉 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 · 2 Avril 2006

super!!!
merci tout le Monde

bonne journée à tous
a+
cruz

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

Cruz

XLDnaute Occasionnel

michel_m

XLDnaute Accro

_Thierry

XLDnaute Barbatruc

michel_m

XLDnaute Accro

_Thierry

XLDnaute Barbatruc

Cruz

XLDnaute Occasionnel

Discussions similaires

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

Cruz

XLDnaute Occasionnel

michel_m

XLDnaute Accro

_Thierry

XLDnaute Barbatruc

michel_m

XLDnaute Accro

_Thierry

XLDnaute Barbatruc

Cruz

XLDnaute Occasionnel

Discussions similaires

Privacy & Transparency

Privacy & Transparency