Alarme sonore avec sortie de boucle par bouton

Bonjour à tous ...

je suis en train d'essayer de créer une alarme sonore qui tournerait en boucle tant qu'on ne cliquerait pas sur un bouton pour la couper.

mais n’étant pas un spécialiste des boucles, je bloque.

voici ce que j'ai fais :

Sub alerte_sonore()

While (ToggleButton_coupure_sonore = False)

Application.Wait (Now + TimeValue("00:00:01"))

Beep

Wend

End Sub

le problème c'est que je ne peux pas appuyer sur ToggleButton_coupure_sonore pour le mettre à True pendant que la boucle tourne ... excel ne veut pas.

pouvez vous m' aider à comprendre ce que je fais de pas bien ?

merci d'avance.

Bonjour,

Application.wait temporisé l'application donc tout ce que l'on peut faire avec (à mon sens).

Regardez plutôt du côté de Do Loop avec un DoEvents au milieu et un test soit sur Do soit sur loop pour faire un Exit Do.

@ bientôt

LouReeD

Salut Le Nen Samuel,

Salut LouReed,

ou avec Application.OnTime...

Private Sub cmdGO_Click()
'
If Me.cmdGo.Caption <> "Beep" Then
    Me.cmdGo.Caption = "Beep"
    Application.OnTime Now + TimeValue("00:00:02"), "Beep", schedule = True
Else
    Me.cmdGo.Caption = "GO"
End If
'
End Sub

Public Sub Beep()
'
Dummy = DoEvents()
Application.Speech.Speak "OK, man"
Application.OnTime Now + TimeValue("00:00:02"), "Beep", schedule = IIf(Worksheets("Feuil1").cmdGo.Caption = "Beep", True, False)
'
End Sub

A+

Yes ! Merci beaucoup ...

Je viens de comprendre que c'était mon application wait qui m'empêchait de faire quoi que se soit pendant l'exécution de la boucle.

Merci beaucoup LouReed d'avoir éclairer ma lanterne et merci beaucoup Curulis 57 de m'avoir coder ça.

Bonsoir,

curulis57 comme tant d'autre sur le forum font du très bon travail !

J'essaie d'en faire autant, mais mon écriture de code est beaucoup plus laborieuse...

@ bientôt

LouReeD

En tout cas c'est super sympa de partager vos connaissances et de nous permettre de sortir de l'impasse.

Encore merci à vous 2.