Discussion :

[franc83]

Bonjour
Je cherche à créer des raccourci clavier exemple (Alt +y) pour un UserForm,j'ai fait ceci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Sclarckone]

Peut-être comme cela (j'ai supposé que ton userform s'appelle usf et que c'est la touche 'bas' qui est pressée...à adapter donc):

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Private Sub usf_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
 
If KeyCode = vbKeyDown Then Call PointRouge_SpinDown()
 
End Sub

[franc83]

Merci Sclarckone
Je viens d'essayer cela ne fonctionne pas.
J'ai mis ce code dans le module Thisworbook,je l'ai mis dans le code du formulaire
j'ai mis un point d'arrêt ,il n'y a jamais de passage par ce point.
Franc83

[Sclarckone]

Je le mettrais plutôt dans le module du formulaire, parce que tu n'en as besoin que quand le formulaire s'affiche. D'ailleurs je ne sais pas quelle est la portée d'un évènement d'un userform mais il serait logique qu'elle soit limitée au userform (si un évènement survient au niveau du userform c'est que ce dernier est forcément chargé...).

[AlainTech]

Bonjour à tous,

Sclarckone,

Peut-être comme cela (j'ai supposé que ton userform s'appelle usf)

En VBA, les procédures événementielles liées à un userform sont toujours préfixées UserForm_ quel que soit son nom.
La bonne syntaxe est donc:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Private Sub UserForm_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)

[franc83]

Merci
Il me semble que c'est du VBA access, je suis dans le forum EXEL ,et j'utilise VBA EXEL 2007, par contre vous avez peu être la solution,
merci d'avance

[Sclarckone]

Absolument pas! De toute façon il n'y a pas de VBA Excel et Access. Il y a VBA et des bibliothèques spécifiques à Access, Excel, Word...
Dans ce cas en plus, les 'userform' appartiennent à la bibliothèque MSForms qui est différente des bibliothèques Access et Excel.

[Didier Gonard]

Merci
Il me semble que c'est du VBA access,

Sur quels critères ?

cordialement,

Didier

[franc83]

Autant pour moi
J'ai mis ce code dans le code du formulaire mais cela ne fonctionne pas, j'ai mis un point d'arrêt il n'y a pas de passage par ce point.
J'ai fait une recherche dans l'aide , la commande keyCode il connait pas .
merci