XL 2013 Exécuter une macro après x minutes

[anass1]

Bonjour,
SVP, 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.

 

[Fabinou62]

Bonjour,

code à mettre pour vider une cellule au bout d'une minute, à personaliser 🙂

If Application.Wait(Now + TimeValue("00:01:00")) Then
    Range("A1").Select
    Selection.ClearContents
End If

 

[anass1]

Bonjour,
Merci pour votre aide;
Le problème se pose lorsque plus d’un client et chacun a une durée différente;
je vais essayer.

 

[anass1]

Bonsoir,
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

 

[anass1]

Bonsoir,
Vous avez trouvé cette solution
Merci le forum

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

 

[Fabinou62]

ton problème est il résolu ??

Vous avez trouvé cette solution
Merci le forum