Créer un signal sonore suivant un tableau Excel
Bonjour. Je souhaite créer un signal sonore à un interval de temps x qui change après une série de répétition.
Dans le fichier joint il y a un tableau (en jaune) ou j'ai calculé tous mes intervals.
Il se lit de gauche à droite, ensuite ligne suivante. exemple: "bip" à 0 seconde, ensuite àprès 13,6 secondes ...etc
Pour la petite histoire ce sont des temps de passage tous les 20 mètres. celà dure 20 minutes.
Merci de votre aide
Bonjour. Bienvenue sur le Forum
Comme personne ne semble répondre, une Macro d'un modèle quasi disparu avec un Code XL4 sur la feuille masquée "Macro1"
comme je connais les spécialistes VBA, il s'en trouvera bien un pour transformer (j'espère).
Cordialement
Bonsoir Mnicolas, Amadeus
essaie cette petite macro, je ne suis pas un spécialiste de VBA donc si le forum a des améliorations ou des remarques,
je suis preneur.
Pour la tester, la valeur coeff est à 10. A mettre à 1000 pour l'utilisation "réelle".
J'ai pris les intervalles de temps sur les cellules E4 à E8.
Declare Function Beep Lib "kernel32" (ByVal Frequence As Long, ByVal duree As Long) As Long
Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Sub son()
Dim i%, coeff%, r%
Dim t As Date
Dim duree As Long
coeff = 10 'convertir les secondes en millisecondes
duree = 100 ' durée du beep en millisecondes
For r = 0 To 4 'boucle de E4 à E8
For i = 1 To 20 'boucle sur 20 valeurs
t = Range("E" & (4 + r)).Value * 86400 * coeff ' calcul en secondes puis coeff à 1000 pour transformation en millisecondes
Sleep t ' temps en milliseconde
Call Beep(400 - (100 * r), duree) ' beep avec variation de la fréquence en fonction de l'intervalle de temps
Next i
Next r
End Sub
Cordialement