XL 2019 Playsound ne fonctionne pas

  • Initiateur de la discussion Initiateur de la discussion Dravol
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

Dravol

XLDnaute Junior
Bonjour à tous,

Voilà, je rencontre un pb (en même tps si j'en avais pas je serais pas là... ). 🙂

J'avais une macro qui déclenchait le playsound et qui fonctionnait très bien et maintenant que j'ai changé de macro (pour l'améliorer), le playsound ne veut plus s'activer.

1ière vba qui fonctionne avec le playsound :

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
On Error GoTo line

If Target.Address = Range("D19").Address And Range("D19").Value < 35 Then

Dim I
For I = 1 To 3 ' Loop 3 times.
PlaySound ThisWorkbook.Path & "\0257", 0, 1
MsgBox "Attention valeur hors tolérance"
Next I

End If

line:
Exit Sub
End Sub

2ième vba qui ne fonctionne pas avec le playsound :

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
With Target
If .CountLarge > 1 Then Exit Sub
If .Column <> 4 Then Exit Sub
Dim lig&: lig = .Row
If lig < 19 Or lig > 48 Then Exit Sub
If lig = 23 Or lig = 44 Then Exit Sub
If .Value >= Round([I10] * 0.7, 0) Then Exit Sub
Dim I As Byte
For I = 1 To 3 'Loop 3 times.
'Beep
PlaySound ThisWorkbook.Path & "\0257", 0, 1
MsgBox "Attention valeur hors tolérance"
Next I
End With
End Sub


Par contre je précise que si je désactive le playsound pour activer le "beep", ce dernier fonctionne très bien avec les 2 vba.

Merci de votre aide^^
 
Bonjour Dravol,

Tu as écrit : « Voilà, je rencontre un pb (en même tps si j'en avais pas je serais pas là... ). 🙂 »

Mais même si tu n'avais aucun problème, tu serais quand même le bienvenu sur le site. 😉


-----------------------------------------------------------------------------------------------------

Pour ton PlaySound, ce lien sur un post de @patricktoulon t'aidera sûrement : post #4.

(le post de flamel situé en dessous indique que son problème est résolu)


soan
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
10
Affichages
281
Réponses
4
Affichages
461
Réponses
5
Affichages
235
  • Question Question
Microsoft 365 worksheet_change
Réponses
29
Affichages
479
Retour