Comment obtenir une alerte, visuelle ou sonore, lorsque le contenu d'une case devient égal à une valeur prédifinie ?
;o))) par une fonction perso à copier dans un module standard
Private Declare Function PlaySound Lib "winmm.dll" _ Alias "PlaySoundA" (ByVal lpszName As String, _ ByVal hModule As Long, ByVal dwFlags As Long) As Long
Function GDAlarm(Cell, Inf, Sup) ' GeeDee, MPFE septembre 2004 ' Cette fonction est illustrée dans ce classeur exemple : ' http://www.excelabo.net/xl/compteclic.php?nom=multi-sonsi
' ----il faut définir 3 sons ' --les fichiers son doivent se trouver dans le répertoire courant ' ------------exemples ' menu insertion , Nom, définir ' son1 fait référence à : ="Chimes.wav" ' son2 fait référence à : ="notify.wav" ' son3 fait référence à : ="APPL01.wav" '------------- Dim WAVFile As String Dim SonX As Integer Const SND_ASYNC = &H1 Const SND_FILENAME = &H20000 On Error GoTo ErrHandler '--------adapter <= ou >= selon le cas SonX = IIf(Cell.Value < Inf, 1, IIf(Cell.Value > Sup, 3, 2)) WAVFile = ThisWorkbook.Path & "" & Evaluate("son" & SonX) Call PlaySound(WAVFile, 0&, SND_ASYNC Or SND_FILENAME) GDAlarm = "son : " & Evaluate("son" & SonX) Exit Function ErrHandler: GDAlarm = "Err: pas de son" End Function
-- n'oubliez pas les FAQ : http://www.excelabo.net http://dj.joss.free.fr/faq.htm http://www.faqoe.com http://faqword.free.fr -- Feed Back http://viadresse.com/?94912042
Comment obtenir une alerte, visuelle ou sonore, lorsque le contenu
d'une case devient égal à une valeur prédifinie ?
;o)))
par une fonction perso à copier dans un module standard
Private Declare Function PlaySound Lib "winmm.dll" _
Alias "PlaySoundA" (ByVal lpszName As String, _
ByVal hModule As Long, ByVal dwFlags As Long) As Long
Function GDAlarm(Cell, Inf, Sup)
' GeeDee, MPFE septembre 2004
' Cette fonction est illustrée dans ce classeur exemple :
' http://www.excelabo.net/xl/compteclic.php?nom=multi-sonsi
' ----il faut définir 3 sons
' --les fichiers son doivent se trouver dans le répertoire courant
' ------------exemples
' menu insertion , Nom, définir
' son1 fait référence à : ="Chimes.wav"
' son2 fait référence à : ="notify.wav"
' son3 fait référence à : ="APPL01.wav"
'-------------
Dim WAVFile As String
Dim SonX As Integer
Const SND_ASYNC = &H1
Const SND_FILENAME = &H20000
On Error GoTo ErrHandler
'--------adapter <= ou >= selon le cas
SonX = IIf(Cell.Value < Inf, 1, IIf(Cell.Value > Sup, 3, 2))
WAVFile = ThisWorkbook.Path & "" & Evaluate("son" & SonX)
Call PlaySound(WAVFile, 0&, SND_ASYNC Or SND_FILENAME)
GDAlarm = "son : " & Evaluate("son" & SonX)
Exit Function
ErrHandler:
GDAlarm = "Err: pas de son"
End Function
--
n'oubliez pas les FAQ :
http://www.excelabo.net http://dj.joss.free.fr/faq.htm
http://www.faqoe.com http://faqword.free.fr
--
Feed Back
http://viadresse.com/?94912042
Comment obtenir une alerte, visuelle ou sonore, lorsque le contenu d'une case devient égal à une valeur prédifinie ?
;o))) par une fonction perso à copier dans un module standard
Private Declare Function PlaySound Lib "winmm.dll" _ Alias "PlaySoundA" (ByVal lpszName As String, _ ByVal hModule As Long, ByVal dwFlags As Long) As Long
Function GDAlarm(Cell, Inf, Sup) ' GeeDee, MPFE septembre 2004 ' Cette fonction est illustrée dans ce classeur exemple : ' http://www.excelabo.net/xl/compteclic.php?nom=multi-sonsi
' ----il faut définir 3 sons ' --les fichiers son doivent se trouver dans le répertoire courant ' ------------exemples ' menu insertion , Nom, définir ' son1 fait référence à : ="Chimes.wav" ' son2 fait référence à : ="notify.wav" ' son3 fait référence à : ="APPL01.wav" '------------- Dim WAVFile As String Dim SonX As Integer Const SND_ASYNC = &H1 Const SND_FILENAME = &H20000 On Error GoTo ErrHandler '--------adapter <= ou >= selon le cas SonX = IIf(Cell.Value < Inf, 1, IIf(Cell.Value > Sup, 3, 2)) WAVFile = ThisWorkbook.Path & "" & Evaluate("son" & SonX) Call PlaySound(WAVFile, 0&, SND_ASYNC Or SND_FILENAME) GDAlarm = "son : " & Evaluate("son" & SonX) Exit Function ErrHandler: GDAlarm = "Err: pas de son" End Function
-- n'oubliez pas les FAQ : http://www.excelabo.net http://dj.joss.free.fr/faq.htm http://www.faqoe.com http://faqword.free.fr -- Feed Back http://viadresse.com/?94912042
Ouaips, j'ai essayé mais que mettre pour la condition VRAI ? J'ai essayé l'emplacement d'un fichier .wav, avec ou sans des bidule comme "play", "sound" ou autres "beep" ..........
Pour ce qu'il faut faire pour la condition FAUX ? Pas de problème !
Ouaips, j'ai essayé mais que mettre pour la condition VRAI ?
J'ai essayé l'emplacement d'un fichier .wav, avec ou sans des bidule
comme "play", "sound" ou autres "beep" ..........
Pour ce qu'il faut faire pour la condition FAUX ?
Pas de problème !
Ouaips, j'ai essayé mais que mettre pour la condition VRAI ? J'ai essayé l'emplacement d'un fichier .wav, avec ou sans des bidule comme "play", "sound" ou autres "beep" ..........
Pour ce qu'il faut faire pour la condition FAUX ? Pas de problème !
Ouaips, j'ai essayé mais que mettre pour la condition VRAI ? J'ai essayé l'emplacement d'un fichier .wav, avec ou sans des bidule comme "play", "sound" ou autres "beep" ..........
Pour ce qu'il faut faire pour la condition FAUX ? Pas de problème !
Ouaips, j'ai essayé mais que mettre pour la condition VRAI ?
J'ai essayé l'emplacement d'un fichier .wav, avec ou sans des bidule
comme "play", "sound" ou autres "beep" ..........
Pour ce qu'il faut faire pour la condition FAUX ?
Pas de problème !
Ouaips, j'ai essayé mais que mettre pour la condition VRAI ? J'ai essayé l'emplacement d'un fichier .wav, avec ou sans des bidule comme "play", "sound" ou autres "beep" ..........
Pour ce qu'il faut faire pour la condition FAUX ? Pas de problème !
D'un autre côté, si tu es dans un environnement de travail, je te déconseille les alarmes sonores...
Le travail ? Quelle horreur ! Non, ,non, je suis seul dans mes montagnes et à part les vaches, taupes et autres campagnoles, je ne vois qui viendrai se plaindre ...
D'un autre côté, si tu es dans un environnement de travail,
je te déconseille les alarmes sonores...
Le travail ?
Quelle horreur !
Non, ,non, je suis seul dans mes montagnes et à part les vaches, taupes
et autres campagnoles, je ne vois qui viendrai se plaindre ...
D'un autre côté, si tu es dans un environnement de travail, je te déconseille les alarmes sonores...
Le travail ? Quelle horreur ! Non, ,non, je suis seul dans mes montagnes et à part les vaches, taupes et autres campagnoles, je ne vois qui viendrai se plaindre ...
D'un autre côté, si tu es dans un environnement de travail, je te déconseille les alarmes sonores...
Le travail ? Quelle horreur ! Non, ,non, je suis seul dans mes montagnes et à part les vaches, taupes et autres campagnoles, je ne vois qui viendrai se plaindre ...
D'un autre côté, si tu es dans un environnement de travail,
je te déconseille les alarmes sonores...
Le travail ?
Quelle horreur !
Non, ,non, je suis seul dans mes montagnes et à part les vaches, taupes
et autres campagnoles, je ne vois qui viendrai se plaindre ...
D'un autre côté, si tu es dans un environnement de travail, je te déconseille les alarmes sonores...
Le travail ? Quelle horreur ! Non, ,non, je suis seul dans mes montagnes et à part les vaches, taupes et autres campagnoles, je ne vois qui viendrai se plaindre ...
Merci, Tout cela est bel et bon mais: - je l'avais utilisé pour changer les couleurs (fond et contenu) - ca ne permet pas de faire clignoter ou pour de la zique. Ce qui est étonnat car on a facilement accès au clignotement/défilemment dans word.
Merci,
Tout cela est bel et bon mais:
- je l'avais utilisé pour changer les couleurs (fond et contenu)
- ca ne permet pas de faire clignoter ou pour de la zique.
Ce qui est étonnat car on a facilement accès au clignotement/défilemment
dans word.
Merci, Tout cela est bel et bon mais: - je l'avais utilisé pour changer les couleurs (fond et contenu) - ca ne permet pas de faire clignoter ou pour de la zique. Ce qui est étonnat car on a facilement accès au clignotement/défilemment dans word.
