Comment lier un son à une cellule excel?

[invite687cb95f]

Comment lier un son à une cellule excel?
Par exemple: je clique sur la cellule B2, et le son que j'avais attribué à cette cellule est joué.
( Je sais joindre un fichier sonore à une feuille Excel, mais ce n'est pas lié à une cellule.)

Merci pour vos renseignements.
Tournesoleil
-----

[inviteec2f08ae]

Bonjour à toi,

Pas en standard. Tu dois programmer en VBA. Voici un exemple:

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
 
Sub Jouer()
If Range("AA2") = "Bip" Then
If Application.CanPlaySounds Then
    WAVFile = ThisWorkbook.Path & "\" & "tada.wav"
    Call PlaySound32(WAVFile, 0&, SND_ASYNC Or SND_FILENAME)
Else
    Exit Sub
End If
End If
End Sub

Tiré de la discussion http://www.developpez.net/forums/d34...fichier-excel/

Cyrille

[invite687cb95f]

Merci, mais ça ne marche pas, j'ai le message:
"Erreur de compilation: Attendu: fin d'instruction"

Dur dur
Tournesoleil

[invite687cb95f]

Je demande par quel moyen je pourrais obtenir une réponse à ma requête:

Comment lier un son à une cellule Excel?
Par exemple: je clique sur la cellule B2, et le son que j'avais attribué à cette cellule est joué.
( Je sais joindre un fichier sonore à une feuille Excel, mais ce n'est pas lié à une cellule.)

J'ai eu un tas de réponses avec des macros mais je n'ai jamais pu avoir un résultat positif.
Suis-je incompétent ou les solutions proposées sont elles valables?
Il est fort possible que le problème vienne de moi mais je viens de penser à une solution:
Si quelqu'un pense avoir la solution à mon problème: Est ce qu'il serait possible de me fournir un petit fichier Excel avec l'application en état de fonctionnement plutôt que des formules de macros que je ne comprend pas systématiquement?
Il est bien entendu que tout doit se faire en toute légalité!
Merci encore pour vos renseignements.

[A voir en vidéo sur Futura]

[CM63]

Bonsoir,

Ben tu fait un Onselect sur la céllule, ça me paraît simple.

Bonne soirée.

[CM63]

Bonsoir,

En fait tu écris le call-back de la feuille, et dedans tu testes si tu es dans la cellule qui t'intéresse :

    Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

    If Not Application.Intersect(Target, Range("A1")) Is Nothing Then

    'macro à mettre

    End If

(j'ai récupéré sur Internet cet exemple, qui utilise Worksheet_BeforeDoubleClick , mais tu peux prendre autre chose, je n'ai pas sous les yeux les call-back de la feuille).

Bonne soirée.

[invite687cb95f]

Bonsoir,

Je pense que la solution pour moi serait d'avoir un petit fichier Excel avec l'application en état de fonctionnement .
Ainsi je serais sûr que ça fonctionne et je pourrais faire des essais de modifications des macros.
Sinon je suis parti pour reprendre des cours de macros et c'est trop pour moi et mes 66 balais ))

Merci et bonne soirée