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