Mise a zero selon l'heure

kingfadhel

XLDnaute Impliqué

• 1 Janvier 2018

• #2

Bonsoir,
bonne année 2018

VB:

Sub Remise_a_zero()
Application.OnTime TimeValue("00:00:00"), "ta_procédure"
end Sub

avec :
ta_procédure : la procédure qui exécute la remise à zéro

 

Vote positif 0 Vote négatif

malinsard

XLDnaute Junior

• 2 Janvier 2018

• #3

Merci pour ta réponse mais cela ne fonctionne pas voici mon code avec une heure test.
Sub Minuit()
Application.OnTime
TimeValue ("08:22:00"), shtMainCourante.Range("A2,H2,C7:F8,A10,B16,A18:I51") = ""
shtMainCourante.Range("B16") = shtMainCourante.Range("B16").Value + 1

End Sub
8:22 étant l'heure que j'ai mis pour tester.

 

Vote positif 0 Vote négatif

kingfadhel

XLDnaute Impliqué

• 2 Janvier 2018

• #4

Bonjour, le forum
@malinsard à toi,

 

Pièces jointes

• Malinsard.xlsm

  16.8 KB · Affichages: 53

Vote positif 0 Vote négatif

malinsard

XLDnaute Junior

• 3 Janvier 2018

• #5

Merci problème résolu!

 

Vote positif 0 Vote négatif