OVH Cloud OVH Cloud

répétition + délai

1 réponse
Avatar
jack
Bonjour à tous,

Voici une macro qui sert à exécuter 4 fois une autre macro. je cherche une
façon de répéter 35 fois l'exécution de "priseq" et de placer un temps
d'arrêt de 5 secondes entre chaque exécution.


Sub priseque()

Sheets("general").Select

priseq
priseq
priseq
priseq
End Sub


Merci pour votre aide

1 réponse

Avatar
Daniel
Bonjour.
Essaie :

Sub priseque()

Sheets("general").Select
For i = 1 To 35
priseq
Application.Wait TimeSerial(Hour(Time), Minute(Time), Second(Time) +
5)
Next i
End Sub

Cordialement.
Daniel
"jack" a écrit dans le message de news:

Bonjour à tous,

Voici une macro qui sert à exécuter 4 fois une autre macro. je cherche une
façon de répéter 35 fois l'exécution de "priseq" et de placer un temps
d'arrêt de 5 secondes entre chaque exécution.


Sub priseque()

Sheets("general").Select

priseq
priseq
priseq
priseq
End Sub


Merci pour votre aide