boucle qui teste une cellule et joue un son quand celle ci .....

Question

Bonjour, 
voici la macro que j'ai actuellement et qui marchouille ! :):

sub timer()
application.ontime now + timevalue("00:00:01"), "jouer_son"
end sub

private sub jouer_son()
if range("horloge!c3").value = 1 then
chemein = activeworkbook.path
leson = chemin & "	ada.wav"
call playsound(leson, 0&, snd_async or snd_filename
end if
timer
end sub


le but de tout ça, est de vérifier l'état de c3 mais en décalant la boucle de 500 milisecondes pour être sûr de tomber sur ce créneau où c3 passe à 1 que pendant 1 seconde, et de jouer un son.
le soucis que j'ai: 
pour être sur de ne pas rater ce créneau de 1s ,j'ai du le passer à 2s( si jamais ma boucle se trouve synchronisée avec l'horloge, je rate le coche)
Maintenant, il arrive que le son joue 2 fois parfois.

Dans le pire des cas, si aucune solution n est simple, y a t'il une commande pour lire le son jusqu'à la fin de ce dernier et une seule fois en sachant que l'alarme suivante arrive 3 minutes après ?

merci

Whismeril · Answer

Bonjour, il semble que ta macro soit codée en VBA.
Il ne s'agit donc pas d'un projet VB.Net.
Je déplace le sujet.

Un autre point merci d'utiliser la coloration syntaxique
http://codes-sources.commentcamarche.net/faq/10686-le-nouveau-codes-sources-comment-ca-marche#balises-code .

jordane45 · Answer

Bonsoir,

Si le but est de surveiller ta cellule C3 ... pourquoi ne pas utiliser la méthode Change de ta feuille ?

http://msdn.microsoft.com/en-us/library/office/ff839775.aspx

Private Sub Worksheet_Change(ByVal Target As Range)
  Debug.Print Target.Address
  If Target.Address = "$C$3" Then
     If Target.Value = 1 Then MsgBox "je joue du piano debout...^^"
  End If
End Sub

ucfoutu · Answer

Bonjour,
As-tu une formule en C3 ?
Car si oui : l'évènement change doit concerner non la cellule C3, mais la cellule XX dont la modification génère celle de C3. Si la cellulle XX a elle-même une formule, il faudra considérer la modification de la cellule YY dont elle dépend, etc .... En bref : utiliser l'évènement Change concernant la toute première cellule sans formule générant un résultat par la formule située en C3. Ou alors utiliser l'évènement Calculate, qui serait toutefois très pénalisant si les recalculs concernent également d'autres cellules que celles directement liées à ton problème.
 
________________________
Réponse exacte ? => "REPONSE ACCEPTEE" facilitera les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement répéter son contenu. Je n'interviend

Boucle qui teste une cellule et joue un son quand celle ci .....

3 réponses

Votre réponse

Discussions similaires