Temps entre macros

Bonjour,

Est-il possible de mettre un temps ( genre 1 seconde ) quand on appel plusieurs macros, exemple du code ci-dessous.

Option Explicit

Private Sub CommandButton1_Click()
    mem = ActiveSheet.Name
    Import1
    suppression_F
    date1
End Sub

J'aimerais attendre 1 seconde entre Import1 et suppression_F par exemple. ( ça existe genre un "delay 1000" comme en C ? )

Bonjour Geoffrey,

2 possibilités sont envisageables pour moi : Timer et DoEvents

celle qui me paraît le mieux étant la DoEvents, qui permet d'attendre qu'une action soit totalement terminée avant de poursuivre la procédure (rend la main à l'OS pour qu'il fasse tout ce qu'il a en attente avant de continuer!), et avec une syntaxe des plus complexes :

Option Explicit

Private Sub CommandButton1_Click()
    mem = ActiveSheet.Name
    Import1
DoEvents()
    suppression_F
    date1
End Sub
 

La 2eme alourdit un peu le code et t'oblige à faire une boucle while et à utiliser une variable...

Option Explicit

Private Sub CommandButton1_Click()
Dim T as Double
    mem = ActiveSheet.Name
    Import1
T= Timer
While Timer<T+1 Loop
    suppression_F
    date1
End Sub
 

Voilou, bon courage!

Salut,

Ou plus simple:

Application.Wait(Now + TimeValue("0:00:01")) 

entre chaque procedure

++

Merci Minick, je connaissais pas, je prend note!

Super, ça fonctionne parfaitement

Merci