Bonsoir X Cellus,
Je te remercie pour ta réponse mais j'avoue ne pas trop comprendre.
J'ai une cellule C4 qui contient une heure + minutes et la cellule J1 avec l'heure actualisée à la seconde.
En G4,
=+BEEPNOW(C4)
j'applique la fonction suivante avant d'avoir un GO en son.
En guise de test avec <0, cela fonctionne
Function BEEPNOW(Time As Long) As String
If Time < 0 Then
Beep
Message = "Go"
End If
Application.Speech.Speak Message
BEEPNOW = Message
End Function
Si je modifie la deuxième ligne, cela ne fonctionne pas.
If Time = [J1] Then
Et voici la fonction pour l'heure
Dim SchedRecalc As Date
Sub Recalc()
With Feuil1.Range("J1")
.Value = Format(Time, "hh:mm:ss AM/PM")
End With
Call SetTime
End Sub
Sub SetTime()
SchedRecalc = Now + TimeValue("00:00:01")
Application.OnTime SchedRecalc, "Recalc"
End Sub
Sub Disable()
On Error Resume Next
Application.OnTime EarliestTime:=SchedRecalc, Procedure:="Recalc", Schedule:=False
End Sub
Merci