Bonjour,

Je souhaiterais créer un message d'alerte à 15 et 3mn de l'heure entrée en cellule A2. J'avais mis une msgBox mais je souhaiterais aussi ajouter une alerte sonore... Voici mon essai (qui ne marche pas !!!):

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
Option Explicit
Dim Tps As Date
 
 
Sub Tempo()
'Programmation de l'évènement toutes les minutes
    Tps = Now + TimeValue("00:01:00")
    Application.OnTime Tps, "Tempo"
    'Traitement
    If ((Now - (Sheets("Feuil1").Range("A2").Value)) < ("00:15:00")) Then MsgBox ("Alerte Proche")
    If ((Now - (Sheets("Feuil1").Range("A2").Value)) < ("00:03:00")) Then MsgBox ("Alerte Imminente")
 
End Sub
 
Sub StopTempo()
    On Error Resume Next
    'Stopper la gestion de l'évènement OnTime en cours
    Application.OnTime Tps, "Tempo", , False
End Sub

Merci de votre aide