creation d'une alerte sonore sur Excel

Bonjour,

je souhaiterais savoir comment creer une alerte sonore sur excel. Cad si un niveau de prix par exemple est touche, recevoir une alerte ou un pop up.

je vous remercie par avance

Cordialemen

auds

Bonsoir le forum
Bonsoir auds

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Range("a1") = 1 Then Beep
End Sub

Ceci active le Beep interne du PC si la valeur de la cellule a pour valeur 1

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Range("a1") = 1 Then
'MsgBox "Attention valeur atteinte"
'End If
End Sub

Idem sauf que cette fois ci c'est un MsgBox qui apparaît

@ ++ Eric C

salut Eric C

ok je vais essayer c'est super en tout cas de m'avoir repondu t'es super cool

bonsoir et a bientot

tcho

re salut

ben ecoute, VBA et moi nous sommes faches , je n'arrive pas a le faire fonctionner.

tu aurais une autre solution a me proposer?

merci d'avance
auds
!^.^!

bonsoir,

les procédures montrées ci-dessus sont des procédures événementielles, leur code doit être dans le module de la feuille et non dans un module à part.

Pour ce faire tu copies le code du post ci dessus (une seule procédure). Tu vas dans Excel, tu te mets sur l'onglet concerné.
En faisant un clic droit sur le nom de l'onglet tu fais v"isualiser le code" et là tu peux coller la procédure.

a+

salut Sylvain,

super sympa pour la reponse
j'ai suivi les instructions a la lettre et rien ne se passe, ni MsgBox ni Beep...

La cellule qui devrait declencher le Beep varie et est lie a un autre fichier qui lui, lui envoie les donnees

je me demandais si le fait que dans la formule il y ait Range, c'est peut etre ca, car pour moi c'est juste une cellule qui doit declencher l'evenement...

tu serais un ange si tu pouvais encore m'aider... enfin, continuer a m'aider.....

merci
auds

Salut Auds, Eric, Sylvain and so one

Comme tout le mondesemble au dodo, je me permets de reprendre le focus...

A la place de

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

essaies:
Private Sub Worksheet_Change(ByVal Target As Range)


A+
Michel

bonsoir,


avec un petit exemple joint, qui se lance quand la valeur est 1 en A1.


A+

salut Michel,

CA MARCHE.... super sympa...
vous etes trop cools, Eric, slyvain et toi

Merci encore pour tout

biz
auds

Salut Sylvain,

super ca marche maintenant, je suis super contente...... youpi!!!

Un tout grand merci

bizz
auds

Bonsoir le forum,

Je joint ma petite contribution des BeepBeep sonore d'apès le fichier de Sylvain et les autres

Option Explicit

Private Declare Function Beep Lib "Kernel32" (ByVal Fq As Long, ByVal Tm As Long) As Long

Sub BeepBeep()
Beep 392, 200
Beep 494, 100
Beep 588, 200
Beep 740, 100
Beep 880, 400
Beep 740, 100
Beep 880, 900
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Range("A1") <> "" Then
Call BeepBeep
MsgBox "Attention valeur atteinte"
End If
End Sub

salut emg,

je vais essayer cette option pour voir ce que ca fait sur mon fichier et je te tiens au courant...

en tout cas, vous etes vraiment une sacree equipe,
tres contente d'etre venue sur ce forum

a plus les p'tits gars

auds