Comment inhiber un beep ...?

Résolu
Signaler
Messages postés
1883
Date d'inscription
samedi 1 avril 2006
Statut
Membre
Dernière intervention
20 novembre 2007
-
Messages postés
13280
Date d'inscription
lundi 13 décembre 2004
Statut
Modérateur
Dernière intervention
3 février 2018
-
Salut,


Comment éviter le beep suite à "Enter" dans l' événement Key_Up
d' un TextBox ?


Je suis certain que cette question a déjà été posée...
et même qu' une réponse a été validée. Mais je n' arrive pas à la retrouver.
J' ai entré tous les mots clés imaginables sans succès.
Alors permettez que je la repose.


Merci.


PS: secouez-moi si le coeur vous en dit, du moment ou vous aurez une réponse ;p

6 réponses

Messages postés
3172
Date d'inscription
dimanche 15 février 2004
Statut
Membre
Dernière intervention
9 avril 2017
35
Salut,

Ajoute ceci :



Private Sub Text1_KeyPress(KeyAscii As Integer)
  If KeyAscii = 13 Then KeyAscii = 0
End Sub ,

----

(Nouveau forum VBA/Office
Messages postés
4822
Date d'inscription
lundi 11 novembre 2002
Statut
Membre
Dernière intervention
15 novembre 2016
14
Salut,

Ben cela fait deux fois cette semaine que mes com ne s'affiche pas....

Effectivement, il me semble même que c'est Jmfmarques qui avait donné la réponse...De souvenir il été question de Focus, quand la touche Enter était préssée, il ne fallait pas laisser le focus sur Text1...enfin je crois.... 

A+
Exploreur

 Linux a un noyau, Windows un pépin

 
Messages postés
1883
Date d'inscription
samedi 1 avril 2006
Statut
Membre
Dernière intervention
20 novembre 2007
2
Salut Exploreur,
Sûr que c' était jmfMarques,
il n' a pas son pareil pour ce genre de "Carambolage" 
Merci pour l' info, je vais essayer.
Si tu vois Marques dis lui qu' on a besoin de lui ici

 
Messages postés
7668
Date d'inscription
samedi 5 novembre 2005
Statut
Membre
Dernière intervention
22 août 2014
27













Messages postés
1883
Date d'inscription
samedi 1 avril 2006
Statut
Membre
Dernière intervention
20 novembre 2007
2
ça marche !

>était déjà dans le code (pour passer au control suivant)
Private Sub txtMC_KeyUp(KeyCode As Integer, Shift As Integer)
  If KeyCode = vbKeyReturn Then SendKeys "{tab}"
End Sub

>Manquait
Private Sub txtMC_KeyPress(KeyAscii As Integer)  If KeyAscii 13 Then KeyAscii 0
End Sub
et effectivement , ça rend muet le TextBox  

Merci à tous et bonne fin de soirée




 
Messages postés
13280
Date d'inscription
lundi 13 décembre 2004
Statut
Modérateur
Dernière intervention
3 février 2018
47
le bouton "réponse acceptée" est pour valider la réponse, plus pratique pour les quelques membres qui cherchent avant de poster.
donc pas la peine de tout valider au hasard

c'est corrigé

<hr size="2" width="100%" />Prenez un instant pour répondre à [infomsg_SONDAGE-POP3-POUR-CS_769706.aspx ce sondage] svp