Date et heure actuelles VBA

Question

Je veux créer un bouton qui fera ce qui suit. - Récupérer la date et l'heure actuelles -> - Cette date et l'heure plus le temps en (O2) -> - Dans la plage de cellules (L2: L11) doit être affiché si l'heure actuelle plus l'heure dans la cellule O2 est inférieur ou supérieur à la date et l'heure dans la cellule à côté de lui (plage M2: M11). La cellule L2 sera comparée avec M2, L3 avec M3 etc.

À tout moment, vous pourrez cliquer sur le bouton et il calculera s'il est à l'heure ou trop tard. Je sais comment obtenir la date actuelle mais je ne peux pas aller plus loin.

Click here for the image with the cells

Sub OnTime() 


With Range("L2:L11") 
    .Value = Now() 
    .NumberFormat = "mm/dd/yyyy h:mm:ss AM/PM" 
End With 

End Sub 

Answer 1

Pourquoi ne faites-vous pas tout simplement ce

In cell O2 type "=now" 
in cell L2 type "=IF(B1<D1,"Ontime", "Late")" 

Après que chaque fois que vous actualisez les formulaes il sera recalculé. Pour ce faire, en reliant cette macro à un bouton

Sub Refresh_formulaes() 
    Calculate 
End Sub