Discussion :

[bepbep]

Bonjour a tous,

J'essai sans succes de jouer un bip dans un fichier excel.
J'ai essayer cette methode la (la seule que j'ai trouvé) http://excel.developpez.com/faq/?pag...SonWaveFeuille

Mais il me sort une exception :

Erreur d'exécution '9'
l'indice n'appartient pas à la séléction.

Please Help

[Michel_M]

Bonjour,
regarde
http://www.developpez.net/forums/sho...d.php?t=342802

[bepbep]

Merci pour la réponse j'ai bien utilisé cette macro au final mais je n'arrive toujours pas lancer cette macro

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
Private Sub Worksheet_Change(ByVal Target As Range)
    If "$AA$2" = "Bip" Then
        PlayWAV()
    End If
End Sub

En sachant que PalWAV() est la macro que j'utilise

[Invité]

Bonjour Bepbep,

Dans votre sujet initial vous écrivez :

J'essaie sans succes de jouer un bip dans un fichier excel.

Voulez-vous entendre un fichier .wav ou une série de "Bip" ?

Dans le second cas :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Dim i, nb as integer
 
'Nombre de bip à émettre
nb = 3
If Range("$AA$2") = "Bip" Then
For i = 1 To nb   
    Beep    ' Émet une note.
Next i
End if

Amicalement.

[bepbep]

Merci jean jacques pour ta reponse

En faite peut importe un bip ou un wav...
J'ai juste besoin qu'il joue un son lorsqu'un cellule change

J'ai essayer avec cela mais il n'emet aucun son

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Private Sub Worksheet_Change(ByVal Target As Range)
    If "$AA$2" = "Bip" Then
        Dim i, nb As Integer
 
        'Nombre de bip à émettre
        nb = 3
 
        For i = 1 To nb
            Beep    ' Émet une note.
        Next i
    End If
End Sub

En gros mon problème est le suivant :
J'ai une feuille de calcul qui est projeté sur un mur par un videoprojecteur,
Cette feuille signale des erreurs mais j'aimerai pour que cela ai plus d'impact qu'il emete un son à chaque fois que la mise à jour des données externe s'effectue (si il y a une erreur) l'erreur est signaler par pas mal de chose y compris l'affichage dans la colone AA du mot "Bip" lorsqu'il faudrait en jouer un.

[Michel_M]

Re, Bonjour Jacques_Jean

Comme l'a écrit Jacques_Jean:

If range("$AA$2")= "bip" then....

et non
if "$AA$2"= "bip"

restons zen...