Liste raccourcis Excel (par macro)

Staple1600 · 7 Juillet 2007

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 · 7 Juillet 2007

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 · 7 Juillet 2007

bonjour Staple1600

Voulez-vous dire des raccourcis ALT + de lettre ?

Code:

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 · 7 Juillet 2007

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 · 7 Juillet 2007

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 · 7 Juillet 2007

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 🙂

Staple1600 à dit:
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 · 7 Juillet 2007

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 · 7 Juillet 2007

Re: Re : Liste raccourcis Excel (par macro)

Staple1600 à dit:
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 · 7 Juillet 2007

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 · 7 Juillet 2007

Re: Re : Liste raccourcis Excel (par macro)

Staple1600 à dit:
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 · 7 Juillet 2007

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

Liste raccourcis Excel (par macro)

Staple1600

XLDnaute Barbatruc

MichelXld

XLDnaute Barbatruc

Ivan F Moala

Guest

Staple1600

XLDnaute Barbatruc

Staple1600

XLDnaute Barbatruc

Ivan F Moala

Guest

Staple1600

XLDnaute Barbatruc

Ivan F Moala

Guest

Staple1600

XLDnaute Barbatruc

Ivan F Moala

Guest

Staple1600

XLDnaute Barbatruc

Discussions similaires

Liste raccourcis Excel (par macro)

Staple1600

XLDnaute Barbatruc

MichelXld

XLDnaute Barbatruc

Ivan F Moala

Guest

Staple1600

XLDnaute Barbatruc

Staple1600

XLDnaute Barbatruc

Ivan F Moala

Guest

Staple1600

XLDnaute Barbatruc

Ivan F Moala

Guest

Staple1600

XLDnaute Barbatruc

Ivan F Moala

Guest

Staple1600

XLDnaute Barbatruc

Discussions similaires

Privacy & Transparency

Privacy & Transparency