Assigner des raccourcis clavier pour les boutons sur les formulaires créés pour excel vba

J'ai créé une macro pour excel qui apparaîtra formulaire qui contient le bouton et le champ de texte. Est-il possible d'attribuer des raccourcis clavier comme la touche 'ctrl+Entrée" ou " F12 " pour les boutons? La touche de raccourci devrait fonctionner quel que soit le champ dans lequel le bouton ou l'accent est mis sur.

(jusqu'à présent j'ai réussi à créer des boutons/fields_Keydowns pour vérifier MSForms.ReturnInteger pour vbKeyF12, mais je dois le faire pour chaque champ, et le bouton, est-il un moyen plus facile?)

Dire, j'ai 2 choses sur le formulaire, le bouton "CommandButton1" et textfield "TextBox1"

code du bouton:

Private Sub CommandButton1_click()
ActiveCell.FormulaR1C1 = UserForm1.TextBox1.Text 
End Sub

La touche de raccourci sera utile lorsque j'ajoute en plus des champs et des boutons...

Aussi comment puis-je configurer la touche 'echap' pour fermer/masquer le formulaire ?

OriginalL'auteur Yoga | 2009-08-27

  1. 6

    Pour définir le "échappe" à la clé pour activer votre bouton pour fermer/masquer le formulaire:
    Tout d'abord, vous avez besoin d'un bouton dont l'événement Click se cache de votre formulaire. Ensuite, réglez le "Annuler" de la propriété du bouton de Vrai.

    Lorsque votre formulaire est affiché, et vous appuyez sur la touche Echap, le formulaire va fermer.

    Pour un 'Raccourci', la valeur de l'Accélérateur de propriété de votre bouton à une lettre, puis lorsque votre formulaire est ouvert, si vous appuyez sur Alt+[votre lettre], l'événement Click du bouton de feu.

    Hey, merci Stewbob. Le "Annuler" la propriété est utile! Le raccourci alt+[lettre] n'est pas vraiment ce que je veux. Est-il possible de raccourci clavier à un bouton avec Ctrl+Entrée ou les touches F1-F12 à la place?
    Pas sûr, vous aurez à expérimenter certains avec l'Accélérateur à la propriété.

    OriginalL'auteur Stewbob

  2. 1

    La seule façon de le faire est d'ajouter un événement KeyUp pour chaque contrôle de votre formulaire qui appelle une centrale de gestion du clavier de routine:

    Option Explicit

Private Sub CommandButton1_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    HandleKey KeyCode
End Sub

Private Sub CommandButton2_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    HandleKey KeyCode
End Sub

Private Sub UserForm_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    HandleKey KeyCode
End Sub

Private Sub HandleKey(KeyCode As MSForms.ReturnInteger)
    MsgBox KeyCode
    Select Case KeyCode
    Case 112 'F1
        'Do something because F1 was pressed
    Case 113 'F2
        'Do something because F2 was pressed
    Case 114 'F3 etc.
    End Select
End Sub

    OriginalL'auteur jkpieterse