Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
P.Bastard
Bonjour, Guy72.
Le fichier trompette.wav étant dans le même répertoire que ton classeur :
Dans un module :
'Permet à Excel de jouer des sons .wav Declare Function sndPlaySound32 Lib "winmm.dll" Alias "sndPlaySoundA" _ (ByVal lpszSoundName As String, ByVal uFlags As Long) _ As Long
Sub Son() 'Message sonore Call sndPlaySound32(ThisWorkbook.Path & "trompette.wav", 1) End Sub
Dans ta feuille :
If test Then Son End If
A tester.
-- Bien ,
patrick.bastardchezdbmail.com
"Guy72" a écrit dans le message de news:
Comment faire démarrer un son quand il y a le mot "Gagné" dans la cellule 05 ? Merci de votre aide. -- Cordialement Guy
Bonjour, Guy72.
Le fichier trompette.wav étant dans le même répertoire que ton classeur :
Dans un module :
'Permet à Excel de jouer des sons .wav
Declare Function sndPlaySound32 Lib "winmm.dll" Alias "sndPlaySoundA" _
(ByVal lpszSoundName As String, ByVal uFlags
As Long) _
As Long
Sub Son()
'Message sonore
Call sndPlaySound32(ThisWorkbook.Path & "trompette.wav", 1)
End Sub
Dans ta feuille :
If test Then
Son
End If
A tester.
--
Bien amicordi@lement,
patrick.bastardchezdbmail.com
"Guy72" <guy72@bonjour.tous> a écrit dans le message de
news:uwFGGY5JJHA.3976@TK2MSFTNGP03.phx.gbl...
Comment faire démarrer un son quand il y a le mot "Gagné" dans la cellule
05 ?
Merci de votre aide.
--
Cordialement
Guy
Le fichier trompette.wav étant dans le même répertoire que ton classeur :
Dans un module :
'Permet à Excel de jouer des sons .wav Declare Function sndPlaySound32 Lib "winmm.dll" Alias "sndPlaySoundA" _ (ByVal lpszSoundName As String, ByVal uFlags As Long) _ As Long
Sub Son() 'Message sonore Call sndPlaySound32(ThisWorkbook.Path & "trompette.wav", 1) End Sub
Dans ta feuille :
If test Then Son End If
A tester.
-- Bien ,
patrick.bastardchezdbmail.com
"Guy72" a écrit dans le message de news:
Comment faire démarrer un son quand il y a le mot "Gagné" dans la cellule 05 ? Merci de votre aide. -- Cordialement Guy
Modeste
Bonsour® Guy72 avec ferveur ;o))) vous nous disiez :
Comment faire démarrer un son quand il y a le mot "Gagné" dans la cellule 05 ?
Grace à la macro à la fonction Excel4 : Application.ExecuteExcel4Macro "SOUND.PLAY(,""CHEMINDUSON"")"
Tu mets la macro suivante dans le code de la feuille dans laquelles il y a ta cellule O5 :
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = Cells(5, 15).Address And Target.Value = "Gagné" Then Application.ExecuteExcel4Macro "SOUND.PLAY(,""CHEMINDUSON"")" End If End Sub
Cordialement,
F.
Salut,
Grace à la macro à la fonction Excel4 :
Application.ExecuteExcel4Macro "SOUND.PLAY(,""CHEMINDUSON"")"
Tu mets la macro suivante dans le code de la feuille dans laquelles il
y a ta cellule O5 :
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = Cells(5, 15).Address And Target.Value =
"Gagné" Then
Application.ExecuteExcel4Macro "SOUND.PLAY(,""CHEMINDUSON"")"
End If
End Sub
Grace à la macro à la fonction Excel4 : Application.ExecuteExcel4Macro "SOUND.PLAY(,""CHEMINDUSON"")"
Tu mets la macro suivante dans le code de la feuille dans laquelles il y a ta cellule O5 :
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = Cells(5, 15).Address And Target.Value = "Gagné" Then Application.ExecuteExcel4Macro "SOUND.PLAY(,""CHEMINDUSON"")" End If End Sub
Cordialement,
F.
Guy72
Merci de vos réponse, mais je souhaiterais un son qui se trouve dans. "C:WINDOWSMEDIATADA.WAV" -- Cordialement Guy
"Guy72" a écrit dans le message de news:
Comment faire démarrer un son quand il y a le mot "Gagné" dans la cellule 05 ? Merci de votre aide. -- Cordialement Guy
Merci de vos réponse, mais je souhaiterais un son qui se trouve dans.
"C:WINDOWSMEDIATADA.WAV"
--
Cordialement
Guy
"Guy72" <guy72@bonjour.tous> a écrit dans le message de news:
uwFGGY5JJHA.3976@TK2MSFTNGP03.phx.gbl...
Comment faire démarrer un son quand il y a le mot "Gagné" dans la cellule
05 ?
Merci de votre aide.
--
Cordialement
Guy
Merci de vos réponse, mais je souhaiterais un son qui se trouve dans. "C:WINDOWSMEDIATADA.WAV" -- Cordialement Guy
"Guy72" a écrit dans le message de news:
Comment faire démarrer un son quand il y a le mot "Gagné" dans la cellule 05 ? Merci de votre aide. -- Cordialement Guy
FdeCourt
Salut, Essayes :
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = Cells(5, 15).Address _ And Target.Value = "Gagné" Then Application.ExecuteExcel4Macro _ "SOUND.PLAY ,""C:WINDOWSMEDIATADA.WAV"")" End If End Sub
Cordialement,
F.
Salut,
Essayes :
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = Cells(5, 15).Address _
And Target.Value = "Gagné" Then
Application.ExecuteExcel4Macro _
"SOUND.PLAY ,""C:WINDOWSMEDIATADA.WAV"")"
End If
End Sub
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = Cells(5, 15).Address _ And Target.Value = "Gagné" Then Application.ExecuteExcel4Macro _ "SOUND.PLAY ,""C:WINDOWSMEDIATADA.WAV"")" End If End Sub