Appel d'un userform à l'aide d'une touche du clavier

roro69 à dit:

Bonsoir ce petit code
Private Sub Workbook_Open()
Call Raccourci
End Sub
Et ensuite dans module/
Sub Raccourci()
Application.OnKey "{F1}", "Rac"
End Sub
Sub Rac()
UserForm1.Show
End Sub

Cliquez pour agrandir...