Raccourci clavier pour UserForm
Bonjour
Je cherche à créer des raccourci clavier exemple (Alt +y) pour un UserForm,j'ai fait ceci
Code:
1 2 3
| Public Sub Workbook_Open()
Application.OnKey "%y", "essai"
End Sub |
que j'ai mis dans ThisWorbook
et cela que j'ai mis dans un module
Code:
1 2 3 4
| Public Sub essai()
MsgBox " ca marche"
End Sub |
Cela fonctionne très bien pour feuil mais pas pour un UserForm
En fait ce que je cherche, c'est faire fonctionner cette toupie qui se trouve dans un UserForm ,par un raccourci clavier
Code:
1 2 3 4 5 6 7 8 9
| Private Sub PointRouge_SpinDown() 'PointRouge -1
If PointRouge.Caption = 0 Then Exit Sub
PointRouge.Caption = PointRouge.Caption - 1
End Sub
Private Sub PointRouge_SpinUp() 'PointRouge +1
If PointRouge.Caption < 9 Then
PointRouge.Caption = PointRouge.Caption + 1
End If
End Sub |
merci