Recenser les raccourcis clavier non utilisés
Bonsoir à tous/toutes
Y a-t-il un moyen de recenser les raccourcis clavier encore disponibles pour des macros, ou, à défaut, de recenser ceux qui sont déjà utilisés ?
Merci !
Bonjour ou bonsoir à tous
Essaye le lien suivant :
Jimmy
Merci, mais...ça ne répond pas à ma question, qui était peut-être mal formulée.
J'ai créé beaucoup de macros, dont certaines ont un raccourci clavier.
Après des mois d’ajouts, de modification, de suppression de macros, je ne sais plus très bien quels raccourcis clavier sont utilisés et lesquels sont encore disponibles (pour que je puisse les affecter à des macros, car je travaille beaucoup par raccourcis).
La question que je me pose (et que donc je vous pose car je n’ai pas trouvé de solution), c’est : comment faire pour savoir quels raccourcis clavier sont utilisés, et par quelles commandes (raccourcis d’origine Microsoft Office + raccourcis affectés à des macros), ou encore : quels raccourcis restent dispo pour que je puisse les attribuer à des macros ?
D'avance, merci !
Salut le forum
Recenser les raccourcis clavier non utilisés ou utilisés...
C'est une question différente.
Gloub a écrit :Après des mois d’ajouts, de modification, de suppression de macros, je ne sais plus très bien quels raccourcis clavier sont utilisés et lesquels sont encore disponibles (pour que je puisse les affecter à des macros, car je travaille beaucoup par raccourcis).
Ca commence bien un développement de fichier ca
Bon trève de plaisanterie essaye ceci.
Une procédure de Laurent Longre
Appelle cette procédure à partir de l'interface de la feuille de calcul
Raccourci clavier Alt + F8
'------------------------------------
Sub ListeMacros()
Dim Macro As String, Racc As String
Dim Rpt As String, I As Integer
Application.ScreenUpdating = False
Workbooks.Add.Worksheets(1).[A1:B1] = [{"Procédure","Raccourci"}]
SendKeys "%{F8}%a{PGUP}{TAB}{ESC}"
'nécessite une référence à la bibliothèque
'Microsoft Forms 2.0 Object Library
With New DataObject
Do
Rpt = "%{F8}{TAB}" & Application.Rept("{DOWN}", I)
SendKeys Rpt & "%n^c{ESC}", True
.GetFromClipboard
If Macro = .GetText(1) Then Exit Do
Macro = .GetText(1)
SendKeys Rpt & "%t^c{ESC}{ESC}", True
.GetFromClipboard
Racc = .GetText(1)
I = I + 1
Cells(I + 1, 1) = Macro
If Racc <> Macro Then Cells(I + 1, 2) = "Ctrl-" & Racc
Loop
End With
With Columns("A:B")
.AutoFit
.Sort [A1], Header:=xlYes
.CurrentRegion.AutoFormat xlRangeAutoFormatColor2
End With
End Sub
'------------------------------------Mytå (Salut Jimmy)
Avec le décalage horaire pas disponible avant 17 hres (GMT-4) demain
Merci pour ta réponse, mais, n'étant pas un expert d'Excel, je ne sais pas comment la mettre en oeuvre...
re le forum
gloub a écrit :Bonsoir à tous/toutes
Y a-t-il un moyen de recenser les raccourcis clavier encore disponibles pour des macros, ou, à défaut, de recenser ceux qui sont déjà utilisés ?
Merci !
A la même place que tes codes dans un module...................
Mytå
Merci pour ta réponse, ça m'a fait avancer d'une case...mais pas plus : l'exécution bloque sur :
New DataObject
(surligné dans le VBA, avec un message d'erreur : "Erreur de compilation : Type défini par l'utilisateur non défini").
A l'aide !!!
Re le forum
- 'nécessite une référence à la bibliothèque
'Microsoft Forms 2.0 Object Library
Tu vas en VBA (Alt+F11)
Clique sur Outils > Référence > Coche Microsoft Forms 2.0 Object Library
La macro devrait ensuite fonctionnée.
Mytå
Merci pour ta réponse.
Malheureusement, Microsoft Forms 2.0 Object Library n'est pas présent dans la liste...!
Après une réinstallation complète d'Excel, j'ai retenté ma chance et – surprise ! – Microsoft Forms 2.0 Object Library est présent dans la liste.
J'ai pu lancer la macro, qui marche très bien.
Seule contrariété, les raccourcis-clavier originels d'Excel ne sont pas listés, il faut donc procéder par soustraction pour identifier les raccourcis encore disponibles.
Mais c'est déjà bcp mieux que de tester toutes les combinaisons de touches une par une.
3 ans 1/2 plus tard, je clos donc le sujet.
Merci !