Faire une boucle tous les x temps

Bonjour,

Je souhaiterais faire une boucle tournant sur 5 minutes à la fin de ces 5 minutes le reste du code s'exécute .

Vous auriez une idée de fonctions qui pourrais m'aidez dans cette tache ?

Ou d'une façon optimal de procéder.

Je vous remercie d'avance

Bonjour,

au plus simple :

    Dim t As Single
    t = Timer
    Do
        'calcul en boucle
    Loop Until Timer - t > 5 ' temps en s
    MsgBox "on continue"

eric

oh j'était partie dans un truc compliqué pour rien .

Bon je te remercie du coup ^^ .

Passe une bonne journée

N'utiliser ce principe que si tu as vraiment des actions à faire dans ta boucle.
Là tu utilises en permanence excel qui n'est plus disponible.

Si c'est une simple tempo il est préférable de scinder ton sub en 2 et d'appeler la 2nde partie sur un OnTime qui programme son démarrage dans x seconde et excel est calme et dispo durant ce temps..
eric

Bonjour,

s'il s'agit d'attendre 5 minutes tu peux aussi utiliser l'instruction wait

Application.Wait Now + TimeValue("00:05:00")

Sa marche je prend note merci,

et merci à toi h2so4 je vais voir laquelle irait le mieux .

Et une dernière chose histoire de pas polluer le forum avec un autre petit sujet .

Vous seriez me dire ou est l'erreur de compilation dans ce code(ou si j'utilise mal la fonction) ?

Dim ch As Single

ch = Target.Offset(0, -1), "Data"

bonjour,

d'un point de vue syntaxe, cela pourrait être cela, mais est-ce ce que tu veux faire ? ceci faisant tu vas mettre dans ch la valeur trouvée dans la cellule se trouvant sur la même ligne mais dans la colonne précédent la cellule cible.

ch = Target.Offset(0, -1)