Pause dans une macro

[Laurent]

Bonsoir à tous,

j'aimerai savoir s'il est possible d'insérer une pose dans une macro entre 2 lignes de par exemple 2secondes.

et si oui comment?

exemple

range('A1').value = 352

(Pause de 2s)

range('A1').value = 1251

Merci à tous.

Laurent

 

[pat1545.]

Salut,
eesaie ceci:

For z = 1 To 5000 ' à régler
DoEvents
Next

Bon travail

 

[Laurent]

Merci Patrick

A bientôt

Laurent

 

[Dan]

Bonsoir Laurent,

Essaie ceci :

Sub test()
Dim nh, nm, ns As Date
Dim waitTime As Variant
Range('A1').Value = 351
nh = Hour(Now())
nm = Minute(Now())
ns = Second(Now()) + 5
waitTime = TimeSerial(nh, nm, ns)
Application.wait waitTime
Range('A1').Value = 1251
End sub

Bonne soirée

 

[Mytå]

Bonsoir le Forum

Tout simplement avec Application.Wait

Sub Pause()
[A1] = 123
Application.Wait (Now + TimeValue('0:00:02'))
[A1] = 234
End Sub

Myta