Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Créer un Menu

Créer un Menu

15 réponses
Avatar
Sunburn
Bonjour,
je voudrais savoir commenbt puis-je créer un menu pour mes macros.
Voilà, j'ai 5 macro, qui sont actuellement en bouton sur mes feuilles, et je
voudrais que ces boutons apparaissent en barre d'outils, en haut.
Comment faire.
Merci.

Yann
Signaler un problème avec ce contenu

10 réponses

Supprimer
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
1 2
Avatar
FxM
Bonjour,
je voudrais savoir commenbt puis-je créer un menu pour mes macros.
Voilà, j'ai 5 macro, qui sont actuellement en bouton sur mes feuilles, et je
voudrais que ces boutons apparaissent en barre d'outils, en haut.
Comment faire.
Merci.

Yann



Bonjour,

Jette un oeil sur menumaker
http://j-walk.com/ss/excel/tips/tip53.htm

@+
FxM

Avatar
JB
Barre de boutons accessible sur tous les onglets.

http://cjoint.com/?islgFJoVhO
http://cjoint.com/?islhyHGBiJ

Sub auto_open()
Dim barre As CommandBar
Dim bouton As CommandBarControl
Set barre = CommandBars.Add(Name:="BarreBoutons")
barre.Visible = True

Set bouton =
CommandBars("BarreBoutons").Controls.Add(Type:=msoControlButton)
bouton.Style = msoButtonCaption
bouton.OnAction = "Macro1"
bouton.Caption = "Macro1"

Set bouton =
CommandBars("BarreBoutons").Controls.Add(Type:=msoControlButton)
bouton.Style = msoButtonCaption
bouton.OnAction = "Macro2"
bouton.Caption = "Macro2"
End Sub

Sub auto_close()
On Error Resume Next
CommandBars("BarreBoutons").Delete
End Sub

Sub macro1()
MsgBox "Macro1"
End Sub

Sub macro2()
MsgBox "Macro2"
End Sub

Ajout d'un menu avec sous-menuà la barre Excel:

Sub CréeNouveauMenu()
Dim NouveauMenu As CommandBarPopup
Dim MenuElément As CommandBarControl
Dim SousMenuElément As CommandBarButton
SupMenu
Set NouveauMenu = CommandBars("Worksheet Menu
Bar").Controls.Add(Type:=msoControlPopup, Temporary:=True, Before:=5)
NouveauMenu.Caption = "&Menu1"
'----
Set MenuElément = NouveauMenu.Controls.Add(Type:=msoControlButton)
MenuElément.Caption = "Commande1"
MenuElément.OnAction = "Macro1"

Set MenuElément = NouveauMenu.Controls.Add(Type:=msoControlPopup)
MenuElément.Caption = "Commande2"
MenuElément.BeginGroup = True
'---- sous menu
Set SousMenuElément =
MenuElément.Controls.Add(Type:=msoControlButton)
SousMenuElément.Caption = "Sous-commande1"
SousMenuElément.OnAction = "Macro1"

Set SousMenuElément =
MenuElément.Controls.Add(Type:=msoControlButton)
SousMenuElément.Caption = "Sous-commande2"
SousMenuElément.OnAction = "Macro1"
End Sub

Sub SupMenu()
On Error Resume Next
CommandBars("Worksheet Menu Bar").Controls("Menu1").Delete
End Sub

Sub Macro1()
MsgBox "Macro1"
End Sub

Cordialement JB



Bonjour,
je voudrais savoir commenbt puis-je créer un menu pour mes macros.
Voilà, j'ai 5 macro, qui sont actuellement en bouton sur mes feuilles, et je
voudrais que ces boutons apparaissent en barre d'outils, en haut.
Comment faire.
Merci.

Yann


Avatar
lSteph
Bonjour,
plus simplement:
clic droit dans les barres de menus personnaliser puis
dans l'onglet commandes
tout en bas
Nouveau Menu (l'emmener dans la barre et clic droit dessus lui mettre un
nom)
puis conséquemment à nouveau
dans personnaliser dans l'onglet commandes
macros puis à droite élément de menu personnalisé.
Tu en mets à ta convenance , tu les nommes et leur affecte les macros
par clic droit Affecter une macro

Cordialement.

lSteph

"Sunburn" a écrit dans le message de
news:
Bonjour,
je voudrais savoir commenbt puis-je créer un menu pour mes macros.
Voilà, j'ai 5 macro, qui sont actuellement en bouton sur mes feuilles, et
je
voudrais que ces boutons apparaissent en barre d'outils, en haut.
Comment faire.
Merci.

Yann


Avatar
lSteph
..j'avais lu créer un menu
si tu préfères Barre d'outils le principe est le même clic droit dans les BO
personnaliser barre d'outils nouvelle
et dans l'onglet commande macros Bouton personnalisé
tu peux le redessiner à ton gout avec l'un clic droit dessus Editeur de
bouton
..pour le reste affecter macro c'est pareil .

Cordialement.

lSteph

"Sunburn" a écrit dans le message de
news:
Bonjour,
je voudrais savoir commenbt puis-je créer un menu pour mes macros.
Voilà, j'ai 5 macro, qui sont actuellement en bouton sur mes feuilles, et
je
voudrais que ces boutons apparaissent en barre d'outils, en haut.
Comment faire.
Merci.

Yann


Avatar
Sunburn
Salut,

Ok, j'ai créer ma barre d'outils.
Mais lors de l'ouverture de mon dossier, j'ai une macro qui me fait
disparaitre mes barre d'outils.
Comment faire pour que celle là apparaisse?
Merci.
Yann


...j'avais lu créer un menu
si tu préfères Barre d'outils le principe est le même clic droit dans les BO
personnaliser barre d'outils nouvelle
et dans l'onglet commande macros Bouton personnalisé
tu peux le redessiner à ton gout avec l'un clic droit dessus Editeur de
bouton
...pour le reste affecter macro c'est pareil .

Cordialement.

lSteph

"Sunburn" a écrit dans le message de
news:
Bonjour,
je voudrais savoir commenbt puis-je créer un menu pour mes macros.
Voilà, j'ai 5 macro, qui sont actuellement en bouton sur mes feuilles, et
je
voudrais que ces boutons apparaissent en barre d'outils, en haut.
Comment faire.
Merci.

Yann







Avatar
lSteph
...
Application.CommandBars("monmenu").Visible = True

ferait-il l'affaire?

lSteph
"Sunburn" a écrit dans le message de
news:
Salut,

Ok, j'ai créer ma barre d'outils.
Mais lors de l'ouverture de mon dossier, j'ai une macro qui me fait
disparaitre mes barre d'outils.
Comment faire pour que celle là apparaisse?
Merci.
Yann


...j'avais lu créer un menu
si tu préfères Barre d'outils le principe est le même clic droit dans les
BO
personnaliser barre d'outils nouvelle
et dans l'onglet commande macros Bouton personnalisé
tu peux le redessiner à ton gout avec l'un clic droit dessus Editeur de
bouton
...pour le reste affecter macro c'est pareil .

Cordialement.

lSteph

"Sunburn" a écrit dans le message de
news:
Bonjour,
je voudrais savoir commenbt puis-je créer un menu pour mes macros.
Voilà, j'ai 5 macro, qui sont actuellement en bouton sur mes feuilles,
et
je
voudrais que ces boutons apparaissent en barre d'outils, en haut.
Comment faire.
Merci.

Yann









Avatar
Sunburn
Oui, j'ai essayer, mais voici ma macro qui s'éxécute au démarage, et ça
marche pas:

'"Suppression" (je mets des guillemets !) :
Sub CacheBOutils()
'Interdire et rétablir les commandes Copier et Couper dans Excel
'(un contributeur du forum anglophone a eu la patience de
'chercher toutes (?) les commandes dans les différents menus
'et barres d'outils d'Excel : Jay T. Emory)
On Error Resume Next
With Application
'disables shortcut keys
.OnKey "^c", ""
.OnKey "^v", ""
.OnKey "^x", ""
'Disables Copy
.CommandBars("Edit").FindControl(ID:).Enabled = False
.CommandBars("Edit").FindControl(ID:„8).Enabled = False
.CommandBars("Cell").FindControl(ID:).Enabled = False
.CommandBars("Column").FindControl(ID:).Enabled = False
.CommandBars("Row").FindControl(ID:).Enabled = False
.CommandBars("Button").FindControl(ID:).Enabled = False
.CommandBars("Formula Bar").FindControl(ID:).Enabled = False
.CommandBars("Worksheet Menu Bar").FindControl(ID:).Enabled = False
.CommandBars("Standard").FindControl(ID:).Enabled = False
.CommandBars("Button").FindControl(ID:„8).Enabled = False
.CommandBars("Formula Bar").FindControl(ID:„8).Enabled = False
.CommandBars("Worksheet Menu Bar").FindControl(ID:„8).Enabled = False
.CommandBars("Standard").FindControl(ID:„8).Enabled = False
.CommandBars("Ply").FindControl(ID:„8).Enabled = False
'Disables Cut
.CommandBars("Edit").FindControl(ID:!).Enabled = False
.CommandBars("Cell").FindControl(ID:!).Enabled = False
.CommandBars("Column").FindControl(ID:!).Enabled = False
.CommandBars("Row").FindControl(ID:!).Enabled = False
.CommandBars("Button").FindControl(ID:!).Enabled = False
.CommandBars("Formula Bar").FindControl(ID:!).Enabled = False
.CommandBars("Worksheet Menu Bar").FindControl(ID:!).Enabled = False
.CommandBars("Standard").FindControl(ID:!).Enabled = False
.CommandBars("Macros").Visible = True

End With
Dim CmdB As CommandBar
For Each CmdB In Application.CommandBars
CmdB.Enabled = False
Next CmdB
End Sub

Merci . YANN
---------


....
Application.CommandBars("monmenu").Visible = True

ferait-il l'affaire?

lSteph
"Sunburn" a écrit dans le message de
news:
Salut,

Ok, j'ai créer ma barre d'outils.
Mais lors de l'ouverture de mon dossier, j'ai une macro qui me fait
disparaitre mes barre d'outils.
Comment faire pour que celle là apparaisse?
Merci.
Yann


...j'avais lu créer un menu
si tu préfères Barre d'outils le principe est le même clic droit dans les
BO
personnaliser barre d'outils nouvelle
et dans l'onglet commande macros Bouton personnalisé
tu peux le redessiner à ton gout avec l'un clic droit dessus Editeur de
bouton
...pour le reste affecter macro c'est pareil .

Cordialement.

lSteph

"Sunburn" a écrit dans le message de
news:
Bonjour,
je voudrais savoir commenbt puis-je créer un menu pour mes macros.
Voilà, j'ai 5 macro, qui sont actuellement en bouton sur mes feuilles,
et
je
voudrais que ces boutons apparaissent en barre d'outils, en haut.
Comment faire.
Merci.

Yann














Avatar
jps
ce qui se comprend car ta macro en question rend TOUTES les BO inopérantes
peut-être qu'en écrivant ceci, à la dernière ligne de ta proc et en tous cas
après le Next CmdB

Application.CommandBars("monmenu").Enabled = True

tu aurais des chances de retrouver la barre que tu as créé, encore faut il
le faire après ta proc CacheBOutils
jps

"Sunburn" a écrit dans le message de
news:
Oui, j'ai essayer, mais voici ma macro qui s'éxécute au démarage, et ça
marche pas:

'"Suppression" (je mets des guillemets !) :
Sub CacheBOutils()
'Interdire et rétablir les commandes Copier et Couper dans Excel
'(un contributeur du forum anglophone a eu la patience de
'chercher toutes (?) les commandes dans les différents menus
'et barres d'outils d'Excel : Jay T. Emory)
On Error Resume Next
With Application
'disables shortcut keys
.OnKey "^c", ""
.OnKey "^v", ""
.OnKey "^x", ""
'Disables Copy
.CommandBars("Edit").FindControl(ID:).Enabled = False
.CommandBars("Edit").FindControl(ID:„8).Enabled = False
.CommandBars("Cell").FindControl(ID:).Enabled = False
.CommandBars("Column").FindControl(ID:).Enabled = False
.CommandBars("Row").FindControl(ID:).Enabled = False
.CommandBars("Button").FindControl(ID:).Enabled = False
.CommandBars("Formula Bar").FindControl(ID:).Enabled = False
.CommandBars("Worksheet Menu Bar").FindControl(ID:).Enabled = False
.CommandBars("Standard").FindControl(ID:).Enabled = False
.CommandBars("Button").FindControl(ID:„8).Enabled = False
.CommandBars("Formula Bar").FindControl(ID:„8).Enabled = False
.CommandBars("Worksheet Menu Bar").FindControl(ID:„8).Enabled = False
.CommandBars("Standard").FindControl(ID:„8).Enabled = False
.CommandBars("Ply").FindControl(ID:„8).Enabled = False
'Disables Cut
.CommandBars("Edit").FindControl(ID:!).Enabled = False
.CommandBars("Cell").FindControl(ID:!).Enabled = False
.CommandBars("Column").FindControl(ID:!).Enabled = False
.CommandBars("Row").FindControl(ID:!).Enabled = False
.CommandBars("Button").FindControl(ID:!).Enabled = False
.CommandBars("Formula Bar").FindControl(ID:!).Enabled = False
.CommandBars("Worksheet Menu Bar").FindControl(ID:!).Enabled = False
.CommandBars("Standard").FindControl(ID:!).Enabled = False
.CommandBars("Macros").Visible = True

End With
Dim CmdB As CommandBar
For Each CmdB In Application.CommandBars
CmdB.Enabled = False
Next CmdB
End Sub

Merci . YANN
---------


....
Application.CommandBars("monmenu").Visible = True

ferait-il l'affaire?

lSteph
"Sunburn" a écrit dans le message de
news:
Salut,

Ok, j'ai créer ma barre d'outils.
Mais lors de l'ouverture de mon dossier, j'ai une macro qui me fait
disparaitre mes barre d'outils.
Comment faire pour que celle là apparaisse?
Merci.
Yann


...j'avais lu créer un menu
si tu préfères Barre d'outils le principe est le même clic droit dans
les
BO
personnaliser barre d'outils nouvelle
et dans l'onglet commande macros Bouton personnalisé
tu peux le redessiner à ton gout avec l'un clic droit dessus Editeur
de
bouton
...pour le reste affecter macro c'est pareil .

Cordialement.

lSteph

"Sunburn" a écrit dans le message
de
news:
Bonjour,
je voudrais savoir commenbt puis-je créer un menu pour mes macros.
Voilà, j'ai 5 macro, qui sont actuellement en bouton sur mes
feuilles,
et
je
voudrais que ces boutons apparaissent en barre d'outils, en haut.
Comment faire.
Merci.

Yann
















Avatar
JB
Ls BO construites manuellement sont adaptées pour des applications
utilitaires (convertir en majuscules,minuscules,...) qui doivent être
tj disponibles quelquesoit le classeur ouvert.
(Pour le transport de l'appli sur un autre poste, il ne faut pas
oublier de les associer au classeur).

En revanche, pour les BO associées à UNE appli, il est préférable
de les construire au chargement du classeur et de les détruire à la
fermeture du classeur. On évite ainsi:
-De multiplier les BO sur le poste.
-Avec les BO permanentes, si on déplace une appli, les boutons ne
pointent plus vers le bon répertoire (pb fréquent)

Cordialement JB


Bonjour,
je voudrais savoir commenbt puis-je créer un menu pour mes macros.
Voilà, j'ai 5 macro, qui sont actuellement en bouton sur mes feuilles, et je
voudrais que ces boutons apparaissent en barre d'outils, en haut.
Comment faire.
Merci.

Yann


Avatar
lSteph
Où as tu mis la commande que je t'ai donnée essaie ceci entre les ''''''
ajoute le à la fin de ta macro
'''''''''
With Application.CommandBars("monmenu")
.Enabled = True
.Visible = True
End With
''''''''
'Cordialement
'lSteph
............Il aurait pu se simplifier la vie, exemple (dans l'autre sens):

Sub Sesame()
For Each CmdB In Application.CommandBars
CmdB.Enabled = True
Next CmdB
With Application
.DisplayFullScreen = False
.DisplayStatusBar = True
.DisplayFormulaBar = True
End With
With ActiveWindow
.DisplayWorkbookTabs = True
.DisplayHeadings = True
End With
End Sub

"Sunburn" a écrit dans le message de
news:
Oui, j'ai essayer, mais voici ma macro qui s'éxécute au démarage, et ça
marche pas:

'"Suppression" (je mets des guillemets !) :
Sub CacheBOutils()
'Interdire et rétablir les commandes Copier et Couper dans Excel
'(un contributeur du forum anglophone a eu la patience de
'chercher toutes (?) les commandes dans les différents menus
'et barres d'outils d'Excel : Jay T. Emory)
On Error Resume Next
With Application
'disables shortcut keys
.OnKey "^c", ""
.OnKey "^v", ""
.OnKey "^x", ""
'Disables Copy
.CommandBars("Edit").FindControl(ID:).Enabled = False
.CommandBars("Edit").FindControl(ID:„8).Enabled = False
.CommandBars("Cell").FindControl(ID:).Enabled = False
.CommandBars("Column").FindControl(ID:).Enabled = False
.CommandBars("Row").FindControl(ID:).Enabled = False
.CommandBars("Button").FindControl(ID:).Enabled = False
.CommandBars("Formula Bar").FindControl(ID:).Enabled = False
.CommandBars("Worksheet Menu Bar").FindControl(ID:).Enabled = False
.CommandBars("Standard").FindControl(ID:).Enabled = False
.CommandBars("Button").FindControl(ID:„8).Enabled = False
.CommandBars("Formula Bar").FindControl(ID:„8).Enabled = False
.CommandBars("Worksheet Menu Bar").FindControl(ID:„8).Enabled = False
.CommandBars("Standard").FindControl(ID:„8).Enabled = False
.CommandBars("Ply").FindControl(ID:„8).Enabled = False
'Disables Cut
.CommandBars("Edit").FindControl(ID:!).Enabled = False
.CommandBars("Cell").FindControl(ID:!).Enabled = False
.CommandBars("Column").FindControl(ID:!).Enabled = False
.CommandBars("Row").FindControl(ID:!).Enabled = False
.CommandBars("Button").FindControl(ID:!).Enabled = False
.CommandBars("Formula Bar").FindControl(ID:!).Enabled = False
.CommandBars("Worksheet Menu Bar").FindControl(ID:!).Enabled = False
.CommandBars("Standard").FindControl(ID:!).Enabled = False
.CommandBars("Macros").Visible = True

End With
Dim CmdB As CommandBar
For Each CmdB In Application.CommandBars
CmdB.Enabled = False
Next CmdB
End Sub

Merci . YANN
---------


....
Application.CommandBars("monmenu").Visible = True

ferait-il l'affaire?

lSteph
"Sunburn" a écrit dans le message de
news:
Salut,

Ok, j'ai créer ma barre d'outils.
Mais lors de l'ouverture de mon dossier, j'ai une macro qui me fait
disparaitre mes barre d'outils.
Comment faire pour que celle là apparaisse?
Merci.
Yann


...j'avais lu créer un menu
si tu préfères Barre d'outils le principe est le même clic droit dans
les
BO
personnaliser barre d'outils nouvelle
et dans l'onglet commande macros Bouton personnalisé
tu peux le redessiner à ton gout avec l'un clic droit dessus Editeur
de
bouton
...pour le reste affecter macro c'est pareil .

Cordialement.

lSteph

"Sunburn" a écrit dans le message
de
news:
Bonjour,
je voudrais savoir commenbt puis-je créer un menu pour mes macros.
Voilà, j'ai 5 macro, qui sont actuellement en bouton sur mes
feuilles,
et
je
voudrais que ces boutons apparaissent en barre d'outils, en haut.
Comment faire.
Merci.

Yann
















1 2