Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel liste des hot keys personnels (macros)

liste des hot keys personnels (macros)

4 réponses
Avatar
JeNeVois
Comment consulter une liste des macros
associées à un hot key ou quel code utiliser
pour établir une telle liste
Merci
Signaler un problème avec ce contenu

4 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
ChrisV
Bonjour,

Pour une liste de toutes les macros avec les raccourcis associés, des
classeurs ouverts...

Sub ListeMacros()
' LL
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


ChrisV


"JeNeVois" a écrit dans le message de
news:
Comment consulter une liste des macros
associées à un hot key ou quel code utiliser
pour établir une telle liste
Merci



Avatar
JeNeVois
Bonjour,

merci pour la sub !

Pour l'instant j'ai encore l'erreur:
"Type défini par l'utilisateur non défini"
pour " New DataObject"
puisque je ne sais pas comment
déclarer un objet de cette biblothèque
ni même où chercher la dernière . :)

salutations





Bonjour,

Pour une liste de toutes les macros avec les raccourcis associés, des
classeurs ouverts...

Sub ListeMacros()
' LL
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


ChrisV


"JeNeVois" a écrit dans le message de
news:
Comment consulter une liste des macros
associées à un hot key ou quel code utiliser
pour établir une telle liste
Merci








Avatar
ChrisV
Re,

Dans l'éditeur VBE...
Outils/Références/ valider: Microsoft Forms 2.0 Objet Library


ChrisV


"JeNeVois" a écrit dans le message de
news:
Bonjour,

merci pour la sub !

Pour l'instant j'ai encore l'erreur:
"Type défini par l'utilisateur non défini"
pour " New DataObject"
puisque je ne sais pas comment
déclarer un objet de cette biblothèque
ni même où chercher la dernière . :)

salutations





Bonjour,

Pour une liste de toutes les macros avec les raccourcis associés, des
classeurs ouverts...

Sub ListeMacros()
' LL
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


ChrisV


"JeNeVois" a écrit dans le message
de
news:
Comment consulter une liste des macros
associées à un hot key ou quel code utiliser
pour établir une telle liste
Merci










Avatar
JeNeVois
Bonsoir,

C'était validé, mais néanmoins l'erreur se produit.

salutations


Re,

Dans l'éditeur VBE...
Outils/Références/ valider: Microsoft Forms 2.0 Objet Library


ChrisV


"JeNeVois" a écrit dans le message de
news:
Bonjour,

merci pour la sub !

Pour l'instant j'ai encore l'erreur:
"Type défini par l'utilisateur non défini"
pour " New DataObject"
puisque je ne sais pas comment
déclarer un objet de cette biblothèque
ni même où chercher la dernière . :)

salutations





Bonjour,

Pour une liste de toutes les macros avec les raccourcis associés, des
classeurs ouverts...

Sub ListeMacros()
' LL
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


ChrisV


"JeNeVois" a écrit dans le message
de
news:
Comment consulter une liste des macros
associées à un hot key ou quel code utiliser
pour établir une telle liste
Merci