Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Macro avec condition sonore

  • Initiateur de la discussion Initiateur de la discussion guy72
  • 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 !

guy72

XLDnaute Impliqué
Bonjour,
J'ai fais des recherches pour avoir un résultat sonore avec condition.
Je n'arrive pas à trouver (ou tout du moins à modifier).

J'ai actuellement le code suivant :

Private Sub Worksheet_Change(ByVal Target As Range)
Select Case ActiveSheet.Range("A1")
Case Is = 50
Call Bravo
Case Else
End Select
End Sub

Est-il possible d'incérer une macro (ou de faire une nouvelle macro)
sonore (par exemple un applaudissement quand la cellule A1 atteint 50)

Merci de votre aide

Cordialement
Guy
 
Re : Macro avec condition sonore

Salut,

La solution n'est peut etre pas la meilleure mais elle fonctionne :

Sub bravo()
a = Shell("C:\Program Files\Windows Media Player\wmplayer.exe E:\systeme\ctmelody.wav", vbMinimizedNoFocus)
End Sub

Reste a voir si il existe un %programfile% qui pourrait remplacer le chemin complet du lecteur window media
 
Re : Macro avec condition sonore

Salut Guy, le Forum,


Regardes le dossier joint (à décompresser dans un même fichier)

Tiré d'un fichier d'exelabo

BOUHHHHH,lefichier.wav-esttropgros

je te le joint via Ici


En espèrant avoir pu t'aider

PS: Salut Lapix on devrais t'appeler SpeedyLapix 😀
 
Dernière édition:
Re : Macro avec condition sonore

Re Guy, le Fil,

J'avais mal lu 😕 re...bouhhhhhhh 😱

Dans le code Feuil1 remplace
Code:
    If Range("A1") [COLOR=Red][B]= "50" [/B][/COLOR]Then
End Sub
Par
Code:
    If Range("A1") [B][COLOR=Red]>= "50"[/COLOR][/B] Then
End Sub

Est-il possible d'incérer une macro (ou de faire une nouvelle macro)
sonore (par exemple un applaudissement quand la cellule A1 atteint 50)
Apparement c'est une formule!
 
- 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

Réponses
9
Affichages
508
  • Question Question
Microsoft 365 Probléme VBA
Réponses
8
Affichages
588
Réponses
7
Affichages
367
Réponses
4
Affichages
586
Réponses
4
Affichages
521
  • Question Question
Microsoft 365 worksheet_change
Réponses
29
Affichages
1 K
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…