Liste raccourcis Excel (par macro)

[Staple1600]

Bonjour


Suite à la lecture d'un post de matin

Je me suis demandé si l'on pouvai faire l'équivalent de ceci:

(cf. page 3 WIKI MichelXLD)

Lister les raccourcis clavier disponibles dans Word

Dim appWrd As Object
Set appWrd = createObject("Word.Application")
appWrd.Visible = True
appWrd.listCommands False

​

mais pour Excel.

J'ai cherché sur le net

Je n'ai trouvé que des macros

qui liste les menus les barres d'outils, leur images (faceid)

mais pas les raccourcis clavier

Est-possible à faire en VBA?

J'ai cherché aussi des infos sur: ShortcutText
mas ca semble ne pas etre ça


Merci à eux qui pourront me renseigner.

Bon week-end

 

[MichelXld]

Re : Liste raccourcis Excel (par macro)

bonjour Staple1600

Ce lien pourra certainement t'aider

Shortcuts Found in Excel Menus


Bon après midi
MichelXld

 

[Ivan F Moala]

bonjour Staple1600

Voulez-vous dire des raccourcis ALT + de lettre ?

Option Explicit

Sub StartList()
    Dim R As Range
    ActiveSheet.UsedRange.ClearContents
    Set R = Range("A3")
    ListCtrls Application.CommandBars.ActiveMenuBar, R
End Sub

Sub ListCtrls(Ctrl As Object, Rng As Range)

Dim C As Office.CommandBarControl
Static S As String
Dim Pos As Integer

If TypeOf Ctrl Is CommandBar Then
    S = "ALT"
End If

On Error Resume Next
If Not TypeOf Ctrl Is Office.CommandBarButton Then
    For Each C In Ctrl.Controls
        Rng.Value = C.Caption
        Pos = InStr(1, C.Caption, "&")
        If Pos Then
            S = S & "+" & Mid(C.Caption, Pos + 1, 1)
            Rng.EntireRow.Cells(1, "H").Value = UCase(S)
        End If
        Set Rng = Rng(2, 2)
        ListCtrls C, Rng
        Set Rng = Rng(1, 0)
        If Len(S) > 3 Then
            S = Left(S, Len(S) - 2)
        End If
    Next C
End If

End Sub

 

[Staple1600]

Re : Liste raccourcis Excel (par macro)

Bonjour


I'm very impressed to speak with you.

You really are the Ivan F Moala?

You're welcome.

from: Microsoft Excel Files by Ivan F Moala contains VBA API WMI VBS and formulas. Remember can do.

 

[Staple1600]

Re : Liste raccourcis Excel (par macro)

Re


->MichelXLD

Je suis allé sur le site indiqué pourtant (je devais etre mal réveillé)

Je vais tester le code et je reviens

edit: Cela fonctionne

Merci

Je vais tester le code de Ivan F Moala

edit: le code de Ivan F Moala liste les raccourcis ALT+
pas les CTRL+

 

[Ivan F Moala]

Re: Re : Liste raccourcis Excel (par macro)

Bonjour Staple1600 Merci pour la bienvenue.
Je suis honoré pour être ici. J'essaye de visiter beaucoup d'étrangers excelle des conseils, y compris un en Turquie Excel WEB Tr pour essayer et devenir meilleur et pour voir différents modèles et idées de codage.

Merci encore 🙂

Bonjour


I'm very impressed to speak with you.

You really are the Ivan F Moala?

You're welcome.

from: Microsoft Excel Files by Ivan F Moala contains VBA API WMI VBS and formulas. Remember can do.

 

[Staple1600]

Re : Liste raccourcis Excel (par macro)

Re


What do you think about this website?

You are at Auckland, what time is it there?

 

[Ivan F Moala]

Re: Re : Liste raccourcis Excel (par macro)

Re


What do you think about this website?

You are at Auckland, what time is it there?

Hi Staple1600
I like the site, I am use to these types of sites as many of the ones I go to are Powered by vBulletin.
Yes, I am in Auckland the time is 2:00 am Sunday 8th July.

I am also posting @ MrExcel here MrExcel Message Board :: Index

 

[Staple1600]

Re : Liste raccourcis Excel (par macro)

Re




I've tried your code

It works but only list the ALT+ shorchuts

If TypeOf Ctrl Is CommandBar Then
S = "ALT"
End If

I've only have to add S="CTRL" to have all the shorcuts?





My goal is to list all the shorcuts of Excel

The code form Michel XLD seems to list all the shortcuts

 

[Ivan F Moala]

Re: Re : Liste raccourcis Excel (par macro)

Re




I've tried your code

It works but only list the ALT+ shorchuts

My goal is to list all the shorcuts of Excel

The code form Michel XLD seems to list all the shortcuts

Yes, I realised that after Michel XLD posted, I am glad you got what you wanted .... time to sleep 🙂


BTW, I posted a link on my site to this Forum...

Excel

 

[Staple1600]

Re : Liste raccourcis Excel (par macro)

Re


J'ai modifié le code de Ivan F Moala ainsi

For Each C In Ctrl.Controls
Rng.Value = C.Caption
Pos = InStr(1, C.Caption, "&")
If Pos Then
S = S & "+" & Mid(C.Caption, Pos + 1, 1)
S2 = S2 & "+" & Mid(C.Caption, Pos + 1, 1)
Rng.EntireRow.Cells(1, "H").Value = UCase(S)
Rng.EntireRow.Cells(1, "I").Value = UCase(S2)
End If
Set Rng = Rng(2, 2)
ListCtrls C, Rng
Set Rng = Rng(1, 0)
If Len(S) > 3 Then
S = Left(S, Len(S) - 2)
End If
If Len(S2) > 3 Then
S2 = Left(S2, Len(S2) - 2)
End If

Next C

Mais j'ai du comettre une erreur


>Ivan F Moal

I 've changed your code
but I must be wrong somewhere

Bonne nuit

Have a good sleep