annee 2017

EXCEL ANNEE 2017

L'heure est venue de vous presenter

Une excel et bonne annee 2017 !

De la part de toute l equipe de VeriTi

Image 1

Bienvenue

sur le site des amis d'Excel

excel.veriti.net ou fr

Image 2

Musee

Visitez le "Musee VeriTi" 24h/24 - 7j/7, des "pepites" vous y attendent

Voir la suite
Image 3

Hommage

Thierry POURTIER alias 'Ti'
s'en est alle brutalement le samedi 13 novembre 2010...

Voir la suite
Image 4

Historique

Juillet 2013 : A l'occasion du 10eme anniversaire de VeriTi, j'ai décide de réparer et de remettre en ligne le site, avec une nouvelle version plus structurée tout en gardant les mêmes fichiers Excel

Voir la suite

Membre

+ Enregistrement
Message du rapport :*
Code de Confirmation*
1 + 4 = ?  
Entrez le résultat de l'expression
Maximum de tentatives que vous pouvez essayer : 10
 

Re : macro control cellule en boucle avec une tempo entre chaque boucle

Objet : Re : macro control cellule en boucle avec une tempo entre chaque boucle
par dann sur 25/02/2014 21:37:53

bonjour,
déjà, merci d'avoir répondu.
ton code fonctionne en autonome.
Maintenant,je t'explique:
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 & "\tada.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


Copyright 2013 Powered by XOOPS © 2001-2013