Temporisation vba

Bonjour,

J'ai un projet en vba où je dois afficher des valeurs dans un tableau après une temporisation de 2 minutes.Un capteur est placé le long d'une bande transporteuse et envois l'information sur excel si il est atteint ou non.Si le capteur n'est plus atteint, la tempo se met en route.Si pendant ces 2 minutes le capteur est de nouveau atteint, la temporisation doit s'arrêter ( se remettre a zero ou autre). Je n'ai besoin que du code de la tempo.

Auriez vous une idée? merci

2 réponses

  1. Bonjour,

    Sub Attente_Capteur(Flag_Capteur As Boolean)
    Dim TemPort As Single
    TemPort = Timer
    Do While Info_capteur <> 1 And Timer - TemPort < 120#
    DoEvents
    Loop
    If Info_capteur = 1 Then
    Flag_Capteur = True
    Else
    Flag_Capteur = False
    End If
    End Sub

    A voir