F
fred
Guest
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
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