Bonne journée à tous,
Nouvellement inscrit sur ce forum, je n'ai pas trouvé de solution à mon problème d'utilisation des touches de fonction dans un userform.
Quand on saisie des données, la souris peut entraver la vitesse d'exécution.
En fin de saisie des textbox, je souhaite appuyer sur la touche F2 plutôt que de prendre la souris pour chercher et cliquer sur le bouton Valider (qui est nommé cbValider).
Le clic sur le bouton fonctionne bien, mais pas la touche de fonction associée.
Où est mon erreur ?
Je vous remercie par avance de votre aide.
Option Explicit
Private Sub UserForm_Initialize()
Application.OnKey "{F2}", "cbValider_click()"
Application.OnKey "{F10}", "cbSortir_click"
End Sub
Sub cbvalider_click()
MsgBox "Vous avez demandé la validation de votre saisie"
End Sub
Sub cbSortir_click()
MsgBox "Souhaitez-vous sortir ?"
End Sub
Private Sub UserForm_Desativate()
Application.OnKey "{F2}", ""
Application.OnKey "{F10}", ""
End Sub
Ce lien n'existe plus
Ce lien n'existe plus
Nouvellement inscrit sur ce forum, je n'ai pas trouvé de solution à mon problème d'utilisation des touches de fonction dans un userform.
Quand on saisie des données, la souris peut entraver la vitesse d'exécution.
En fin de saisie des textbox, je souhaite appuyer sur la touche F2 plutôt que de prendre la souris pour chercher et cliquer sur le bouton Valider (qui est nommé cbValider).
Le clic sur le bouton fonctionne bien, mais pas la touche de fonction associée.
Où est mon erreur ?
Je vous remercie par avance de votre aide.
Option Explicit
Private Sub UserForm_Initialize()
Application.OnKey "{F2}", "cbValider_click()"
Application.OnKey "{F10}", "cbSortir_click"
End Sub
Sub cbvalider_click()
MsgBox "Vous avez demandé la validation de votre saisie"
End Sub
Sub cbSortir_click()
MsgBox "Souhaitez-vous sortir ?"
End Sub
Private Sub UserForm_Desativate()
Application.OnKey "{F2}", ""
Application.OnKey "{F10}", ""
End Sub
Ce lien n'existe plus
Ce lien n'existe plus