Exécuter un macro automatique apres x minute

Bonjour,

Nous avons un tableau indiquant l'état de sortie de clients ( en cours , sortie définitive , sortie provisoire...);

En cas de sortie provisoire : Lorsque le client effectue une sortie provisoire , il revient après la période spécifiée;

Dans manière normale, "à chaque client" nous devons calculer la date de retour (un jour ou deux...) après cette période. Nous annulons la sortie et vider les cellules "état de sortie" et "date de sortie" manuellement;

SVP, je veux le faire automatiquement, c'est-à-dire annuler automatiquement la sortie provisoire après la période spécifiée.

Merci

(Les jours peuvent être remplacés par des minutes dans l'exemple pour vérifier rapidement le résultat)

Bonsoir,

Il semble que je n'ai pas fait une bonne explication;

Brièvement:

je veux exécuter une macro automatique après une période prédéterminée;
Par exemple, je veux vider une cellule après une minute ( La durée est déterminée préalablement par combobox ).
Merci.

Bonjour,

Le lien ci-dessous aborde votre problème :

https://forum.excel-pratique.com/excel/executer-une-macro-c-une-date-et-heure-precise-t35355.html

Dans votre cas, il faudra rendre la date variable.

Bonsoir,

Merci pour votre attention 3GB

J’ai atteint ce point
Tout ce que je veux, c'est répéter ce code toutes 5 minutes;

Dim lgn&
lgn = Range("A" & Rows.Count).End(xlUp).Row
For i = 2 To lgn
If Cells(i, 7) = CDate(Format(Now, "dd/mm/yyyy")) Then
Cells(i, 5) = ""
Cells(i, 6) = ""
Cells(i, 7) = ""
End If
Next i
Call UserForm_Initialize

Merci

Sub annuler()
    Dim lgn&
lgn = Range("A" & Rows.Count).End(xlUp).Row
With ThisWorkbook.Worksheets("Feuil1")
For i = 2 To lgn
If .Cells(i, 7) <> "" Then
If .Cells(i, 7) <= CDate(Format(Now, "dd/mm/yyyy")) Then
.Cells(i, 5) = ""
.Cells(i, 6) = ""
.Cells(i, 7) = ""
End If
End If
Next i
End With
UserForm1.int1
    Call test
End Sub

Sub test()
    Application.OnTime Now + TimeValue("00:05:00"), "annuler"
End Sub