Il est possible de fermer le formulaire personnalisé en appuyant sur n’importe quelle touche comme <Echap>. Pour ce faire, il vous suffit d’écrire le code qui gère l’événement KeyDown et d’identifier explicitement la clé requise et de fermer le formulaire à l’aide de l’opérateur Unload ou End. L’évènement KeyDown a deux paramètres. Le premier renvoie le code de la touche enfoncée et le second identifie la touche de modification enfoncée. VBA a une constante spéciale vbKeyEscape pour le code de clé <Echap>. Le code suivant du module de formulaire personnalisé ferme la fenêtre lorsque la touche <Echap> est enfoncée.

Private Sub UserForm_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, _

    ByVal Shift As Integer)

        If KeyCode = vbKeyEscape Then

            Unload Me

        End If

End Sub

Commentaires

■ Les évenements KeyDown et KeyUp se produisent successivement quand vous appuyez puis relâchez une touche. L’événement KeyDown se produit quand vous appuyez sur une touche. L’événement KeyUp se produit quand vous relâchez une touche. Les Syntaxes sont :

– Private Sub Object_KeyDown (ByVal keycode As MSForms.ReturnInteger, ByVal Shift As fmShiftState)
– Private Sub Object_KeyUp (ByVal keycode As MSForms.ReturnInteger, ByVal Shift As fmShiftState)

La syntaxe des événements KeyDown et KeyUp comprend les éléments suivants :

Les paramètres de Shift sont représentés dans le tableau suivants :

Tableau: Les paramètres de Shift

■ Vous pouvez utiliser les constantes Keycode suivantes n’importe où dans votre code à la place des valeurs réelles.