Alarme sonore à une heure définie dans une cellule

Bonjour à toutes et à tous,

Voici un fichier avec un tableau et un peu de code que j'ai trouvé sur le net.

Il y a une colonne avec l'heure et je voudrais avoir une alarme sonore (un mp3 qui démarre ou similaire) disons 5 minutes avant l'heure indiquée (ou à l'heure indiquée et je modifie la valeur de la cellule)

Tous les jours, je vide le tableau.

5alertes.xlsm (20.87 Ko)

Alt F8 Set time pour activer la mise à jour de l'heure toutes les secondes.

Si vous changez C4 par une valeur supérieur à 0, il y aura un GO et si inférieur à 0, il ne se passe rien.

Jusque là, parfait.

1 - Maintenant comment faire avec heure et minutes ? pour que le GO "chante" dans mes haut parleurs quand C4 sera égal à J1 ?
2 - Modification du GO par les valeurs de C1 et C2

Merci pour votre aide.

Je vous souhaite une bonne fin de journée.

Message modifié par celui ci dessous. Désolé pour les messages à la suite

J'ai regroupé sur le premier message. Je ne sais pas comment supprimer les messages en trop. Désolé

Bonsoir Wags,

Alt F8 Set time pour activer la mise à jour de l'heure toutes les secondes.

En utilisant OnTime il sera possible de lancer une alerte ou alarme à l'horaire voulu.

Pas besoin d'une actualisation à la seconde.

Sub Alertes()
'Ex: Cellule A1 = Heure, B1 = Minute, C1 = Seconde
Alerte = [A1] & ":" & [B1] & ":" & [C1]
Application.OnTime TimeValue(Alerte), "Depart"
'Ou directement
'Application.OnTime TimeValue("20:30:00"), "Depart"
End Sub

Sub Depart()
'Macro devant être lancée à l'horaire souhaité
MsgBox "Test"
End Sub

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

Bonjour Wags,

J'ai téléchargé le fichier mais une actualisation seconde par seconde n'est pas nécessaire et surtout monopolise la macro.

Faire comme ci-dessous. Ontime utilise l'horaire système donc aucune perturbation.

Sub LanceTime()
Application.OnTime [J1], "DepartUn"
End Sub

Sub DepartUn()
[C4] = 1
End Sub

Lancer la macro LanceTime et à l'horaire prévu le déclanchement se fera.

3alerteswags.xlsm (19.32 Ko)

Bonjour à tous,

Petit retour d'utilisation du code. C'est une catastrophe

Cela me bloque Excel assez souvent. Impossible d'ajouter ou de modifier une cellule peu importe la feuille.
Je dois souvent faire ATL+CTRL+DEL sinon pas moyen de sortir ou d'utiliser Excel.

Avez-vous une idée ?

Merci

Bonne journée.

Rechercher des sujets similaires à "alarme sonore heure definie"