sonnerie d alerte

[ramiattia]

Bonsoir,

Je cherche à faire declencher une sonnerie des que la cellule prend une valeur convenue ?
Y a t-il une fonction pour cela ?

 

[mth]

Re : sonnerie d alerte

Bonsoir raramiattia,

Grace à VBA il est possible d'émettre un beep, ceci dit...
- et d'une il faut une macro,
- et de deux, il ne faut pas avoir l'oreille distraite,

du coup une mise en forme conditionnelle, mettant la cellule en question en valeur genre rouge vif si la valeur en question est constatée, est peut-être mieux adaptée ?

@ +

mth

 

[Pierrot93]

Re : sonnerie d alerte

Bonjour ramiattia, Mireille🙂,

essaye le code ci-dessous à placer dans le module de la feuille concernée, mais comme l'a fait remarquer mth, une mise en forme conditionnelle serait peut être plus appropriée..

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" And Target.Value = "X" Then Beep
End Sub

bonne journée
@+

 

[gillesdemev]

Re : sonnerie d alerte

Bonjour toutes et tous
Dans une macro j'ai utilisé ce code

Sub JouerSon()

Dim MonWav As String
MonWav = "J:\$$data\SONS\BELLPEAL.WAV" '... chemin et nom à adapter
Call PlaySound(MonWav, 0&, SND_ASYNC Or SND_FILENAME)
End Sub

il peut faire appel à un WAV très bruyant
amitiés
Gilles

 

[ramiattia]

Re : sonnerie d alerte

Bonsoir mireille; bonsoir tt le monde,

En fait j'ai bien besoin d être reveillé donc c la sonnerie que je veux 🙂

Excuse moi mais je ne sais faire que des macros, donc peux tu svp me dire ou se trouve le module de la feuille?

merci d'avance bcp!

 

[ramiattia]

Re : sonnerie d alerte

Mireille en effet ce marche bien quand la cellule est mise à jour manuellement
or ma cellule est alimenté par un lien DDE et qd la valeur change il n'y a pas de BIP;

Il faut rajouter une instruction ??

 

[mth]

Re : sonnerie d alerte

re 🙂

ramiattia, tu évoques certainement le code de Pierrot ou de gillesdemev (moi je ne proposais qu'une MFC aphone 🙂 )

Si ta cellule se met à jour via un lien, je ne vois pas d'événements particuliers permettant lancer la macro.
Une piste (peut-être ?), en utilisant la méthode On Time.

Je me suis inspirée à 100% des explications fournies par myDearFriend ici

Dans le module standart donc comme expliqué par myDearFriend:

Sub Tempo()
Dim Tps As Date
'Programmation de l'évènement toutes les minutes
Tps = Now + TimeValue("00:01:00")
Application.OnTime Tps, "Tempo"
If Sheets("Feuil1").Range("A1") = "X" Then Beep
End Sub
Sub StopTempo()
On Error Resume Next
'Stopper la gestion de l'évènement OnTime en cours
Application.OnTime Tps, "Tempo", , False
End Sub

Dans Thisworkbook:

Option Explicit
Private Sub Workbook_BeforeClose(Cancel As Boolean)
StopTempo
End Sub

ça beepe chez moi dès que la cellule A1 est mise à jour par une formule, à X (X majuscule)

Vois si cette démarche peut t'intéresser, et le tuto de Didier pourra t'aider.
Tu auras sûrement d'autres pistes, (je ne m'y connais pas assez pour te proposer autre chose ...)

Bien à toi,

mth

 

[ramiattia]

Re : sonnerie d alerte

Merci mireille!
En fait ca ne marche toujours pas pour la meme raison, à savoir que Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) n'est pas renseignée du changement de la valeur de la cellule quant cette derniére est alimentée par un lien DDE.

Quelqun pourrait m'orienter SVP?

 

[mth]

Re : sonnerie d alerte

re 🙂

je ne vois pas de quel Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) tu parles .... 😕

Bonne soirée,

mth

 

[ramiattia]

Re : sonnerie d alerte

Tu m'a fait rire 🙂)
en fait le probleme c'est quant une cellule est alimentée par ailleurs que de la feuille elle même ca ne bip pas;

j'avoue que je me suis mélé les pinceaux, en aissayant de trouver une solution, si tu regarde ce qu'a proposé pierrot93, tu trouvera cet objet
c'est un detecteur de changement sur la feuille, mais tant que c'est une liason externe il ne la voit pas
La solution proposé par mydearfriend, c'est d'utiliser

Private Sub Worksheet_Calculate()
ThisWorkbook.Workbook_SheetChange Me, Cells
End Sub

En fait elle devrait obliger le recalcul de la cellule pour quel prenne la valeur affichée, ouu du moin c'est ce que j 'ai compris
bref je suis pas sorti de l'auberge, entre temps sa m'oblige à regarder mon ecran pour savoir si la valeur de merde à changée 🙂))
cordialement!

 

[mth]

Re : sonnerie d alerte

re 🙂

sourire.... oui, c'est ce que je voulais dire par là:

Si ta cellule se met à jour via un lien, je ne vois pas d'événements particuliers permettant lancer la macro.

mais à la relecture je reconnais que mes propos n'étaient pas d'une limpidité absolue 🙂

A tout hasard, si tu casais un Calculate ? genre par ici:

Application.OnTime Tps, "Tempo"
Calculate
If Sheets("Feuil1").Range("A1") = "X" Then Beep
End Sub

Je n'ai pas testé, j'ai un fichier un peu sensible sur le feu que je n'ose pas interrompre, donc désolée de te proposer ça "à la volée" sans avoir vérifié avant 😱

@ +

m

 

[ramiattia]

Re : sonnerie d alerte

c mal engagé ce truc, je crois que ca va donner du fil à retordre, anyway merci bien et si jamais il te venais une idée...

@+

 

[Pierrot93]

Re : sonnerie d alerte

Bonjour ramiattia, Mireille🙂

essaye peut être de placer le code dans l'événement "calculate" de la feuille en question, à vérifier si celui-ci se déclenche lors de la mise à jour :

Private Sub Worksheet_Calculate()

bonne journée
@+