Son quand cellule non vide

Bonsoir je voudrai, que, quand la cellule A6 (par exemple) ou une autre de cette colonne, devient non vide j'ai un signal sonore qui vient de windows, est-ce possible ? merci

Bonsoir

A écouter

Les deux fichiers dans le même répertoire

Superbe, merci.

-- Dim Juin 05, 2011 7:40 am --

Et si je veux mettre le son sur autre disque dur ? merci

Bonjour à tous,

Une autre solution qui évite l'utilisation d'un fichier wave est d'utiliser l'API MessageBeep.

Sur la base du code de Banzai64, mettre le code suivant dans le code de la feuille :

Private Declare Function MessageBeep Lib "user32" (ByVal wType As Long) As Long
Private Sub Worksheet_Change(ByVal Target As Range)
Dim bip As Long
    If Target.Count > 1 Then Exit Sub
    If Not Intersect(Range("A1:A14"), Target) Is Nothing Then
        Debug.Print Target.Value
        If Target <> "" Then
        'l'API MessageBeep joue un son de type wave
            MessageBeep 0
        End If
    End If
End Sub

Merci pour ton code, mais je ne veux pas du beep de windows, je voudrais un son que je mettrais sur mon disque D:

Bonjour

Tu changes la ligne de Code de Feuil1 sur le modèle suivant

Call sndPlaySound32("D:\Mes documents\Wav\wmpaud2.wav", 0)

où tu peux voir l'indication du chemin d'accès complet du fichier.

Cordialement

Comblé, merci au suivant.

-- Dim Juin 05, 2011 9:36 pm --

Ce code me va très bien, mais est-ce possible de donner deux directions avec un (or) ?

Call sndPlaySound32("D:\Mes documents\Wav\wmpaud2.wav", 0)

Qu'entends-tu par donner 2 directions DJ FA ?

Par exemple soit le disque D ou le C.

Quel est le but de la manoeuvre ?

Et si tu fais comme ça

Call sndPlaySound32("D:\Mes documents\Wav\wmpaud2.wav", 0)
Call sndPlaySound32("C:\Mes documents\Wav\wmpaud2.wav", 0)

Oui, en fait c'est simple, merci à toi.