Diffuser un .wav en boucle et le stoper

[chris-57]

Bonjour à tous,

j'ai trouvé grâce à ce forum comment diffuser un son .wav à partir d'une macro :

Worksheets("TEST").OLEObjects("Object 9").Verb



J'ai donc réalisé une macro qui à certaines heures précisées dans un tableau déclenche ce son wav qui correspond à une sorte d'alarme sonore :

HEUREstart = [O4] 'heure de vérification
For Each X In [E11:E58] 'tableau contenant des heures précises
If X = HEUREstart Then
If X.Offset(0, 1) <> X.Offset(-1, 1) Then 'petite condition perso
X.Offset(0, 1).Select
MsgBox ("Changement de charge !")
'Son wave
Worksheets("TEST").OLEObjects("Object 9").Verb
End If
End If
Next X

J'aimerai maintenant que ce son soit diffusé en boucle jusqu'à ce que l'utilisateur clique sur par exemple une boite de dialogue.


merci d'avance

 

[michel]

bonsoir Chris

tu peux tester cette boucle qui tourne jusqu'à ce qu'une condition soit remplie

…
Do
Worksheets("TEST").OLEObjects("Object 9").Verb
DoEvents
Loop Until LaCondition'pour arreter la boucle
…


bonne soiree
MichelXld

 

[chris-57]

Et quelle genre de condition fonctionne ??

là je trouve pas...