Discussion :

[mouftie]

Bonjour,
j'ai pris sur ce site un tuto pour remplir des chiffres dans une USF, dont un code permet de faire un beep en cas d'erreur de saisie. Malheureusement, cela ne fonctionne pas sur mon poste, pourtant quand je reçois un message Outlook, j'entends un beep sur mon poste, j'écoute la radio du web avec des enceintes sans pb.
voici un exemple du code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Private Sub TbxNir_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If InStr("0123456789/", Chr(KeyAscii)) = 0 Then KeyAscii = 0: Beep: _
    MsgBox "Saisie incorrect, recommencez, svp.", vbExclamation, "ERREUR"
End Sub

le message s'affiche bien, mais je n'ai pas de beep...
Est-ce que quelqu'un peut m'aider svp.
Merci

[SmallFlower]

Salut,

Un exemple simple:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Option Explicit
 
#If VBA7 Then
  Private Declare PtrSafe Function Beep Lib "kernel32" (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long
#Else
  Private Declare Function Beep Lib "kernel32" (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long
#End If
 
Private Sub TestBeep()
  Call Beep(400, 200)
End Sub

[Marc-L]

Bonjour.

le message s'affiche bien, mais je n'ai pas de beep...
Est-ce que quelqu'un peut m'aider svp.

Tester l'instruction Beep seule avant d'affirmer que cela ne fonctionne pas !

Comme la fonction MsgBox avec l'icône exclamation déclenche un son (à tester seule aussi …),
la fonction Beep n'a pas le temps de s'exécuter et est donc annulée de facto …

__________________________________________________________________________________________

Merci de cliquer sur pour chaque message ayant aidé puis sur pour clore cette discussion …