Discussion :

[zoidy]

Salut à tous,

Un petit post rapide pour savoir comment on affecte un raccourci clavier à un bouton. Dans VB.net, si je me souviens bien, il suffisait de faire précéder d'un "&" la lettre que l'on affectait au raccourci (ALT + lettre), mais pour VBA, évidemment, ça ne marche pas (sinon ça serait trop simple, non !? )
Donc est-ce possible, et si oui comment faire ?

Merci d'avance

[ouskel'n'or]

Le mieux, en attendant d'avoir une réponse, serait que tu enregistres une macro en le faisant.
A défaut de code...

[zoidy]

Hehe je veux bien mais faut que j'aille où pour mettre le raccourci sur la lettre souhaitée ? J'ai rien trouvé dans le Format Control...

[freyliss]

Bonjour,

J'ai fait une petite recherche dans l'aide !!!
Voilà, une solution qui peut être possible, il faut que tu assignes une macro à ton bouton et tu rentreras la commande suivante :

Code :

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

1
2
3
4
5
6
7
8
Sub test()

' Test raccourci Ctrl F 

Application.SendKeys ("^f")

End Sub

Dans mon exemple c'est le raccourci pour effectuer une recherche.

^ correspond à la touche Ctrl
+ pour Shift
% pour Alt

Et tu rajoutes la lettre correspondante.
Pour plus de détail dans l'aide cherche le mot clé SendKeys

Voilà, j'espère que ça t'aide un peu plus.

[Garuda]

As tu essayé la propriété "Accelerator"

Code :

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

1
2
3
4
5
 
Private Sub UserForm_Initialize()    
CommandButton1.Accelerator  = "C"     
'Set Accelerator key 
End Sub

NB : Pour un check box , tu auras le "souligné" () mais pas pour un bouton () !

[zoidy]

As tu essayé la propriété "Accelerator"

Code :

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

1
2
3
4
5
 
Private Sub UserForm_Initialize()    
CommandButton1.Accelerator  = "C"     
'Set Accelerator key 
End Sub

NB : Pour un check box , tu auras le "souligné" () mais pas pour un bouton () !

Nikel, exactement ce que je recherchais
Et il y a également le souligné sur la lettre spécifiée pour le bouton

Merci à vous les gars