Validité de la touche Echap,

JYLL

Nous a quitté

Repose en paix

• 6 Novembre 2006

• #2

Re : Validité de la touche Echap,

Bonsoir Mattharm et le forum,

C'est possible avec le code suivant mis au bout du code de la UserForm:

Private Sub UserForm_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If KeyAscii = 27 Then UserForm1.Hide
End Sub

Bon test.

 

Vote positif 0 Vote négatif

M

Mattharm

XLDnaute Occasionnel

• 6 Novembre 2006

• #3

Re : Validité de la touche Echap,

JYLL à dit:

Bonsoir Mattharm et le forum,

C'est possible avec le code suivant mis au bout du code de la UserForm:

Private Sub UserForm_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If KeyAscii = 27 Then UserForm1.Hide
End Sub

Bon test.

Cliquez pour agrandir...

Et bien.......ça ne fonctionne pas !
Je suis d'accord avec le code mais ça ne fonctionne pas ?!

🙁 🙂 Matthieu

 

Vote positif 0 Vote négatif

JYLL

Nous a quitté

Repose en paix

• 6 Novembre 2006

• #4

Re : Validité de la touche Echap,

re Bonsoir Mattharm,

Tu as bien mis le nom de ta UserForm, ou ce qui peux se passer c'est que tu es dans une autre macro bloqué sur une entrée, j'ai fait l'essai sur une userform sans code et ça fonctionne impeccable. Je réfléchis et essaie de trouver une réponse.


Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If KeyAscii = 27 Then UserForm1.Hide
End Sub

il faut presser deux fois "Esc"
@+

 

Dernière édition: 6 Novembre 2006

Vote positif 0 Vote négatif

Hervé

XLDnaute Barbatruc

• 7 Novembre 2006

• #5

Re : Validité de la touche Echap,

bonjour,

une autre piste.

si tu as déjà un bouton sur ton useform qui te permet de fermer celui-ci, passe la propriété cancel de celui-ci à true.

salut

 

Vote positif 0 Vote négatif

F

fifi

XLDnaute Occasionnel

• 7 Novembre 2006

• #6

Re : Validité de la touche Echap,

c'est merveilleux tous ce qu'oon peut apprendre 😀

merci cela sert surement à d'autre qu'à moi

 

Vote positif 0 Vote négatif