Discussion :

[olivepao]

Bonjour le forum

J'ai vu il y a quelques mois une macro qui revoyait les codes ID des menus et des barres outils.

Au résultat sur une feuille donnait à peu près ça :

&Fichier 30002
&Edition 30003
&Affichage 30004
&Insertion 30005

etc

Je l'ai perdu suite à un malheureux delete, quelqu'un l'aurait-il en stock ?


Merci d'avance

[JackOuYA]

Voir cette discussion :
http://www.developpez.net/forums/m3498379-11/

le code à fring ou le mien

[olivepao]

Salut JackOuYA, Re le forum,

J'ai copié ton code dans un module et lancé la macro, il nes se passe malheureusement rien ! Aucune liste n'est générée.

Manque t'il quelque chose ?

A++

[JackOuYA]

Tu est sur que rien ne se passse ..? regarde l'un de tes menu contextuel ..? si tu n'y retrouve pas le lien "<<>>"

[fring]

Tu as posé la question il y a 4 jours (ce n'est pas quelques mois...) sur un autre forum (1er mauvais point ) et la réponse t'a été donnée mais si tu ne prends pas la peine de la lire cela n'est pas très sympa pour celui qui a pris sur son temps pour te répondre (2ème mauvais point )

La réponse de tototiti2008 était celle-ci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Sub IDMenu()
Dim C As CommandBarControl
For Each C In CommandBars("Worksheet Menu Bar").Controls
MsgBox C.Caption & "-" & C.ID
Next C
End Sub

[olivepao]

Salut fring Re tout le monde

J'ai effectivement posé la question il y a 4 jours sur un autre forum. Mais la macro qui génère la liste je l'ai effectivement perdue il y a deux mois et demi.

La réponse de tototiti2008 fonctionne et je l'ai appréciée, elle ne génère pas de liste mais uniquement des msgbox. Pas très évident quand on sait qu'il y a plusieurs centaines d'ID.

[olivepao]

Tu est sur que rien ne se passse ..? regarde l'un de tes menu contextuel ..? si tu n'y retrouve pas le lien "<<>>"

Re JackOuYA

J'ai fais tous mes menus, je ne trouve pas "<<>>" .

Ma version Excel 2000 est peut-être trop ancienne ?

A++

[fring]

La réponse de tototiti2008 fonctionne et je l'ai appréciée

C'est pas à moi que tu dois dire cela, la moindre des politesses aurait été de lui répondre non ?

elle ne génère pas de liste mais uniquement des msgbox. Pas très évident quand on sait qu'il y a plusieurs centaines d'ID.

Il suffit d'envoyer les résultats dans une feuille, dans une listbox, dans un fichier texte, dans...ce que tu veux.
Par exemple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Sub IDMenu()
Dim C As CommandBarControl
For Each C In CommandBars("Worksheet Menu Bar").Controls
Debug.Print C.Caption & "-" & C.ID
Next C
End Sub

Faire Ctrl+G dans l'éditeur de macro pour voir le résultat

[olivepao]

Re Fring


Merci d'avoir compléter la réponse de tototiti2008 !

[olivepao]

Re tout le monde


Après 2 jours de recherches, j'ai enfin retrouver la macro

La voici pour tout le monde.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Sub FindControlID()
 
 Dim B As Object, Nb As Integer
 Nb = Application.CommandBars.Count
 [A1].Resize(, 2).Value = Array("Caption", "ID")
 
 For X = 1 To Nb
 For Each B In Application.CommandBars.Item(X).Controls
 With [A65536].End(xlUp).Offset(1)
 .Value = B.Caption
 .Offset(, 1).Value = B.ID
 End With
 Next
 Next
 Range("A1:B1").EntireColumn.AutoFit
 Set a = Nothing: Set B = Nothing
 End Sub

A++