Temporisation vba

pirmoto -  
 pirmoto -
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

f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention   1 713
 
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
0
pirmoto
 
Merci pour votre aide, je teste ça de suite
0