Les Ids des menu sous Office

[Qwazerty]

Salut
Un lien intéressant, il ne me semble pas l'avoir vu sur la faq.
++
Qwaz

[Edit]
Si comme moi, ça vous agace de pas trouver ce que vous cherchez dans cette longuuuuue liste, voila un code tout simple qui permet de lister le contenu d'un menu

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
Sub ListeBarre()
Dim Ctrl
Dim Message As String
 
Application.ScreenUpdating = False
 
With ThisWorkbook.Sheets("Feuil2")
    .Cells.Clear
    .[A1] = "Liste des Barres:"
    .[A2] = "Nom"
    .[B2] = "Nom Local"
 
    For Each Ctrl In CommandBars
        With .Cells(Rows.Count, "A").End(xlUp).Offset(1)
            .Value = Ctrl.Name
            .Offset(0, 1) = Ctrl.NameLocal
        End With
    Next
 
    .Columns("A:B").AutoFit
End With
 
Application.ScreenUpdating = True
End Sub
 
Sub ListeBarre()
Dim Ctrl
Dim Message As String
 
Application.ScreenUpdating = False
 
With ThisWorkbook.Sheets("Feuil2")
    .Cells.Clear
    .[A1] = "Liste des Barres:"
    .[A2] = "Nom"
    .[B2] = "Nom Local"
    .[C2] = "ID"
 
    For Each Ctrl In CommandBars
        With .Cells(Rows.Count, "A").End(xlUp).Offset(1)
            .Value = Ctrl.Name
            .Offset(0, 1) = Ctrl.NameLocal
            .Offset(0, 2) = Ctrl.id
        End With
    Next
 
    .Columns("A:B").AutoFit
End With
 
Application.ScreenUpdating = True

Ps: Comme peu de gens le savent, je précise que lorsqu'un MsgBox est affiché (c'est valable dans windows aussi, enfin pas toujours) si vous faite Ctrl + C et que vous faite un Ctrl + V dans votre éditeur de texte préféré, l'intégralité du MsgBox est collé


[/Edit]

[AlainTech]

Bien, le coup du MsgBox.
Je ne savais pas.

Comme quoi, on apprend à tout âge.

[Ormonth]

Bonjour,

Envoyé par Qwazerty

Salut
Un lien intéressant, il ne me semble pas l'avoir vu sur la faq.
++
Qwaz

C'était ici : http://excel.developpez.com/faq/?pag...StdOngletPerso

Vous pouvez télécharger la liste de tous les noms de groupes et contrôles, sur le site Microsoft:
2007 Office System Document: Lists of Control IDs

cordialement,

Didier

[Qwazerty]

Salut
@Ormonth: Merci , J'ai ratté la FAQ. Par contre je l'avais installé leur bazar... ben si quelqu'un arrive à trouver ses petits là dedans ... tant mieux pour lui ^^, moi je n'y suis pas arrivé. Et vu que je voulais pas passer la journée dessus...

Donc au risque de passer pour un barbare , je rajoute un code qui liste les barres présentes, la colonne Nom représente les valeurs à utiliser dans la Sub ListeMenu en la plaçant dans la constante NomDuMenu

[Edit] J'ai mis a jour le code du 1er message [/Edit]

C'est perfectible.. mais j'ai pas le temps :p
++
Qwaz