Bonjour,
Je souhaiterais coder une sortie automatique d'une boucle 'for' après un certain temps passé dans dans cette boucle.
Je recherche une syntaxe me permettant de le faire
L'un d'entre vous pourrait-il m'aider ?
Bonjour,
Je souhaiterais coder une sortie automatique d'une boucle 'for' après un certain temps passé dans dans cette boucle.
Je recherche une syntaxe me permettant de le faire
L'un d'entre vous pourrait-il m'aider ?
Bonjour,
Tu regardes dans l’aide vba les fonctions Timer , now bref une fonction liée au temps.
A l’entrée de ta boucle tu mets en variable le temps actuel ( qui devient temps départ) et à chaque boucle tu mets un truc du genre If temps actuel = temps départ + xx then exit for.
Cordialement,
Didier
Didier a été plus rapide
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14 Sub sc() b = Time For i = 1 To 100000 c = b + TimeValue("00:00:10") 'réglage du temps pour la sortie de la boucle If Time = c Then MsgBox "Sortie de la boucle" Exit Sub End If Application.Wait (Now + TimeValue("0:00:1")) 'traitement à appliquer, mis pour patentier Next i End Sub
à vous !
Vous avez un bloqueur de publicités installé.
Le Club Developpez.com n'affiche que des publicités IT, discrètes et non intrusives.
Afin que nous puissions continuer à vous fournir gratuitement du contenu de qualité, merci de nous soutenir en désactivant votre bloqueur de publicités sur Developpez.com.
Partager