Obtenir un son en cliquant

Version imprimable

30/08/2007, 11h57
sabine342

Obtenir un son en cliquant

Bonjour,

je voudrais obtenir un son ( chord.wav par exemple) en cliquant sur un case du tableur excel.
pouvez vous m'aider svp?
merci :oops:

Bonjour,

ici, chord.wav doit être dans le m^me répertoire (tu pourras adapter si besoin)

dans lze module feuil1:

Code:

1
2
3
4
5
6
 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
' la zone concernée est ici A1:F10
If Intersect(Target, Range("A1:F10")) Is Nothing Then Exit Sub
emettre_son
End Sub

et dans un module commun:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
Private Declare Function PlaySound32 Lib "winmm.dll" Alias "PlaySoundA" (ByVal IpszName As String, ByVal hModule As Long, ByVal dwFlags As Long) As Long
 
Const SND_SYNC = &H0
Const SND_ASYNC = &H1
Const SND_FILENAME = &H20000
 
' archives mpfe
Sub emettre_son()
' snd_async: son asynchrone (la musique n'arrete pas le programme)
If Application.CanPlaySounds Then
    WAVFile = ThisWorkbook.Path & "\" & "chord.wav"
    Call PlaySound32(WAVFile, 0&, SND_ASYNC Or SND_FILENAME)
Else
    Exit Sub
End If
 
End Sub

ci joint tite démo "hotel du Nord"

30/08/2007, 15h55
sabine342

merci !:yaisse2:
30/08/2007, 16h17
sabine342

pfeuuuu !!! je suis trop nulle , je galere pour mettre un autre son a coté....

je veux qu'il emmette un son si on clique sur h10 et un autre son si on clique sur I10

peu tu encore m'aider?:oops:
30/08/2007, 16h59
Michel_M

et 1 son pour H10 et un autre son pour I10!

voir PJ
31/08/2007, 10h42
sabine342

:oops:
bon là j'ai super honte !! j'arrive a rien ! je pensé pouvoir me debrouiller avec le premier post, puis avec le 2eme....et j'ai que des bugs et erreurs dés que j'essais d'avancer un peu plus.....
je voudrais en fait faire une sorte de "piano" ou un "syntetiseur" avec plein de sons dans les cases du tableur....
peut etre que si tu me donne le truc pour en avoir 3 (sons) je vais arriver toute seule a comprendre pour en ajouter autant que je veux apres....??
je m'en remet a toi , merci encore pour ta patience :oops:

Salut le forum

Sabine avec ceci tu devrais pouvoir adapter
Plage et son à adapter sur le fichier de Michel_M

Code:

1
2
3
4
5
6
7
8
9
10
 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
' la zone concernée est ici A10:F10
If Intersect(Target, Range("A10:F10")) Is Nothing Then Exit Sub
If Target.Address = Range("A10").Address Then emettre_son ("son1.wav")
If Target.Address = Range("B10").Address Then emettre_son ("son2.wav")
If Target.Address = Range("C10").Address Then emettre_son ("son3.wav")
'...
If Target.Address = Range("F10").Address Then emettre_son ("son6.wav")
End Sub

Mytå

03/09/2007, 15h51
sabine342

Super, merci beaucoup pour votre aide....:yaisse2: