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

Créer une discussion
Répondre
  • Initiateur de la discussion Initiateur de la discussion Jannoch
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
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......😕
Merci de bien vouloir m'aider...
 
Trier par date Trier par votes
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
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
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
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
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
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
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
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
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
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
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

W
  • Résolu(e)
XL 2016 Ordonner une cellule ou un pavé de cellules contenant des chr(10)
Réponses
5
Affichages
623
Webperegrino
W
Etoto
  • Résolu(e)
Microsoft 365 Macro Excel qui n'arrive pas à enregistrer un doc Word
Réponses
10
Affichages
1 K
xUpsilon
xUpsilon
Magic_Doctor
  • Question Question
XL 2010 Pouvoir déclencher une macro si et seulement si on a sélectionné certaines cellules
Réponses
7
Affichages
907
Magic_Doctor
Magic_Doctor
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
S
  • Question 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
5 K
TooFatBoy
TooFatBoy
N
  • Résolu(e)
Gérer Active.document de Word depuis Excel
Réponses
3
Affichages
2 K
n.excel
N
P
  • Question Question
XL 2019 Enregistrer et imprimer une feuille en pdf
Réponses
9
Affichages
2 K
PeewhY
P
M
  • Question 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
benoitoleron
  • Résolu(e)
Microsoft 365 Remplacer une valeur saisie après recherche dans une liste sur un autre onglet
Réponses
4
Affichages
2 K
benoitoleron
benoitoleron
BenHarber
  • Question Question
XL 2013 Déclencher une macro à partir de l'utilisation d'un filtre
Réponses
10
Affichages
1 K
job75
job75
B
  • Question Question
Comment copier par une macro une colonne et coller dans le tableau d'une autre feuille
Réponses
10
Affichages
5 K
bidouill
B
C
  • Question Question
XL 2013 Appliquer une macro sous condition
Réponses
3
Affichages
899
creolia
C
B
  • Question Question
Microsoft 365 Mettre une macro en pause pour télécharger un fichier
Réponses
4
Affichages
1 K
eriiic
eriiic
E
  • Question Question
XL 2010 Copier bouton avec macro attachée
Réponses
2
Affichages
1 K
etpisculrien
E
A
  • Question Question
Créer un macro pour une recherche V
Réponses
12
Affichages
5 K
Aimy67
A
M
  • Question Question
copier-coller fichier vers un autre sous condition
Réponses
1
Affichages
783
Lone-wolf
Lone-wolf
B
  • Question Question
XL 2013 aide pour macro recherche
Réponses
2
Affichages
565
Paritec
Paritec
Z
  • Question Question
XL 2013 Fusionner 2 macro dont erreur dans un des codes
Réponses
4
Affichages
815
zombe
Z
allarmen
  • Question Question
XL 2010 Créer une macro permettant d'enregistrer un fichier avec prise en charge des macros
2
Réponses
25
Affichages
5 K
Staple1600
Staple1600
G
  • Question Question
Comment faire pour "épurer" un copier-coller depuis une liste importée ?
Réponses
1
Affichages
1 K
zebanx
zebanx
Retour