Discussion :

[Alphajet73]

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

[SfJ5Rpw8]

Bonjour,
Souvent le problème quand" ça ne marche pas" c'est qui manque des jambes ...


alors ? plutôt dis nous ce qui se passe et ce que tu voudrais ?

[gnain]

Bonjour,
il faut convertir le résultat de la cellule en hh:mm:ss
essaie comme ceci

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
Sub Tempo()
'Programmation de l'évènement toutes les minutes
    Tps = Now + TimeValue("00:01:00")
    Application.OnTime Tps, "Tempo"
    'Traitement
 
    If Format((Sheets("Feuil1").Range("A2").Value - Now), "hh:mm:ss") > "23:57:00" Then
        Beep
        MsgBox ("Alerte Proche")
    ElseIf Format((Sheets("Feuil1").Range("A2").Value - Now), "hh:mm:ss") > "23:45:00" Then
        Beep
        MsgBox ("Alerte Imminente")
    End If
 
End Sub

[Alphajet73]

Yes ! merci Bbil je cours m'acheter des jambes !!! oui en effet gnain je voulais une msgbox avec un Beep c top... Par contre lorsque je valide la MsgBox, elle réapparait toutes les minutes, mais je ne souhaite avoir l'alerte qu'une fois à moins 15mn et une autre à moins 3mn (et pas toutes les minutes). Peut être dois je simplement remplacer le
> "23:57:00"

par

= "23:57:00" ?

[gnain]

Bonjour Alphajet73,

pour passer seulement une fois pour 15 minutes (voir en vert)
et après avoir passer pour le 3 minutes il faut arrêter la Programmation de l'évènement (voir en rouge)

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
Sub Tempo()
'Programmation de l'évènement toutes les minutes
    Tps = Now + TimeValue("00:01:00")
    Application.OnTime Tps, "Tempo"
    'Traitement
    
    If Format((Sheets("Feuil1").Range("A2").Value - Now), "hh:mm:ss") > "23:57:00" Then
        Beep
        MsgBox ("Alerte Proche")
        Application.OnTime Tps, "Tempo", , Schedule:=False
    ElseIf Format((Sheets("Feuil1").Range("A2").Value - Now), "hh:mm:ss") > "23:45:00" and Format((Sheets("Feuil1").Range("A2").Value - Now), "hh:mm:ss") < "23:46:00" Then
        Beep
        MsgBox ("Alerte Imminente")
    End If
 
End Sub

[Alphajet73]

Super,
en fait j'avais fait un essai en changeant le ">" par "=" et en réactualisant toutes les secondes mais ça fait un clignotement sur le curseur et ta méthode est bien plus propre !!!
Par contre si je ne suis pas sur le fichier Excel en question (fichier ouvert bien sûr) mais sur un autre fichier (Word ou autre), l'alerte n'apparaît que quand je reviens sur le fichier Excel. Peut on modifier ça ???

[Jean-Philippe André]

Salut,

j'aurais tendance a te recommander la 'plus pro' tache planifiee pour forcer les messages.