Bonsoir à tous.
je cherche comment rajouter une commande dans le menu contextuel qui
apparait quand on fait un clic droit.
J'ai bien trouvé comment faire mon propre menu contextuel
ici : http://www.excelabo.net/xl/barres.php#menucontextuel
mais je souhaiterais juste rajouter une option dans le menu contextuel
existant.
Est ce possible ?
Finopat
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
MichDenis
Bonjour Finopat,
Copie cette exemple dans un module standard :
Et pour retrouver ton menu contextuel standard, tu exécutes cette ligne de code : Application.CommandBars("Cell").Reset
'-------------------- Sub AjoutCommandeCell()
Dim Mbar As CommandBar Dim Ctrl As CommandBarControl
Dim t As MsoButtonSetType t = dd
Set Mbar = Application.CommandBars("Cell")
With Mbar Set Ctrl = .Controls.Add(msoControlButton, , , , True) End With
With Ctrl .BeginGroup = True .Caption = "MonBouton" .TooltipText = "Telle action" .OnAction = "Wow" End With
End Sub
'-------------------- Sub Wow()
MsgBox "bonjour" End Sub '--------------------
Salutations!
"Finopat" a écrit dans le message de news:
Bonsoir à tous. je cherche comment rajouter une commande dans le menu contextuel qui apparait quand on fait un clic droit. J'ai bien trouvé comment faire mon propre menu contextuel ici : http://www.excelabo.net/xl/barres.php#menucontextuel mais je souhaiterais juste rajouter une option dans le menu contextuel existant. Est ce possible ? Finopat
Bonjour Finopat,
Copie cette exemple dans un module standard :
Et pour retrouver ton menu contextuel standard, tu exécutes cette ligne de code :
Application.CommandBars("Cell").Reset
'--------------------
Sub AjoutCommandeCell()
Dim Mbar As CommandBar
Dim Ctrl As CommandBarControl
Dim t As MsoButtonSetType
t = dd
Set Mbar = Application.CommandBars("Cell")
With Mbar
Set Ctrl = .Controls.Add(msoControlButton, , , , True)
End With
With Ctrl
.BeginGroup = True
.Caption = "MonBouton"
.TooltipText = "Telle action"
.OnAction = "Wow"
End With
End Sub
'--------------------
Sub Wow()
MsgBox "bonjour"
End Sub
'--------------------
Salutations!
"Finopat" <finoapt@wanadoo.fr> a écrit dans le message de news: opsnq8bgbkso7j0p@news.microsoft.com...
Bonsoir à tous.
je cherche comment rajouter une commande dans le menu contextuel qui
apparait quand on fait un clic droit.
J'ai bien trouvé comment faire mon propre menu contextuel
ici : http://www.excelabo.net/xl/barres.php#menucontextuel
mais je souhaiterais juste rajouter une option dans le menu contextuel
existant.
Est ce possible ?
Finopat
Et pour retrouver ton menu contextuel standard, tu exécutes cette ligne de code : Application.CommandBars("Cell").Reset
'-------------------- Sub AjoutCommandeCell()
Dim Mbar As CommandBar Dim Ctrl As CommandBarControl
Dim t As MsoButtonSetType t = dd
Set Mbar = Application.CommandBars("Cell")
With Mbar Set Ctrl = .Controls.Add(msoControlButton, , , , True) End With
With Ctrl .BeginGroup = True .Caption = "MonBouton" .TooltipText = "Telle action" .OnAction = "Wow" End With
End Sub
'-------------------- Sub Wow()
MsgBox "bonjour" End Sub '--------------------
Salutations!
"Finopat" a écrit dans le message de news:
Bonsoir à tous. je cherche comment rajouter une commande dans le menu contextuel qui apparait quand on fait un clic droit. J'ai bien trouvé comment faire mon propre menu contextuel ici : http://www.excelabo.net/xl/barres.php#menucontextuel mais je souhaiterais juste rajouter une option dans le menu contextuel existant. Est ce possible ? Finopat
MichDenis
Bonjour Finopat,
Copie cette exemple dans un module standard :
Et pour retrouver ton menu contextuel standard, tu exécutes cette ligne de code : Application.CommandBars("Cell").Reset
'-------------------- Sub AjoutCommandeCell()
Dim Mbar As CommandBar Dim Ctrl As CommandBarControl
Set Mbar = Application.CommandBars("Cell") With Mbar Set Ctrl = .Controls.Add(msoControlButton, , , , True) End With
With Ctrl .BeginGroup = True .Caption = "MonBouton" .TooltipText = "Telle action" .OnAction = "Wow" End With
End Sub '-------------------- Sub Wow()
MsgBox "bonjour" End Sub '--------------------
"Finopat" a écrit dans le message de news:
Bonsoir à tous. je cherche comment rajouter une commande dans le menu contextuel qui apparait quand on fait un clic droit. J'ai bien trouvé comment faire mon propre menu contextuel ici : http://www.excelabo.net/xl/barres.php#menucontextuel mais je souhaiterais juste rajouter une option dans le menu contextuel existant. Est ce possible ? Finopat
Bonjour Finopat,
Copie cette exemple dans un module standard :
Et pour retrouver ton menu contextuel standard, tu exécutes cette ligne de code :
Application.CommandBars("Cell").Reset
'--------------------
Sub AjoutCommandeCell()
Dim Mbar As CommandBar
Dim Ctrl As CommandBarControl
Set Mbar = Application.CommandBars("Cell")
With Mbar
Set Ctrl = .Controls.Add(msoControlButton, , , , True)
End With
With Ctrl
.BeginGroup = True
.Caption = "MonBouton"
.TooltipText = "Telle action"
.OnAction = "Wow"
End With
End Sub
'--------------------
Sub Wow()
MsgBox "bonjour"
End Sub
'--------------------
"Finopat" <finoapt@wanadoo.fr> a écrit dans le message de news: opsnq8bgbkso7j0p@news.microsoft.com...
Bonsoir à tous.
je cherche comment rajouter une commande dans le menu contextuel qui
apparait quand on fait un clic droit.
J'ai bien trouvé comment faire mon propre menu contextuel
ici : http://www.excelabo.net/xl/barres.php#menucontextuel
mais je souhaiterais juste rajouter une option dans le menu contextuel
existant.
Est ce possible ?
Finopat
Et pour retrouver ton menu contextuel standard, tu exécutes cette ligne de code : Application.CommandBars("Cell").Reset
'-------------------- Sub AjoutCommandeCell()
Dim Mbar As CommandBar Dim Ctrl As CommandBarControl
Set Mbar = Application.CommandBars("Cell") With Mbar Set Ctrl = .Controls.Add(msoControlButton, , , , True) End With
With Ctrl .BeginGroup = True .Caption = "MonBouton" .TooltipText = "Telle action" .OnAction = "Wow" End With
End Sub '-------------------- Sub Wow()
MsgBox "bonjour" End Sub '--------------------
"Finopat" a écrit dans le message de news:
Bonsoir à tous. je cherche comment rajouter une commande dans le menu contextuel qui apparait quand on fait un clic droit. J'ai bien trouvé comment faire mon propre menu contextuel ici : http://www.excelabo.net/xl/barres.php#menucontextuel mais je souhaiterais juste rajouter une option dans le menu contextuel existant. Est ce possible ? Finopat
Finopat
Bonjour, merci Denis, cela correspond à ce que je cherchais.
Finopat
Le Wed, 16 Mar 2005 19:26:07 -0500, MichDenis a écrit:
Bonjour Finopat,
Copie cette exemple dans un module standard :
Et pour retrouver ton menu contextuel standard, tu exécutes cette ligne de code : Application.CommandBars("Cell").Reset
'-------------------- Sub AjoutCommandeCell()
Dim Mbar As CommandBar Dim Ctrl As CommandBarControl
Set Mbar = Application.CommandBars("Cell") With Mbar Set Ctrl = .Controls.Add(msoControlButton, , , , True) End With
With Ctrl .BeginGroup = True .Caption = "MonBouton" .TooltipText = "Telle action" .OnAction = "Wow" End With
End Sub '-------------------- Sub Wow()
MsgBox "bonjour" End Sub '--------------------
"Finopat" a écrit dans le message de news:
Bonsoir à tous. je cherche comment rajouter une commande dans le menu contextuel qui apparait quand on fait un clic droit. J'ai bien trouvé comment faire mon propre menu contextuel ici : http://www.excelabo.net/xl/barres.php#menucontextuel mais je souhaiterais juste rajouter une option dans le menu contextuel existant. Est ce possible ? Finopat
Bonjour,
merci Denis, cela correspond à ce que je cherchais.
Finopat
Le Wed, 16 Mar 2005 19:26:07 -0500, MichDenis <michdenis@hotmail.com> a
écrit:
Bonjour Finopat,
Copie cette exemple dans un module standard :
Et pour retrouver ton menu contextuel standard, tu exécutes cette ligne
de code :
Application.CommandBars("Cell").Reset
'--------------------
Sub AjoutCommandeCell()
Dim Mbar As CommandBar
Dim Ctrl As CommandBarControl
Set Mbar = Application.CommandBars("Cell")
With Mbar
Set Ctrl = .Controls.Add(msoControlButton, , , , True)
End With
With Ctrl
.BeginGroup = True
.Caption = "MonBouton"
.TooltipText = "Telle action"
.OnAction = "Wow"
End With
End Sub
'--------------------
Sub Wow()
MsgBox "bonjour"
End Sub
'--------------------
"Finopat" <finoapt@wanadoo.fr> a écrit dans le message de news:
opsnq8bgbkso7j0p@news.microsoft.com...
Bonsoir à tous.
je cherche comment rajouter une commande dans le menu contextuel qui
apparait quand on fait un clic droit.
J'ai bien trouvé comment faire mon propre menu contextuel
ici : http://www.excelabo.net/xl/barres.php#menucontextuel
mais je souhaiterais juste rajouter une option dans le menu contextuel
existant.
Est ce possible ?
Finopat
Bonjour, merci Denis, cela correspond à ce que je cherchais.
Finopat
Le Wed, 16 Mar 2005 19:26:07 -0500, MichDenis a écrit:
Bonjour Finopat,
Copie cette exemple dans un module standard :
Et pour retrouver ton menu contextuel standard, tu exécutes cette ligne de code : Application.CommandBars("Cell").Reset
'-------------------- Sub AjoutCommandeCell()
Dim Mbar As CommandBar Dim Ctrl As CommandBarControl
Set Mbar = Application.CommandBars("Cell") With Mbar Set Ctrl = .Controls.Add(msoControlButton, , , , True) End With
With Ctrl .BeginGroup = True .Caption = "MonBouton" .TooltipText = "Telle action" .OnAction = "Wow" End With
End Sub '-------------------- Sub Wow()
MsgBox "bonjour" End Sub '--------------------
"Finopat" a écrit dans le message de news:
Bonsoir à tous. je cherche comment rajouter une commande dans le menu contextuel qui apparait quand on fait un clic droit. J'ai bien trouvé comment faire mon propre menu contextuel ici : http://www.excelabo.net/xl/barres.php#menucontextuel mais je souhaiterais juste rajouter une option dans le menu contextuel existant. Est ce possible ? Finopat
