Créer raccourcis macro avec ctrl+chiffre (pavé numérique)

Bonjour à tous,

Je sollicite votre aide car je voudrais mettre une macro en raccourcis mais, de base, on ne peut le faire qu'avec Ctrl+ une lettre...

Et moi je voudrais que mon raccourcis soit de la forme : Crtl+ chiffre (avec chiffre ∈ [0-9] )

Connaissez vous un moyen de faire cela?

Merci d'avance et bon week end à vous

Bonjour,

Voir message :

Bonjour Jean-Eric

Merci pour ta réponse. Oui justement, c'est ce que je dis, on ne peut pas, conventionnellement, utiliser un chiffre...

Mais je me demandais si on ne pouvais pas contourner cette restriction (via une macro je ne sais pas)

Merci

Bonsoir

Fonctionne avec les chiffres qui se trouvent avec les caractères spéciaux. Je n'ai pas réussi avec le clavier numérique

Sub test()
Range("a1") = "test"
End Sub

Sub lance()
'CTRL+Maj+1
Application.OnKey "^+{1}", "test"
End Sub

Amicalement

Nad

Bonsoir Nad

Effectivement, c'est avec le pavé que j'aurai souhaité faire ça...lol

Merci beaucoup pour ton aide en tout cas, je m'en servirais quand même

Bon week end

Bonjour,

Je tombe par hasard sur ce post.

Si, si, il est possible d'affecter des raccourcis aux touches du pavé numérique, par exemple :

Application.OnKey "^{" & vbKeyNumpad1 & "}", "PERSONAL.xlsb!Données_TRI_colonne_1"

...pour être complet : pour créer des raccourcis-clavier avec n'importe quelle combinaison de touches (ou presque), on peut faire comme ça :

• pour un raccourci disponible dans tous les classeurs, opérer dans PERSONAL.xlsb, sinon faire la manip dans le classeur concerné
• dans l'interface VBA, aller dans le module ThisWorkbook
• insérer le code correspondant au raccourci qu'on veut créer

Private Sub Workbook_Activate()

'ATTENTION : IL FAUT REDEMARRER EXCEL POUR QUE LES CHANGEMENTS SOIENT PRIS EN COMPTE
' ^ remplace CTRL      % remplace ALT        + remplace MAJ

'raccourci pour [CTRL+ALT+MAJ+D]
Application.OnKey "^+%d", "PERSONAL.xlsb!Insérer_DIMANCHE_PROCHAIN"

'raccourci avec flèche de direction
Application.OnKey "^%+{DOWN}", "PERSONAL.xlsb!Format_Cellule_Justifier_Centré"

' raccourci avec le pavé numérique
Application.OnKey "^{" & vbKeyNumpad1 & "}", "PERSONAL.xlsb!Données_TRI_col_01"