Validité de la touche Echap,

[Mattharm]

Bonsoir,

Une petite question avant de me coucher,
Lorsque j'ai une userform lancée, est il possible de déterminer la touche echap pour que lors de sa pression l'userform se ferme ???

En vous remerciant,
Matthieu. 😉

 

[JYLL]

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.

 

[Mattharm]

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.

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

🙁 🙂 Matthieu

 

[JYLL]

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"
@+

 

[Hervé]

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

 

[fifi]

Re : Validité de la touche Echap,

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

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