Menu contextuel en fonction de la sélection ? [Résolu]

[Balbo]

Bonjour,

mon problème est que j'ai fais une petit macro en visual basic qui me permet d'ouvrir internet explorer avec une url et un paramètre. Le probleme est que ca marche nickel sur du texte normal je fais un clique droit puis dans mon menu contextuel j'ai bien ma nouvelle fonctionnalité par contre lorsque que j'essaye de l'utiliser sur un titre1 par exemple bah je ne voit plus ma fonctionnalité dans le menu contextuel. Quelqu'un aurait une idée ? Merci d'avance

Code :

1
2
3
4
5
6
7
8
9
10
11
 
 
Sub AutoExec()
    'Réinitialise la barre de commandes "text"
    CommandBars("text").Reset
 
    Set menu = Application.CommandBars("Text").Controls. _
        Add(Type:=msoControlButton)
        menu.Caption = "Ouvrir FFT avec Quality Center"
        menu.OnAction = "OuvrirFFT"
End Sub

[J.Michel]

Bonjour,

Apparement quand tu es sur un titre ce n'est plus la même CommandBars qui s"affiche.
Il faudrait vérifier si c'est bien la CommandBars "Text"

[Balbo]

Comment puis je faire pour ajouter mon menu contextuel dans tous les cas, par exmple comme copier coller !!
Je comprends pas tout, si quelqu'un aurais la liste des commande bar merci beaucoup.

[J.Michel]

Désolé mais je n'ai trouvé nul part la liste des commandbars de Word.
Il faut faire une recherche plus approfondie sur la toile.

Si toutefois tu trouve cette liste pense à nous la communiquer (c'est toujours utile ce genre d'infos)

[fring]

Bonjour,

Pour lister le nom des barres de menu, tu peux essayer ceci :

Code :

1
2
3
4
5
6
7
8
9
10
11
Sub test_barre_menu()
Dim Cbar As CommandBar, Result As String
 
For Each Cbar In CommandBars
    If Cbar.BuiltIn = True Then ' pour ne prendre que les barres de commandes définies par l'application
        Result = Result & Chr(10) & Cbar.Name
    End If
Next
 
Debug.Print Result '<-- Ctrl+G dans l'éditeur de Visual Basic pour visualiser le résultat
End Sub

[Balbo]

Voici la liste des commands bar qui est assez longue

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
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
 
Standard
Formatting
Tables and Borders
Database
Drawing
Forms
Full Screen
Edit Picture
Visual Basic
Stop Recording
Mail Merge
Master Document
Microsoft
Header and Footer
Outlining
Print Preview
Word for Windows 2.0
Read Mail
Send Mail
Extended Formatting
AutoText
Web
WordArt
3-D Settings
Shadow Settings
Picture
Drawing Canvas
Organization Chart
Diagram
Reviewing
AutoSummarize
Exit Design Mode
Control Toolbox
Text Box
Outlook Read Mail
Outlook Send Mail
Function Key Display
Web Tools
Word Count
Japanese Greetings
Menu Bar
Refresh
Frames
E-mail
Reading Layout
Document Layout
Compare Side by Side
Ink Drawing and Writing
Ink Annotations
Ink Comment
Task Pane
 
Drop Caps
Endnotes
Fields
Display Fields
Field Display List Numbers
Form Fields
Footnotes
Frames
Headings
Linked Headings
Script Anchor Popup
Lists
Inline Picture
Inline Canvas
Horizontal Line Popup
Tables
Table Cells
Table Headings
Table Lists
Table Pictures
Table Text
Whole Table
Linked Table
Text
Linked Text
Font Popup
Font Paragraph
Format Inspector Popup in Normal Mode
Format Inspector Popup in Compare Mode
Spelling
Grammar
Grammar (2)
Format consistency
Background Proofing Status Bar
Track Changes
Frame Properties
Hyperlink Context Menu
AutoSignature Popup
Field AutoText
Document Map
Shapes
Curve
Curve Node
Curve Segment
Floating Picture
Canvas Popup
OLE Object
ActiveX Control
WordArt Context Menu
Rotate Mode
Comment
Organization Chart Popup
Diagram
Connector
Track Changes Indicator
Chinese Translation
Address Block Popup
Greeting Line Popup
Inline ActiveX Control
XML Structure Node Popup
XML Error Options
Ink Comment
AutoShapes
Callouts
Flowchart
Block Arrows
Stars & Banners
Lines
Basic Shapes
Connectors
Fill Color
Insert Shape
Line Color
Drawing and Writing Pens
Annotation Pens
Drawing and Writing Pens
Annotation Pens
Align or Distribute
Rotate or Flip
Order
Nudge
Borders
Font Color
Shading Color
Cell Alignment
Text Wrapping
Clipboard
Envelope
System
Online Meeting

J'ai toujours pas réolus mon probleme malheusement, une solution de contournement possible est d ajouter tout simplement par le code un bouton sur ma toolbars en mettant un icone personnaliser, si quelqu'un à un bout de code pour ajouter un bouton personnaliser dans la toolbars ou sinon un bout de code permettant de formatter le texte lors de ma selection afin que le bon menu contextuel apparaisse merci d'avance

[J.Michel]

Bonjour,

Regarde déjà ICI pour un bouton dans la barre d'outils.

Sinon dans les tutoriels LA

[Balbo]

Tes liens sont pour office 2007 j'utilise office 2003, je cherche toujours comment ajouter un bouton simple dans la toolbar avec si possible la possibilité de lui ajouter une image perso.

Quelqu'un doit avoir ca sous le coude quand meme un simple petit bouton

Merci d'avance de vos réponses

[J.Michel]

Bonjour,

Pour Excel:

1. Clic droit sur les barres d'outils
2. Choisir personaliser
3. Sélectionner "Macros" puis faire glisser l'icone "Bouton personalisé" à l'endroit voulu
4. Clic droit sur l'icone et choisir "Affecter une macro"
5. Sélectionner la macro voulue
6. Re Clic droit sur l'icone et choisir "Modifier l'image du bouton" pour choisir une image différente.

Pour Word:

1. Clic droit sur les barres d'outils
2. Choisir personaliser
3. Dans enregistrer dans, sélectionner le fichier où se trouve la macro
4. Sélectionner la macro voulue puis faire glisser l'icone sur la barre d'outil
5. Clic droit sur l'icone et choisir "Modifier l'image du bouton" pour choisir une image différente.

A toi de jouer.......

[Sepia]

Salut,

Pour Word (en complément de ce que t'a dit J.Michel), tu peux même utiliser un mini-éditeur de dessin (non pas de dessin) mais alors vraiment mini l'éditeur pour faire tes propres icônes.

@+

[JackOuYA]

Bonsoir,

Pour trouver le nom de menu contextuel exécute le code :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
 
Sub YaListeMenus()
Dim Cbar As CommandBar
Dim YaBo  As CommandBarButton
  For Each Cbar In CommandBars
      If Cbar.BuiltIn = True And Not (Cbar.Protection And msoBarNoCustomize) = msoBarNoCustomize Then   
       Set YaBo = Cbar.Controls.Add(Type:=msoControlButton, Temporary:=True)
       YaBo.Caption = ">>>" & Cbar.Name & "<<<<"
       YaBo.Tag = "JacKouYA"
     End If
   Next
End Sub

le bout >>>> LeNomDuMenu <<<<< et rajouté au menu, en temporaire.
tu peu aussi nettoyer ce menu par :

Code :

1
2
3
4
5
6
7
8
9
10
11
Sub YANettoie()
Dim Cbar As CommandBar
Dim YaBo
  For Each Cbar In CommandBars
     For Each YaBo In Cbar.Controls
       If YaBo.Tag = "JacKouYA" Then
          YaBo.Delete
        End If
     Next
   Next
End Sub

[Balbo]

Merci a tous j'ai résolu le probleme avec le dernier code fourni merci beaucoup