Rebonjour
Voici la suite(oubli declare)
Dans la feuille:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Macro1
End Sub
Dans module:
Declare Function sndPlaySound32 Lib 'winmm.dll' Alias 'sndPlaySoundA' _
(ByVal lpzSoundName As String, ByVal uFlags As Long) As Long
Sub Macro1()
If Range('A1') > 22 Then
Call sndPlaySound32('C:/WINDOWS/Media/Avertir.wav', 0)
End If
End Sub
Temjeh [file name=Son.zip size=7724]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Son.zip[/file]
Message édité par: temjeh, à: 24/06/2006 00:47