Menu contextuel sur une forme ou une Zone de texte
4 réponses
Julien
Bonjour,
A l'aide de VBA, je modifie le menu "Cell" d'une feuille de calcul pour
ajouter mes propres commandes.
Je souhaiterais faire de même sur le menu contextuel qui apparait quand je
clique-droit sur une zone de texte ou une forme automatique placée à partir
de la barre d'outils dessin.
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
isabelle
bonjour Julien,
voici un exemple pour ajouter la "Calculatrice" à ce menu "Shapes":
Sub Macro41() With Application.CommandBars("Shapes").Controls.Add(msoControlButton) .Caption = "Calculatice" .BeginGroup = True .FaceId = 252 .OnAction = "Calculette" End With End Sub
isabelle
Bonjour,
A l'aide de VBA, je modifie le menu "Cell" d'une feuille de calcul pour ajouter mes propres commandes.
Je souhaiterais faire de même sur le menu contextuel qui apparait quand je clique-droit sur une zone de texte ou une forme automatique placée à partir de la barre d'outils dessin.
Est-il possible de modifier ces menus ?
Merci de votre aide,
Julien
bonjour Julien,
voici un exemple pour ajouter la "Calculatrice" à ce menu "Shapes":
Sub Macro41()
With Application.CommandBars("Shapes").Controls.Add(msoControlButton)
.Caption = "Calculatice"
.BeginGroup = True
.FaceId = 252
.OnAction = "Calculette"
End With
End Sub
isabelle
Bonjour,
A l'aide de VBA, je modifie le menu "Cell" d'une feuille de calcul pour
ajouter mes propres commandes.
Je souhaiterais faire de même sur le menu contextuel qui apparait quand je
clique-droit sur une zone de texte ou une forme automatique placée à partir
de la barre d'outils dessin.
voici un exemple pour ajouter la "Calculatrice" à ce menu "Shapes":
Sub Macro41() With Application.CommandBars("Shapes").Controls.Add(msoControlButton) .Caption = "Calculatice" .BeginGroup = True .FaceId = 252 .OnAction = "Calculette" End With End Sub
isabelle
Bonjour,
A l'aide de VBA, je modifie le menu "Cell" d'une feuille de calcul pour ajouter mes propres commandes.
Je souhaiterais faire de même sur le menu contextuel qui apparait quand je clique-droit sur une zone de texte ou une forme automatique placée à partir de la barre d'outils dessin.
Est-il possible de modifier ces menus ?
Merci de votre aide,
Julien
news.microsoft.com
Isabelle,
Super exemple :) Iil répond parfaitement à mes besoins.
Merci de ton aide.
Est-ce que quelqu'un sait où trouver une liste des noms VBA de ces menu contextuels tel que Cell ou Shapes ?
Julien
"isabelle" a écrit dans le message de news:
bonjour Julien,
voici un exemple pour ajouter la "Calculatrice" à ce menu "Shapes":
Sub Macro41() With Application.CommandBars("Shapes").Controls.Add(msoControlButton) .Caption = "Calculatice" .BeginGroup = True .FaceId = 252 .OnAction = "Calculette" End With End Sub
isabelle
Bonjour,
A l'aide de VBA, je modifie le menu "Cell" d'une feuille de calcul pour ajouter mes propres commandes.
Je souhaiterais faire de même sur le menu contextuel qui apparait quand je clique-droit sur une zone de texte ou une forme automatique placée à partir de la barre d'outils dessin.
Est-il possible de modifier ces menus ?
Merci de votre aide,
Julien
Isabelle,
Super exemple :) Iil répond parfaitement à mes besoins.
Merci de ton aide.
Est-ce que quelqu'un sait où trouver une liste des noms VBA de ces menu
contextuels tel que Cell ou Shapes ?
Julien
"isabelle" <i@v> a écrit dans le message de news:
O2RRI2kbIHA.536@TK2MSFTNGP06.phx.gbl...
bonjour Julien,
voici un exemple pour ajouter la "Calculatrice" à ce menu "Shapes":
Sub Macro41()
With Application.CommandBars("Shapes").Controls.Add(msoControlButton)
.Caption = "Calculatice"
.BeginGroup = True
.FaceId = 252
.OnAction = "Calculette"
End With
End Sub
isabelle
Bonjour,
A l'aide de VBA, je modifie le menu "Cell" d'une feuille de calcul pour
ajouter mes propres commandes.
Je souhaiterais faire de même sur le menu contextuel qui apparait quand
je clique-droit sur une zone de texte ou une forme automatique placée à
partir de la barre d'outils dessin.
Super exemple :) Iil répond parfaitement à mes besoins.
Merci de ton aide.
Est-ce que quelqu'un sait où trouver une liste des noms VBA de ces menu contextuels tel que Cell ou Shapes ?
Julien
"isabelle" a écrit dans le message de news:
bonjour Julien,
voici un exemple pour ajouter la "Calculatrice" à ce menu "Shapes":
Sub Macro41() With Application.CommandBars("Shapes").Controls.Add(msoControlButton) .Caption = "Calculatice" .BeginGroup = True .FaceId = 252 .OnAction = "Calculette" End With End Sub
isabelle
Bonjour,
A l'aide de VBA, je modifie le menu "Cell" d'une feuille de calcul pour ajouter mes propres commandes.
Je souhaiterais faire de même sur le menu contextuel qui apparait quand je clique-droit sur une zone de texte ou une forme automatique placée à partir de la barre d'outils dessin.
Est-il possible de modifier ces menus ?
Merci de votre aide,
Julien
isabelle
bonjour Julien,
voilà :
Sub Infos_CommandBars() 'il faut être patient, remplie les cellules A1:E1103 Application.ScreenUpdating = False On Error Resume Next Dim cb As CommandBar Worksheets.Add [A1] = "ID": [B1] = "Nom Local": [C1] = "VBA name" [D1] = "Control ID": [E1] = "Control caption" i = 2 With ActiveSheet For Each cb In CommandBars For Each c In cb.Controls .Cells(i, 1).Value = cb.ID .Cells(i, 2).Value = cb.NameLocal .Cells(i, 3).Value = cb.Name .Cells(i, 4).Value = c.ID .Cells(i, 5).Value = c.Caption i = i + 1 Next c Next cb Range("A:F").Columns.AutoFit End With Application.ScreenUpdating = True End Sub
isabelle
Isabelle,
Super exemple :) Iil répond parfaitement à mes besoins.
Merci de ton aide.
Est-ce que quelqu'un sait où trouver une liste des noms VBA de ces menu contextuels tel que Cell ou Shapes ?
Julien
"isabelle" a écrit dans le message de news:
bonjour Julien,
voici un exemple pour ajouter la "Calculatrice" à ce menu "Shapes":
Sub Macro41() With Application.CommandBars("Shapes").Controls.Add(msoControlButton) .Caption = "Calculatice" .BeginGroup = True .FaceId = 252 .OnAction = "Calculette" End With End Sub
isabelle
Bonjour,
A l'aide de VBA, je modifie le menu "Cell" d'une feuille de calcul pour ajouter mes propres commandes.
Je souhaiterais faire de même sur le menu contextuel qui apparait quand je clique-droit sur une zone de texte ou une forme automatique placée à partir de la barre d'outils dessin.
Est-il possible de modifier ces menus ?
Merci de votre aide,
Julien
bonjour Julien,
voilà :
Sub Infos_CommandBars()
'il faut être patient, remplie les cellules A1:E1103
Application.ScreenUpdating = False
On Error Resume Next
Dim cb As CommandBar
Worksheets.Add
[A1] = "ID": [B1] = "Nom Local": [C1] = "VBA name"
[D1] = "Control ID": [E1] = "Control caption"
i = 2
With ActiveSheet
For Each cb In CommandBars
For Each c In cb.Controls
.Cells(i, 1).Value = cb.ID
.Cells(i, 2).Value = cb.NameLocal
.Cells(i, 3).Value = cb.Name
.Cells(i, 4).Value = c.ID
.Cells(i, 5).Value = c.Caption
i = i + 1
Next c
Next cb
Range("A:F").Columns.AutoFit
End With
Application.ScreenUpdating = True
End Sub
isabelle
Isabelle,
Super exemple :) Iil répond parfaitement à mes besoins.
Merci de ton aide.
Est-ce que quelqu'un sait où trouver une liste des noms VBA de ces menu
contextuels tel que Cell ou Shapes ?
Julien
"isabelle" <i@v> a écrit dans le message de news:
O2RRI2kbIHA.536@TK2MSFTNGP06.phx.gbl...
bonjour Julien,
voici un exemple pour ajouter la "Calculatrice" à ce menu "Shapes":
Sub Macro41()
With Application.CommandBars("Shapes").Controls.Add(msoControlButton)
.Caption = "Calculatice"
.BeginGroup = True
.FaceId = 252
.OnAction = "Calculette"
End With
End Sub
isabelle
Bonjour,
A l'aide de VBA, je modifie le menu "Cell" d'une feuille de calcul pour
ajouter mes propres commandes.
Je souhaiterais faire de même sur le menu contextuel qui apparait quand
je clique-droit sur une zone de texte ou une forme automatique placée à
partir de la barre d'outils dessin.
Sub Infos_CommandBars() 'il faut être patient, remplie les cellules A1:E1103 Application.ScreenUpdating = False On Error Resume Next Dim cb As CommandBar Worksheets.Add [A1] = "ID": [B1] = "Nom Local": [C1] = "VBA name" [D1] = "Control ID": [E1] = "Control caption" i = 2 With ActiveSheet For Each cb In CommandBars For Each c In cb.Controls .Cells(i, 1).Value = cb.ID .Cells(i, 2).Value = cb.NameLocal .Cells(i, 3).Value = cb.Name .Cells(i, 4).Value = c.ID .Cells(i, 5).Value = c.Caption i = i + 1 Next c Next cb Range("A:F").Columns.AutoFit End With Application.ScreenUpdating = True End Sub
isabelle
Isabelle,
Super exemple :) Iil répond parfaitement à mes besoins.
Merci de ton aide.
Est-ce que quelqu'un sait où trouver une liste des noms VBA de ces menu contextuels tel que Cell ou Shapes ?
Julien
"isabelle" a écrit dans le message de news:
bonjour Julien,
voici un exemple pour ajouter la "Calculatrice" à ce menu "Shapes":
Sub Macro41() With Application.CommandBars("Shapes").Controls.Add(msoControlButton) .Caption = "Calculatice" .BeginGroup = True .FaceId = 252 .OnAction = "Calculette" End With End Sub
isabelle
Bonjour,
A l'aide de VBA, je modifie le menu "Cell" d'une feuille de calcul pour ajouter mes propres commandes.
Je souhaiterais faire de même sur le menu contextuel qui apparait quand je clique-droit sur une zone de texte ou une forme automatique placée à partir de la barre d'outils dessin.
Est-il possible de modifier ces menus ?
Merci de votre aide,
Julien
Julien
Nickel, Merci isabelle.
Bonne soirée,
Julien
"isabelle" a écrit dans le message de news: %
bonjour Julien,
voilà :
Sub Infos_CommandBars() 'il faut être patient, remplie les cellules A1:E1103 Application.ScreenUpdating = False On Error Resume Next Dim cb As CommandBar Worksheets.Add [A1] = "ID": [B1] = "Nom Local": [C1] = "VBA name" [D1] = "Control ID": [E1] = "Control caption" i = 2 With ActiveSheet For Each cb In CommandBars For Each c In cb.Controls .Cells(i, 1).Value = cb.ID .Cells(i, 2).Value = cb.NameLocal .Cells(i, 3).Value = cb.Name .Cells(i, 4).Value = c.ID .Cells(i, 5).Value = c.Caption i = i + 1 Next c Next cb Range("A:F").Columns.AutoFit End With Application.ScreenUpdating = True End Sub
isabelle
Isabelle,
Super exemple :) Iil répond parfaitement à mes besoins.
Merci de ton aide.
Est-ce que quelqu'un sait où trouver une liste des noms VBA de ces menu contextuels tel que Cell ou Shapes ?
Julien
"isabelle" a écrit dans le message de news:
bonjour Julien,
voici un exemple pour ajouter la "Calculatrice" à ce menu "Shapes":
Sub Macro41() With Application.CommandBars("Shapes").Controls.Add(msoControlButton) .Caption = "Calculatice" .BeginGroup = True .FaceId = 252 .OnAction = "Calculette" End With End Sub
isabelle
Bonjour,
A l'aide de VBA, je modifie le menu "Cell" d'une feuille de calcul pour ajouter mes propres commandes.
Je souhaiterais faire de même sur le menu contextuel qui apparait quand je clique-droit sur une zone de texte ou une forme automatique placée à partir de la barre d'outils dessin.
Est-il possible de modifier ces menus ?
Merci de votre aide,
Julien
Nickel, Merci isabelle.
Bonne soirée,
Julien
"isabelle" <i@v> a écrit dans le message de news:
%23db8sCmbIHA.536@TK2MSFTNGP06.phx.gbl...
bonjour Julien,
voilà :
Sub Infos_CommandBars()
'il faut être patient, remplie les cellules A1:E1103
Application.ScreenUpdating = False
On Error Resume Next
Dim cb As CommandBar
Worksheets.Add
[A1] = "ID": [B1] = "Nom Local": [C1] = "VBA name"
[D1] = "Control ID": [E1] = "Control caption"
i = 2
With ActiveSheet
For Each cb In CommandBars
For Each c In cb.Controls
.Cells(i, 1).Value = cb.ID
.Cells(i, 2).Value = cb.NameLocal
.Cells(i, 3).Value = cb.Name
.Cells(i, 4).Value = c.ID
.Cells(i, 5).Value = c.Caption
i = i + 1
Next c
Next cb
Range("A:F").Columns.AutoFit
End With
Application.ScreenUpdating = True
End Sub
isabelle
Isabelle,
Super exemple :) Iil répond parfaitement à mes besoins.
Merci de ton aide.
Est-ce que quelqu'un sait où trouver une liste des noms VBA de ces menu
contextuels tel que Cell ou Shapes ?
Julien
"isabelle" <i@v> a écrit dans le message de news:
O2RRI2kbIHA.536@TK2MSFTNGP06.phx.gbl...
bonjour Julien,
voici un exemple pour ajouter la "Calculatrice" à ce menu "Shapes":
Sub Macro41()
With Application.CommandBars("Shapes").Controls.Add(msoControlButton)
.Caption = "Calculatice"
.BeginGroup = True
.FaceId = 252
.OnAction = "Calculette"
End With
End Sub
isabelle
Bonjour,
A l'aide de VBA, je modifie le menu "Cell" d'une feuille de calcul pour
ajouter mes propres commandes.
Je souhaiterais faire de même sur le menu contextuel qui apparait quand
je clique-droit sur une zone de texte ou une forme automatique placée à
partir de la barre d'outils dessin.
Sub Infos_CommandBars() 'il faut être patient, remplie les cellules A1:E1103 Application.ScreenUpdating = False On Error Resume Next Dim cb As CommandBar Worksheets.Add [A1] = "ID": [B1] = "Nom Local": [C1] = "VBA name" [D1] = "Control ID": [E1] = "Control caption" i = 2 With ActiveSheet For Each cb In CommandBars For Each c In cb.Controls .Cells(i, 1).Value = cb.ID .Cells(i, 2).Value = cb.NameLocal .Cells(i, 3).Value = cb.Name .Cells(i, 4).Value = c.ID .Cells(i, 5).Value = c.Caption i = i + 1 Next c Next cb Range("A:F").Columns.AutoFit End With Application.ScreenUpdating = True End Sub
isabelle
Isabelle,
Super exemple :) Iil répond parfaitement à mes besoins.
Merci de ton aide.
Est-ce que quelqu'un sait où trouver une liste des noms VBA de ces menu contextuels tel que Cell ou Shapes ?
Julien
"isabelle" a écrit dans le message de news:
bonjour Julien,
voici un exemple pour ajouter la "Calculatrice" à ce menu "Shapes":
Sub Macro41() With Application.CommandBars("Shapes").Controls.Add(msoControlButton) .Caption = "Calculatice" .BeginGroup = True .FaceId = 252 .OnAction = "Calculette" End With End Sub
isabelle
Bonjour,
A l'aide de VBA, je modifie le menu "Cell" d'une feuille de calcul pour ajouter mes propres commandes.
Je souhaiterais faire de même sur le menu contextuel qui apparait quand je clique-droit sur une zone de texte ou une forme automatique placée à partir de la barre d'outils dessin.