L'alerte sonore ne se déclenche pas toute seule

[sellig 29]

Bonjour,

Mon alerte sonore fonctionne parallèlement avec un timer. Je souhaiterai que celle ci se déclenche automatiquement 10 minutes (par ex) avant l'heure souhaitée. Or, actuellement, le son n'est perceptible, dans le temps défini, uniquement lorsque j'effectue une saisie!
Merci de m'apporter votre aide

 

[BERRACHED said]

Re : L'alerte sonore ne se déclenche pas toute seule

Salut,sellig 29

un fichier joint en exemple pour pouvoir vous aidé.

Cordialement

 

[sellig 29]

Re : L'alerte sonore ne se déclenche pas toute seule

Bonjour Said,

J'ai joint le fichier, j'y ai inséré quelques commentaires; Si tu peux m'aider?

 

[BERRACHED said]

Re : L'alerte sonore ne se déclenche pas toute seule

Salut,sellig

voici ton fichier modifier j'ai un peu changer en en memorisant la cellule A2 dans cellule perdue apparament ca a marcher vous tester.

Option Explicit
Dim MemoCell As String
Private Declare Function Beep Lib "Kernel32" (ByVal Fq As Long, ByVal Tm As Long) As Long

Sub BeepBeep()
Beep 392, 200
Beep 494, 100
Beep 588, 200
Beep 740, 100
Beep 880, 400
Beep 740, 100
Beep 880, 900
End Sub

Private Sub Worksheet_Calculate()
On Error Resume Next
    If Cells(2, 1) <> MemoCell Then
        Cells(2, 4) = 1 = " & Cells(2, 1).Value"
        MemoCell = Cells(2, 1)
        Call toto
    End If
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Address = "$A$2" And Cells(2, 1) <> MemoCell Then
        Cells(2, 4) = 1 = " & Cells(2, 1).Value"
        MemoCell = Cells(2, 1)
        Call toto
    End If
End Sub

Sub toto()
If Range("a2") = 1 Then
Call BeepBeep
MsgBox "Attention ALERTE!!!"
End If
End Sub

Cordialement

 

[sellig 29]

Re : L'alerte sonore ne se déclenche pas toute seule

Merci Said, c'est vraiment génial, tu as répondu à mes attentes.
Peut être suis la un peu exigeant, mais le must serait d'avoir l'alerte (sonore + MsgBox) qui se réenclenche automatiquement toutes les 3 minutes tant que la cellule A2 reste égale à 1? Dans tous les cas, encore merci, le fichier modifié est déjà très bien!
Une question un peu plus basique: la taille de la MsgBox peut-elle être modifiée?
Cordialement
Gilles

 

[soufiane011]

Re : L'alerte sonore ne se déclenche pas toute seule

Bonjour tout le monde,
Je m'appelle Soufiane et je suis un nouveau sur le forum.
Je suis pas expert sur excel,c'est pour ça j'ai besoin vos aides.
J'ai créer une application pour cyber sur excel qui détermine l’heure d'entre et l'heure de sortir et une cellule qui calcule la différence en les heure, autre cellule qui calcule le prix de l'heure, cellule qui calcule prix de minute et cellule qui calcule le prix total, jusque la tres bien tout marche bien mais je voudrais ameliorer cette application avec une option de alert sonorisation, c'est à dire: client par exemple payé 5DH= 1 heure on suppose il a commencé à 12h00 donc à 13h00 je voudrai alerte sonore sur cette cellule.
Merci