[XL-2007] Raccourci clavier pour UserForm [Résolu]

[franc83]

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

[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 :

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,

Envoyé par 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 :

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.

[Ormonth]

Envoyé par franc83

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

[Ormonth]

Bonjour,

Moi pas bien comprendre style télégraphique

de plus, formulaire = USF ? formulaire = terme ambigu à proscrire sous Excel, on fait référence à quoi ?

• les formulaires de feuille Excel
• le boutons de barre outils "formulaire"
• les USF appelés formulaires à certains moments en VBA
  

  Procédure : créer un formulaire utilisateur
  
  Pour créer une boîte de dialogue personnalisée, vous devez créer un objet UserForm. Pour créer un objet UserForm, cliquez dans le menu Insertion sur UserForm dans Visual Basic Editor.

Sinon s'il s'agit lors de la sélection d'une cellule de déclencher une série d'instructions dépendantes d'un bouton cliqué parmis un groupe de deux, il faut, par exemple :

• Utiliser le SelectionChange de la feuille en filtrant les target voulues
  
• Alimenter via tes boutons une variable drapeau (Boolean)
  
• mettre dans le SelectionChange un select case qui donnera les instructions à suivre selon le boolean.

cordialement,

Didier

[Theze]

Bonjour,

A priori "UserForm_KeyDown" n'est pas exécuté quand il y a des contrôles sur le formulaire. Teste ceci sur un formulaire vierge :

Code :

1
2
3
4
5
6
 
Private Sub UserForm_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
 
    MsgBox KeyCode
 
End Sub

Hervé.

[Sclarckone]

Envoyé par Theze

A priori "UserForm_KeyDown" n'est pas exécuté quand il y a des contrôles sur le formulaire.

C'est vrai que je n'y avais pas pensé...ça doit dépendre de quel contrôle a le focus, non? Et du coup l'évènement doit être récupéré par le contrôle qui a le focus:

Code :

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

Une solution peut consister à définir une procédure de portée publique qui gère l'évènement et d'appeler cette procédure depuis chaque contrôle susceptible d'avoir le focus sur l'évènement 'KeyDown'.

[patricktoulon]

bonjour

oui effectivement le problème c'est que tu n'a pas forcement le focus sur le userform mais sur un des contrôles de l'userform

la solution c'est mettre la collection des contrôles y compris le userform dans une classe gérant les évènement

je me suis servi d'une chose similaire dans ma dernière version de l'effet mouse in et out dans les contributions tu pourrais te servir de cette classe
pour élaborer la tienne

regarde dans ma signature en bas de mon message tu a le lien


au plaisir

[franc83]

Merci Patricktoulon

Je vais regarder tout ça

[franc83]

J'ai des progrès à faire c'est pas de mon niveau ,mais je vais m'y atteler.
je fermerai la discutions un peu plus tard si quelqu'un veux ajouter un commentaire .