alarme sonore

[denoux]

Est t il possible de declancher une alarme sonore sur une cellule si cette cellule affiche a la suite d'un calcul un resultat quelquonque????

 

[Myta]

salut denoux

Deja tu aurais du lire la charte.

'Windows API function declaration
Private Declare Function PlaySound Lib "winmm.dll" _
Alias "PlaySoundA" (ByVal lpszName As String, _
ByVal hModule As Long, ByVal dwFlags As Long) As Long

Function Alarm(Cell, Condition)
Dim WAVFile As String
Const SND_ASYNC = &H1
Const SND_FILENAME = &H20000
On Error GoTo ErrHandler
If Evaluate(Cell.Value & Condition) Then
WAVFile = ThisWorkbook.Path & "\Sonnerie.wav" 'Edit this statement
Call PlaySound(WAVFile, 0&, SND_ASYNC Or SND_FILENAME)
Alarm = True
Exit Function
End If
ErrHandler:
Alarm = False
End Function

Ensuite sur la feuille utilise

=Alarm(A1;"=2") ici si A1=2 l'alerte sonore

Mytå