l'alerte sonore désactive le timer

[sellig 29]

Bonjour

Lorsque j'active une alerte sonore, le timer ne fonctionne plus. Les 2 ne sont peut être pas compatibles? je ne suis qu'un débutant VBA!

 

[jeanpierre]

Re : l'alerte sonore désactive le timer

Bonsoir sellig 29,

Pour te souhaiter la Bienvenue déjà, mais :

En Excel, j'ai personnellement horreur du timer. Cela bloque quelque peu ou des fois beaucoup le travail que l'on peut faire....

Néanmoins, mets nous un exemple de ton fichier, pour voir (comme au poker) le problème.

A te lire.

Jean-Pierre

 

[sellig 29]

Re : l'alerte sonore désactive le timer

Bonsoir sellig 29,

Pour te souhaiter la Bienvenue déjà, mais :

En Excel, j'ai personnellement horreur du timer. Cela bloque quelque peu ou des fois beaucoup le travail que l'on peut faire....

Néanmoins, mets nous un exemple de ton fichier, pour voir (comme au poker) le problème.

A te lire.

Jean-Pierre

Merci Jean Pierre

Je te joins le fichier, le timer fonctionne uniquement sur une feuille!
Si tu peux m'apporter ton aide?

 

[jeanpierre]

Re : l'alerte sonore désactive le timer

Re,

Déjà, à l'ouverture, j'ai erreur 438....

Faut que je cherche...

Néanmoins, ton Beep, beep fonctionne, c'est déjà une bonne chose....

 

[VE2LY]

Re : l'alerte sonore désactive le timer

Bonjour le forum.

J'ai monté un projet avec plusieurs similitude grace a ce forum alors c'est avec plaisir que je retourne l'ascenseur ;-). J'ai du dégraisser le fichier mais l'essentiel y est. C'est un tableau de départ de trains. 20 secondes avant le départ une alarme sonne quelques secondes + mfc qui change couleur puis la cellule plus bas est sélectionnée. Tu devra adapter le code pour le chemin et le nom du fichier wav. Le bouton marqué H est une macro pour repartir le timer car si on fait d'autres applications excel avec macros ça fait parfois arreter le vba du timer.

Yves

 

[sellig 29]

Re : l'alerte sonore désactive le timer

Merci Yves, je vais étudier cela de plus près, cela me semble très interessant! En tant que novice en VBA, je serai peut être amené à te demander toutefois quelques précisions plus tard...

 

[BERRACHED said]

Re : l'alerte sonore désactive le timer

Salut,sellig 29,jeanpierre,VE2LY

Pour un déclenchement du beep tout les 10 seconde voici une adaptation :

Option Explicit
Dim newHour
Dim newMinute
Dim newSecond
Dim WaitTime
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_Activate()
Range("A1").Value = TimeSerial(newHour, newMinute, newSecond)
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
lancebeep
End Sub

Sub lancebeep()
If Range("a2") = 1 Then
newHour = Hour(Now())
newMinute = Minute(Now())
newSecond = Second(Now()) + 10
WaitTime = TimeSerial(newHour, newMinute, newSecond)
Application.Wait WaitTime
BeepBeep
MsgBox "Attention ALERTE!!!"
End If
End Sub

Cordialement