Tempo dans une macro

3 réponses

Michael

14/10/2005 à 09:03

Bonjour à tous !

je voudrais faire ceci :

private sub userform_activate

dim attente as time
attente=0
while attente<15secondes then ne rien faire
else mamacro
end sub

Je sais que ça a l'air tordu mais si vous
comprenez merci de m'aider !

3 réponses

Philippe Noss

14/10/2005 à 10:43

Bonjour,
Application.Wait (Now + TimeValue("0:00:15"))
la macro attends 15 s.
Philippe N
http://nossphil.perso.cegetel.net/exoutils.html

Michael

14/10/2005 à 12:46

Oui mais ce n'est pas vraiment ce qu'il me faut :

Private Sub Worksheet_activate

Demarrer une tempo de 15 s
des chose se passent
tempo arrivée à 15 s -> MaVariable = 1

end sub

Merci de votre aide...

michdenis

14/10/2005 à 16:36

Bonjour Michael,

Il y a ceci :

5 = delai de 5 secondes

IL y a une restriction. Ceci ne fonctionnera pas adéquatement si le délai se retrouve à chevaucher 2 jours.

'-------------------------
Sub Attente()
Dim T As Double, A As Double

A = Timer: T = A + 5

Do While T > Timer
DoEvents 'Pas obligatoire ...
Loop

End Sub
'-------------------------

Salutations!

"Michael" a écrit dans le message de news: %

Bonjour à tous !

je voudrais faire ceci :

private sub userform_activate

dim attente as time
attente=0
while attente<15secondes then ne rien faire
else mamacro
end sub

Je sais que ça a l'air tordu mais si vous
comprenez merci de m'aider !

Tempo dans une macro

3 réponses

Veuillez sélectionner un problème