XL 2019 Playsound ne fonctionne pas

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^^
 

soan

XLDnaute Barbatruc
Inactif
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
 

Statistiques des forums

Discussions
311 735
Messages
2 082 024
Membres
101 873
dernier inscrit
excellllll