questions de temps

Bonjour cm,

Selon la façon et ce dont on procède il ya plusieurs possibilités, regarde
l'aide sur celles ci:
Application.ontime
Application.wait
Doevents


lSteph

"cm" <c02@wanadoo.fr> a écrit dans le message de news:
43c11f68$0$19715$8fcfb975@news.wanadoo.fr...

bonjour
est il possibel de mettre ds 1 macro un instructions du style "attendre 30
secondes ou 1 min"..afin de pouvoir laisser se remplir les cellules des
liens vers d'autres classeurs avant d'executer le reste des instructions..
merci
a+

Bonjour,

Avec l'aide de Excel sous VBE, rechercher la méthode [OnTime].

Exemples
Cet exemple montre comment exécuter my_Procedure dans 15 secondes.

Application.OnTime Now + TimeValue("00:00:15"), "my_Procedure"
Cet exemple montre comment exécuter my_Procedure à 17 heures.

Application.OnTime TimeValue("17:00:00"), "my_Procedure"
Cet exemple montre comment annuler le paramétrage de OnTime de l'exemple
précédent.

Application.OnTime EarliestTime:=TimeValue("17:00:00"), _
Procedure:="my_Procedure", Schedule:úlse

mousnynao

bonjour
est il possibel de mettre ds 1 macro un instructions du style "attendre 30
secondes ou 1 min"..afin de pouvoir laisser se remplir les cellules des
liens vers d'autres classeurs avant d'executer le reste des instructions..
merci
a+

Bonjour ,

L'opérateur peut travailler pendant la tempo:

Sub essai()
TempoNonBloquante 3
Range("a1") = "ok"
TempoNonBloquante 5
Range("a1") = "ok2"
End Sub

Sub TempoNonBloquante(t)
fin = Timer + t
Do While Timer < fin
DoEvents
Loop
End Sub

Cordialement JB

Bonjour,

Sub essai()
TempoNonBloquante 3
Range("a1") = "ok"
TempoNonBloquante 5
Range("a1") = "ok2"
End Sub

Sub TempoNonBloquante(t)
fin = Timer + t
Do While Timer < fin
DoEvents
Loop
End Sub

JB