Macro avec condition sonore

[guy72]

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

 

[lapix]

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

 

[Dull]

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 😀

 

[Dull]

Re : Macro avec condition sonore

Re Guy, le Fil,

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

Dans le code Feuil1 remplace

    If Range("A1") [COLOR=Red][B]= "50" [/B][/COLOR]Then
End Sub

Par

    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!

 

[guy72]

Re : Macro avec condition sonore

Salut Dull
ça fonctionne !!!!!

Merci

Cordialement
Guy