Discussion :

[Alasgard]

Bonsoir,
Je souhaiterai savoir s'il était possible de mettre un raccourci clavier type "Ctrl + a" dans un userform.
Le but étant de pouvoir simuler un clic sur le bouton retour.
S'il est possible aussi de faire appel à une Sub dans un module à partir du userform, ce serait génial aussi


Pour le moment j'ai essayé ceci:

Dans le userform initialize j'ai placé ceci:

Code :

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

Application.OnKey "^{a}", "btn_retour_click"

Mais ca ne fonctionne pas du tout .. Pourriez vous m'aider s'il vous plait?

[arosec]

Bonsoir,

Le but étant de pouvoir simuler un clic sur le bouton retour.

Lorsque tu cliques sur le bouton, cela fait appel à une procédure...
Tu peux appeler directement cette procédure sans passer par une simulation du clic.

faire appel à une Sub dans un module à partir du userform

La sub doit être déclarée en public

Code :

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

1
2
3
4
 
public sub maProcedure()
'...
end sub

[Theze]

Bonsoir,

Regarde du coté de la propriété "Accelerator" de ton bouton. Tu défini une lettre (et une seule) puis tu teste avec Alt + ta lettre. Visuellement, le bouton reçoit le focus mais il n'est pas cliqué comme avec la souris mais son code est exécuté.

Hervé.

[Alasgard]

Accelertor fonctionne parfaitement bien mais je me demandais s'il était possible d'utiliser Ctrl au lieu de Alt ?

En ce qui concerne la public sub, mon souci n'est pas de l'appeler mais de l'appeler par un raccourci clavier lorsque je suis sur l'userform.
Par clic etc.. tout fonctionne mais par raccourci clavier sur le userform non

[arosec]

Le poste http://www.developpez.net/forums/d11...vier-userform/ pourra peut être t'aider...

[PMO2017]

Bonjour,

essayez l'astuce suivante.
1) Dans le UserForm créez un Frame1
2) Copiez le code suivant dans la fenêtre de code du UserForm

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Private Sub Frame1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If KeyAscii = 1 Then Call zaza
End Sub
 
Private Sub UserForm_Click()
Frame1.SetFocus
End Sub
 
Private Sub UserForm_Initialize()
With Frame1
  .Height = 0
  .Width = 0
End With
End Sub
 
'///////////////
Sub zaza()  'adaptez avec votre Sub traitement
MsgBox "zaza"
End Sub

[Alasgard]

Bonsoir, merci pour votre aide.

J'ai essayé votre code dans un userform seul sans controleavec Ctrl A tout fonctionne.
Je vais essayer d'appliquer cela a mes cas

[Alasgard]

Re,
Donc sur mes userforms avec controles, cela fonctionne quand je clique sur l'userform,

Cependant quand je suis sur mes autres controles, le raccourci est bloqué :/

En attendant votre astuce m'a beaucoup avancé donc un grand merci déjà .

[PMO2017]

Donc sur mes userforms avec controles, cela fonctionne quand je clique sur l'userform,
Cependant quand je suis sur mes autres controles, le raccourci est bloqué

C'est normal puisque que c'est un autre contrôle qui obtient le Focus.
UserForm n'a pas de méthode pour obtenir le Focus, c'est pour cela qu'on passe par un Frame intermédiaire.