Comment déclencher un son ou une macro sous condition ?

J

Jannoch

XLDnaute Nouveau
Bonjour à vous tous ! :)
Je viens soliciter votre aide car après avoir rammé pendant des heures je n'ai pas réussi à résoudre mon problème.
La version d'excel est de 2002.
Le but recherché est que lorsque la valeur contenue dans une cellule donnée atteint un niveau donné, cela déclenche automatiquement un son wave situé sur le disque dur .......
J'ai trouvé des solutions potentielles sur le net mais aucune ne fonctionne ou alors je m'y suis mal pris...... j'ai donc créé une macro qui déclenche un double clic sur un objet ( comprenant le son wave ) situé sur la feuille, puis essayé de faire executer la macro en automatique ...... la aussi rien ne fonctionne......:confused:
Merci de bien vouloir m'aider...
 
Trier par date Trier par votes
wilfried_42

wilfried_42

XLDnaute Barbatruc
Re : Comment déclencher un son ou une macro sous condition ?

Bonjur

Option Explicit

Declare Function sndPlaySound32 Lib "C:\WINDOWS\SYSTEM32\winmm.dll" _
Alias "sndPlaySoundA" (ByVal lpszSoundName As String, _
ByVal uFlags As Long) As Long

Public Sub message(gw_mess As String)
Call sndPlaySound32(ThisWorkbook.Path & "\Sons\" & gw_mess & ".Wav", 0)
End Sub
Cliquez pour agrandir...

Cela fonctionne, je l'ai essayé
 
Vote positif 0 Vote négatif
J

Jannoch

XLDnaute Nouveau
Re : Comment déclencher un son ou une macro sous condition ?

Bonjour Wielfried !
Merci pour ta réponse.
Je suppose que je dois faire un copier-coller du texte de l'encadré .... mais ou dois-je le coller ?
D'autre part ou dois-je indiquer le chemin du son wave ainsi que la position de la cellule, et la valeur à atteindre pour le declenchement du son ?
Merci d'avance !
Cordialement.
 
Vote positif 0 Vote négatif
wilfried_42

wilfried_42

XLDnaute Barbatruc
Re : Comment déclencher un son ou une macro sous condition ?

re:

le copier coller des lignes est à mettre dans un module

Call sndPlaySound32(ThisWorkbook.Path & "\Sons\" & gw_mess & ".Wav", 0)

en rouge c'est le chemin que j'utilise

Thisworkbook.path contient le chemin de mon classeur, et ensuite j'ai un sous repertoire qui s'appelle Sons, donc mon chemin est en fonction de l'endroit ou se trouve mon classeur

gw_mess est le nom du fichier que je veux entendre

.wav est l'extension
 
Vote positif 0 Vote négatif
J

Jannoch

XLDnaute Nouveau
Re : Comment déclencher un son ou une macro sous condition ?

Bon voila ce que j'ai fais
J'ai créer une macro au nom de " Son" qui se declenche avec Ctrl s
Ensuite j'ai coller le code en y insérant le chemin du son ( D:Musique\Bob Hare in spania percus.wav ) Voila ce que cela donne:

Sub Son()
'
' Son Macro
' Macro enregistrée le 15/10/2007 par WinUranium
'
' Touche de raccourci du clavier: Ctrl+s
Option Explicit

Declare Function sndPlaySound32 Lib "C:\WINDOWS\SYSTEM32\winmm.dll" _
Alias "sndPlaySoundA" (ByVal lpszSoundName As String, _
ByVal uFlags As Long) As Long

Public Sub message(gw_mess As String)
Call sndPlaySound32(ThisWorkbook.Path "D:Musique\Bob Hare in Spania Percus.Wav", 0)
End Sub


Lorsque je fais ctrl s pour déclencher la macro, Excel sauvegarde le fichier.....
Donc cela ne fonctionne pas......
Et ou et à quel moment doit-on spécifier la position de la cellule ainsi que la valeur à laquelle le son doit ètre lu ?
Que dois-je faire ?
Merci.
 
Vote positif 0 Vote négatif
wilfried_42

wilfried_42

XLDnaute Barbatruc
Re : Comment déclencher un son ou une macro sous condition ?

re:

Excel utilise beaucoup de racourci clavier pour lancer des taches

comme la sauvegarde, le copier/coler, La recherche ..............

Il faut eviter d'utiliser ces racoucis, quand tu te balade dans les menus, tu as de temps en temps les racourcis qui sont afficher

je ne les connais pas tous par coeur désolé

de plus

Public Sub message(gw_mess As String)
Call sndPlaySound32(ThisWorkbook.Path "D:Musique\Bob Hare in Spania Percus.Wav", 0)
End Sub

à enlever ce qui est en rouge
 
Vote positif 0 Vote négatif
J

Jannoch

XLDnaute Nouveau
Re : Comment déclencher un son ou une macro sous condition ?

Bonjour Wielfried !
Dans le code que tu proposes , deux paramètres n'apparaissent pas ......la localisation de la cellule concernée et le seuil de déclenchement du son ....
Qu'en penses-tu ?
Merci
 
Vote positif 0 Vote négatif
Pierrot93

Pierrot93

XLDnaute Barbatruc
Re : Comment déclencher un son ou une macro sous condition ?

Bonjour Jannoh, Wilfried

sur la base d'un code de MichelXld(merci à lui :)), macro événementielle à placer dans le module de la feuille concernée :

Code: 
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Sp As Object
If Target.Count = 1 Then
    If Target.Address(0, 0) = "A1" And Target.Value > 9 Then
        Set Sp = CreateObject("Sapi.SpVoice")
            If Sp Is Nothing Then Exit Sub
        Sp.Speak "no ok , pass"
    End If
End If
End Sub

teste la valeur de la cellule A1, se déclenche si supérieur à 9.

bon après midi
@+i
 
Vote positif 0 Vote négatif
Dull

Dull

XLDnaute Barbatruc
Re : Comment déclencher un son ou une macro sous condition ?

Salut Jeannoch, Wilfried, Pierrot, le Forum

Une autre version en pièce jointe

Bonne Journée

PS:a décomprésser dans le même fichier
 

Pièces jointes

  • Son.zip
    71.3 KB · Affichages: 151
  • Son.zip
    71.3 KB · Affichages: 124
  • Son.zip
    71.3 KB · Affichages: 128
Vote positif 0 Vote négatif
J

Jannoch

XLDnaute Nouveau
Re : Comment déclencher un son ou une macro sous condition ?

Bonjour Pierrot !
Merci pour ta réponse......
Ou se trouve le module de la feuille et comment y accède-t-on ?
Dois-t-on mettre le chemin du son ( D:Musique\Bob Hare in Spania Percus.Wav ) à la place de : Sapi.SpVoice ? ..... ou comment ?
Merci bien !
 
Vote positif 0 Vote négatif
wilfried_42

wilfried_42

XLDnaute Barbatruc
Re : Comment déclencher un son ou une macro sous condition ?

re:

ton code

Code: 
Sub Son()
'
' Son Macro
' Macro enregistrée le 15/10/2007 par WinUranium
'
' Touche de raccourci du clavier: Ctrl+s
Option Explicit

Declare Function sndPlaySound32 Lib "C:\WINDOWS\SYSTEM32\winmm.dll" _
Alias "sndPlaySoundA" (ByVal lpszSoundName As String, _
ByVal uFlags As Long) As Long

Public Sub message(gw_mess As String)
Call sndPlaySound32(ThisWorkbook.Path "D:Musique\Bob Hare in Spania Percus.Wav", 0)
End Sub

le code :

Code: 
'
' Son Macro
' Macro enregistrée le 15/10/2007 par WinUranium
'
' Touche de raccourci du clavier: Ctrl+s
Option Explicit

Declare Function sndPlaySound32 Lib "C:\WINDOWS\SYSTEM32\winmm.dll" _
Alias "sndPlaySoundA" (ByVal lpszSoundName As String, _
ByVal uFlags As Long) As Long

Public Sub message()
Call sndPlaySound32("D:Musique\Bob Hare in Spania Percus.Wav", 0)
End Sub

Fait une recherche sur mot cle : wav*

tu trouveras la meme chose

Un decrare se fait avant les Sub

Sub son() avant un decrare n'est pas correct
Gw_mess as string n'est pas util, c'etait un parametre contenant le nom du fichier à ecouter

acction pour ecoute un fichier
call message
 
Vote positif 0 Vote négatif
J

Jannoch

XLDnaute Nouveau
Re : Comment déclencher un son ou une macro sous condition ?

Pierrot93 à dit:
Bonjour Jannoh, Wilfried

sur la base d'un code de MichelXld(merci à lui :)), macro événementielle à placer dans le module de la feuille concernée :

Code: 
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Sp As Object
If Target.Count = 1 Then
    If Target.Address(0, 0) = "A1" And Target.Value > 9 Then
        Set Sp = CreateObject("Sapi.SpVoice")
            If Sp Is Nothing Then Exit Sub
        Sp.Speak "no ok , pass"
    End If
End If
End Sub

teste la valeur de la cellule A1, se déclenche si supérieur à 9.

bon après midi
@+i
Cliquez pour agrandir...


Super Pierrot ça fonctionne presque.....
Quand j' inscris manuellement dans la cellule A1 "10" le son se déclenche.........
Mais en fait le contenu de la cellule A1 est ( pour simplifier ) le résultat
d' une opération.......
Donc si par exemple je mets dans la cellule A1 : =A2 et que la valeur dans A2 passe à 10 , automatiquement 10 s'inscrit en A1, mais malheureusement le son ne se déclenche pas.....Que faire ?!
Bon voila......
Merci à tous pour votre aide.... on y est presque !
 
Vote positif 0 Vote négatif

Discussions similaires

Etoto
  • Résolu(e)
Microsoft 365 Macro Excel qui n'arrive pas à enregistrer un doc Word
Réponses
10
Affichages
857
xUpsilon
xUpsilon
Magic_Doctor
  • Question
XL 2010 Pouvoir déclencher une macro si et seulement si on a sélectionné certaines cellules
Réponses
7
Affichages
802
Magic_Doctor
Magic_Doctor
S
  • Question
Autres Lourdeur du fichier excel et lenteur du traitement macro : comment identifier les éléments générant ces lenteurs et lourdeurs et comment optimiser ?
Réponses
9
Affichages
4 K
TooFatBoy
TooFatBoy
B
  • Résolu(e)
XL 2016 Déclencher une macro en appuyant sur un bouton du clavier
Réponses
6
Affichages
1 K
Bruno59
B
N
  • Résolu(e)
Gérer Active.document de Word depuis Excel
Réponses
3
Affichages
2 K
n.excel
N
P
  • Question
XL 2019 Enregistrer et imprimer une feuille en pdf
Réponses
9
Affichages
2 K
PeewhY
P
M
  • Question
XL 2019 comment enregistrer une macro qui inclut un lien hypertexte et l'impression d'un fichier word
Réponses
4
Affichages
3 K
mama123
M
BenHarber
  • Question
XL 2013 Déclencher une macro à partir de l'utilisation d'un filtre
Réponses
10
Affichages
1 K
job75
job75
B
  • Question
Comment copier par une macro une colonne et coller dans le tableau d'une autre feuille
Réponses
10
Affichages
4 K
bidouill
B
benoitoleron
  • Résolu(e)
Microsoft 365 Remplacer une valeur saisie après recherche dans une liste sur un autre onglet
Réponses
4
Affichages
1 K
benoitoleron
benoitoleron

Membres actuellement en ligne

3 membres et 41 invités.

Partager cette page

Tutos vidéos

Power Query : Ajouter des requêtes (Excel et Power BI)
Créez votre première fonction LAMBDA dans Excel en 3 étapes!
LAMBDA, l’arme secrète de Microsoft pour Excel !
Office Insider - Découvrez les nouveautés Excel avant tout le monde

Statistiques des forums

Discussions
312 215
Messages
2 086 329
Membres
103 184
dernier inscrit
Di Martino