Discussion :

[patricktoulon]

bonjour a tous

j ai trouver sur sur le cite "exellabo" le moyen de remplacer le menu contextuel des cellules
voici le code au complet

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
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
 
sub CreatePopupMenu()
 Dim MaBarre As CommandBar
 DelPopupMenu
 Set MaBarre = Application.CommandBars _
    .Add(Name:="ClicDroit", Position:=msoBarPopup)
 With MaBarre
  .Controls.Add Type:=msoControlButton
  .Controls(1).OnAction = "Macro1"
  .Controls(1).Caption = "Commande1"
  .Controls.Add Type:=msoControlButton
  .Controls(2).OnAction = "Macro2"
  .Controls(2).Caption = "Commande2"
 End With
 MaBarre.ShowPopup
 end sub
sub DelPopupMenu()
 On Error Resume Next
 Application.CommandBars("ClicDroit").Delete
 end sub
sub Macro1()
  MsgBox "Commande 1 cliquée"
 end sub
sub Macro2()
  MsgBox "Commande 2 cliquée"
 end sub2- utilisation dans une feuille '(à recopier dans le module de la feuille) 
 
Private sub Worksheet_BeforeRightClick( _
      ByVal Target As Range, Cancel As Boolean)
 Cancel = True 'empêche l'affichage du menu d'Excel
 CreatePopupMenu
 end sub

cependant moi je voudrais metre des sousmenu au deux items

je ne sais pas faire du tout quelqu'un aurais t il une idée pour m aider


merci d avance

[Invité]

Bonjour

Un peu de lecture de ce tuto : http://fring.developpez.com/vba/excel/barremenu/

Philippe

[patricktoulon]

merci Jean-Phillipe Josmans
javais deja vu ce tuto je l ai dailleur garder en format pdf

efectivement dans l'exemple final a la fin du tuto
dans le sous menu 2 il y a bien l effet recherché mais ca fonctionne pas en commandbarpopup puisque l 'ittem qui decencherais la cascade du sous menu fait deja partie d'une commandbarpopup dans mon cas

c'est un peu comme si jedemandais a mon menu popup de medeclencher un autre menu popup hors ce n'est pas ce que je veux moi c'est une cascade a partir des deux boutons de la meme maniere que le sous menu 2 dans le tuto

l'exemple sur le tuto declenche le popup "word,excel,powerpoint" a partir d'un bouton dans la commanbar et non pas d'une commandbar popup

je vais essayer de comprendre un peu tout ca je te remercie de ton aide


je reviens si je ny arrive pas
merci encore a toi

[patricktoulon]

ok voila rebonjour jean-philipe
voila j'ai relu le tuto et j ai decouvert pourquoi je ny arrivait pas
il fallait declarer les variables au depart
et utiliser les nom de variables plutot que les vrai nom des commandes

je depose le code si sa peut servir au autre

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
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
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
 
Sub CreatePopupMenu()
 
 Dim Cpop1 As CommandBarPopup, Cpop2 As CommandBarPopup, Cpop3 As CommandBarPopup
 Dim Cbut As CommandBarButton
 Dim MaBarre As CommandBar
 DelPopupMenu
 Set MaBarre = Application.CommandBars _
    .Add(Name:="ClicDroit", Position:=msoBarPopup)
 
 
 
 
'' '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' creation du menu FORFAIT DEPLACEMENT dans le menu contextuel
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
 
 Set Cpop1 = MaBarre.Controls.Add(msoControlPopup)
With Cpop1
.Caption = "FORFAIT DEPLACEMENT" '<-- label du sous-menu
 
End With
 
Set Cbut = Cpop1.Controls.Add(Type:=msoControlButton)
With Cbut
.FaceId = 326 '<-- bouton avec icône + texte
.Caption = "MOINS DE 15 KMS" '<-- label du bouton
.OnAction = "MACRO15KMS"
End With
 
Set Cbut = Cpop1.Controls.Add(Type:=msoControlButton)
With Cbut
.FaceId = 326 '<-- bouton avec icône + texte
.Caption = "PLUS DE 25 KMS" '<-- label du bouton
.OnAction = "Macro25KMS"
End With
 
Set Cbut = Cpop1.Controls.Add(Type:=msoControlButton)
With Cbut
.FaceId = 326 '<-- bouton avec icône + texte
.Caption = "PLUS DE 50 KMS" '<-- label du bouton
.OnAction = "Macro50KMS"
End With
 
 
 
 
 
 
 
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' creation du menu liste tarif dans le menu contextuel
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Set Cpop2 = MaBarre.Controls.Add(msoControlPopup)
With Cpop2
.Caption = "LISTE TARIF" '<-- label du sous-menu
 
End With
 
Set Cbut = Cpop2.Controls.Add(Type:=msoControlButton)
With Cbut
.FaceId = 326 '<-- bouton avec icône + texte
.Caption = "TARIF A 22€" '<-- label du bouton
.OnAction = "MACRO22"
End With
 
Set Cbut = Cpop2.Controls.Add(Type:=msoControlButton)
With Cbut
.FaceId = 326 '<-- bouton avec icône + texte
.Caption = "TARIF A 25€" '<-- label du bouton
.OnAction = "MACRO25"
End With
 
Set Cbut = Cpop2.Controls.Add(Type:=msoControlButton)
With Cbut
.FaceId = 326 '<-- bouton avec icône + texte
.Caption = "TARIF A 27€" '<-- label du bouton
.OnAction = "MACRO27"
End With
 
Set Cbut = Cpop2.Controls.Add(Type:=msoControlButton)
With Cbut
.FaceId = 326 '<-- bouton avec icône + texte
.Caption = "TARIF A 30€" '<-- label du bouton
.OnAction = "MACRO30"
End With
 
Set Cbut = Cpop2.Controls.Add(Type:=msoControlButton)
With Cbut
.FaceId = 326 '<-- bouton avec icône + texte
.Caption = "TARIF A 33€" '<-- label du bouton
.OnAction = "MACRO33"
End With
 
Set Cbut = Cpop2.Controls.Add(Type:=msoControlButton)
With Cbut
.FaceId = 326 '<-- bouton avec icône + texte
.Caption = "TARIF A 35€" '<-- label du bouton
.OnAction = "MACRO35"
End With
 
Set Cbut = Cpop2.Controls.Add(Type:=msoControlButton)
With Cbut
.FaceId = 326 '<-- bouton avec icône + texte
.Caption = "TARIF A 40€" '<-- label du bouton
.OnAction = "MACRO40"
End With
 
Set Cbut = Cpop2.Controls.Add(Type:=msoControlButton)
With Cbut
.FaceId = 326 '<-- bouton avec icône + texte
.Caption = "TARIF A 45€" '<-- label du bouton
.OnAction = "MACRO45"
End With
 
Set Cbut = Cpop2.Controls.Add(Type:=msoControlButton)
With Cbut
.FaceId = 326 '<-- bouton avec icône + texte
.Caption = "TARIF A 50€" '<-- label du bouton
.OnAction = "MACRO50"
End With
 
 
 
 
 
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' creation du menu liste FORFAIT dans le menu contextuel
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
 
Set Cpop3 = MaBarre.Controls.Add(msoControlPopup)
With Cpop3
.Caption = "LISTE FORFAIT" '<-- label du sous-menu
 
End With
 
 Set Cbut = Cpop3.Controls.Add(Type:=msoControlButton)
With Cbut
.FaceId = 326 '<-- bouton avec icône + texte
.Caption = "FORFAIT A 100€" '<-- label du bouton
.OnAction = "Macro100"
End With
 
 Set Cbut = Cpop3.Controls.Add(Type:=msoControlButton)
With Cbut
.FaceId = 326 '<-- bouton avec icône + texte
.Caption = "FORFAIT A 150€" '<-- label du bouton
.OnAction = "Macro150"
End With
 
  Set Cbut = Cpop3.Controls.Add(Type:=msoControlButton)
With Cbut
.FaceId = 326 '<-- bouton avec icône + texte
.Caption = "FORFAIT A 200€" '<-- label du bouton
.OnAction = "Macro200"
End With
 
 Set Cbut = Cpop3.Controls.Add(Type:=msoControlButton)
With Cbut
.FaceId = 326 '<-- bouton avec icône + texte
.Caption = "FORFAIT A 250€" '<-- label du bouton
.OnAction = "Macro250"
End With
  Set Cbut = Cpop3.Controls.Add(Type:=msoControlButton)
With Cbut
.FaceId = 326 '<-- bouton avec icône + texte
.Caption = "FORFAIT A 300€" '<-- label du bouton
.OnAction = "Macro300"
End With
 
 
 
 
 MaBarre.ShowPopup
 Cancel = True
 
 
 
 
 End Sub
 Sub DelPopupMenu()
 
 
 
 On Error Resume Next
 Cancel = False
 Application.CommandBars("ClicDroit").Delete
 End Sub
 Sub Macro100()
 
 
 
  MsgBox "FORFAIT A 100€ cliquée"
 End Sub
 Sub Macro150()
 
 
  MsgBox "FORFAIT A 150€ cliquée"
 
 End Sub
 '2- utilisation dans une feuille '(à recopier dans le module de la feuille)
 
 
 
Private Sub Workbook_BeforeClose(Cancel As Boolean)
 DelPopupMenu
 End Sub

je n'ai pas mis toutes les macro qui sonrt appelée par les boutons du menu je laisse le soins a ceux a qui ca servira des les créer


merci a toi encore une fois