menu clic droit options !

[fred]

bonjour,

voici mon code pour avoir mon propre menu clic droit.
Comment faire pour qu'en choisissant dans le nouveau menu clic droit l'item 'Retour Menu Classique' cela affiche le menu classique.
Mais une fois une action effectué à partir du menu au prochain clic droit le menu créé en 1er lieu apparaisse à nouveau.

Merci par avance

dans un Module:

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 = 'Formulaire'
.Controls(1).Caption = 'En-tête Formulaire'

.Controls.Add Type:=msoControlButton
.Controls(2).OnAction = 'Compte_Rendu'
.Controls(2).Caption = 'Compte Rendu'

.Controls.Add Type:=msoControlButton
.Controls(3).OnAction = 'Options'
.Controls(3).Caption = 'Options'


.Controls.Add Type:=msoControlButton
.Controls(4).OnAction = 'Menu_Classique'
.Controls(4).Caption = 'Retour au Menu Classique'


End With
MaBarre.ShowPopup
End Sub

Sub DelPopupMenu()
On Error Resume Next
Application.CommandBars('ClicDroit').Delete
End Sub

Sub Formulaire()
UserForm1.Show
End Sub
Sub Compte_Rendu()
UserForm2.Show
End Sub
Sub Options()
UserForm3.Show
End Sub
Sub Menu_Classique()
?????????
End Sub


dans une feuille qui verra son clic droit affecté par le nouveau menu:

Private Sub Worksheet_BeforeRightClick( _
ByVal Target As Range, Cancel As Boolean)
Cancel = True
CreatePopupMenu
End Sub

 

[Hervé]

bonjour fred

A essayer :

Sub Menu_Classique()
Application.CommandBars('ClicDroit').Delete
Application.CommandBars('Cell').ShowPopup
End Sub

salut

 

[fred]

parfait merci

Bonne fin de journée