Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11

Menu personnalisé sous Excel 2003

6 réponses
Avatar
Jacques
Bonjour,

Quand je crée un menu personnalisé sous Excel 2003 par un clic droit sur la
barre des menus puis "personnaliser", le menu créé n'est pas lié au fichier
Excel courant dans lequel se trouvent les macros associées au nouveau menu
(j'ai le même souci avec Powerpoint)

Comment créer un Menu personnalisé qui ne s'afficherait qu'avec le fichier
Excel auquel il est destiné?

Merci

6 réponses

Avatar
JB
Bonjour,

Exemple:

Sub auto_open()
'ajouter le menu Conversion avant le menu Outils
MenuBars(xlWorksheet).Menus.Add Caption:="&Conversion", Before:=6
'ajouter les commandes au menu Conversion
With MenuBars(xlWorksheet).Menus("Conversion").MenuItems
.Add Caption:="Ma&juscule", OnAction:="Majuscule"
.Add Caption:="Mi&nuscule", OnAction:="Minuscule"
.Add Caption:="&Nom Propre", OnAction:="NomPropre"
End With
End Sub

Sub auto_close()
For Each M In MenuBars(xlWorksheet).Menus
If M.Caption = "&Conversion" Then M.Delete
Next
End Sub

Sub Majuscule()
For Each c In Selection
c.Value = UCase(c.Value)
Next c
End Sub

http://boisgontierjacques.free.fr/pages_site/Menus.htm

JB
http://boisgontierjacques.free.fr/



On 16 mar, 15:05, "Jacques" <none> wrote:
Bonjour,

Quand je crée un menu personnalisé sous Excel 2003 par un clic droit s ur la
barre des menus puis "personnaliser", le menu créé n'est pas lié au fichier
Excel courant dans lequel se trouvent les macros associées au nouveau me nu
(j'ai le même souci avec Powerpoint)

Comment créer un Menu personnalisé qui ne s'afficherait qu'avec le fic hier
Excel auquel il est destiné?

Merci


Avatar
Jacques
ok merci

Si plusieurs fichiers excel utilisent ce menu il faut que je vérifie aussi
si le menu n'existe pas déjà.

ca doit être transposable au VBA de powerpoint aussi je suppose


"JB" a écrit dans le message de groupe de
discussion :

Bonjour,

Exemple:

Sub auto_open()
'ajouter le menu Conversion avant le menu Outils
MenuBars(xlWorksheet).Menus.Add Caption:="&Conversion", Before:=6
'ajouter les commandes au menu Conversion
With MenuBars(xlWorksheet).Menus("Conversion").MenuItems
.Add Caption:="Ma&juscule", OnAction:="Majuscule"
.Add Caption:="Mi&nuscule", OnAction:="Minuscule"
.Add Caption:="&Nom Propre", OnAction:="NomPropre"
End With
End Sub

Sub auto_close()
For Each M In MenuBars(xlWorksheet).Menus
If M.Caption = "&Conversion" Then M.Delete
Next
End Sub

Sub Majuscule()
For Each c In Selection
c.Value = UCase(c.Value)
Next c
End Sub

http://boisgontierjacques.free.fr/pages_site/Menus.htm

JB
http://boisgontierjacques.free.fr/



On 16 mar, 15:05, "Jacques" <none> wrote:
Bonjour,

Quand je crée un menu personnalisé sous Excel 2003 par un clic droit sur
la
barre des menus puis "personnaliser", le menu créé n'est pas lié au
fichier
Excel courant dans lequel se trouvent les macros associées au nouveau menu
(j'ai le même souci avec Powerpoint)

Comment créer un Menu personnalisé qui ne s'afficherait qu'avec le fichier
Excel auquel il est destiné?

Merci


Avatar
JB
Le menu est supprimé à la fermeture du fichier (auto_close())

JB
On 16 mar, 16:30, "Jacques" <none> wrote:
ok merci

Si plusieurs fichiers excel utilisent ce menu il faut que je vérifie aus si
si le menu n'existe pas déjà.

ca doit être transposable au VBA de powerpoint aussi je suppose

"JB" a écrit dans le message de groupe de
discussion :

Bonjour,

Exemple:

Sub auto_open()
'ajouter le menu Conversion avant le menu Outils
MenuBars(xlWorksheet).Menus.Add Caption:="&Conversion", Before:=6
'ajouter les commandes au menu Conversion
With MenuBars(xlWorksheet).Menus("Conversion").MenuItems
.Add Caption:="Ma&juscule", OnAction:="Majuscule"
.Add Caption:="Mi&nuscule", OnAction:="Minuscule"
.Add Caption:="&Nom Propre", OnAction:="NomPropre"
End With
End Sub

Sub auto_close()
For Each M In MenuBars(xlWorksheet).Menus
  If M.Caption = "&Conversion" Then M.Delete
Next
End Sub

Sub Majuscule()
For Each c In Selection
   c.Value = UCase(c.Value)
Next c
End Sub

http://boisgontierjacques.free.fr/pages_site/Menus.htm

JBhttp://boisgontierjacques.free.fr/

On 16 mar, 15:05, "Jacques" <none> wrote:



Bonjour,

Quand je crée un menu personnalisé sous Excel 2003 par un clic droit sur
la
barre des menus puis "personnaliser", le menu créé n'est pas lié a u
fichier
Excel courant dans lequel se trouvent les macros associées au nouveau menu
(j'ai le même souci avec Powerpoint)

Comment créer un Menu personnalisé qui ne s'afficherait qu'avec le f ichier
Excel auquel il est destiné?

Merci- Masquer le texte des messages précédents -


- Afficher le texte des messages précédents -



Avatar
Jacques
oui mais si j'ouvre 2 ou 3 fichiers excel qui installent le même menu. il
sera installé 2 ou 3 fois


"JB" a écrit dans le message de groupe de
discussion :

Le menu est supprimé à la fermeture du fichier (auto_close())

JB
On 16 mar, 16:30, "Jacques" <none> wrote:
ok merci

Si plusieurs fichiers excel utilisent ce menu il faut que je vérifie aussi
si le menu n'existe pas déjà.

ca doit être transposable au VBA de powerpoint aussi je suppose

"JB" a écrit dans le message de groupe de
discussion :

Bonjour,

Exemple:

Sub auto_open()
'ajouter le menu Conversion avant le menu Outils
MenuBars(xlWorksheet).Menus.Add Caption:="&Conversion", Before:=6
'ajouter les commandes au menu Conversion
With MenuBars(xlWorksheet).Menus("Conversion").MenuItems
.Add Caption:="Ma&juscule", OnAction:="Majuscule"
.Add Caption:="Mi&nuscule", OnAction:="Minuscule"
.Add Caption:="&Nom Propre", OnAction:="NomPropre"
End With
End Sub

Sub auto_close()
For Each M In MenuBars(xlWorksheet).Menus
If M.Caption = "&Conversion" Then M.Delete
Next
End Sub

Sub Majuscule()
For Each c In Selection
c.Value = UCase(c.Value)
Next c
End Sub

http://boisgontierjacques.free.fr/pages_site/Menus.htm

JBhttp://boisgontierjacques.free.fr/

On 16 mar, 15:05, "Jacques" <none> wrote:



Bonjour,

Quand je crée un menu personnalisé sous Excel 2003 par un clic droit sur
la
barre des menus puis "personnaliser", le menu créé n'est pas lié au
fichier
Excel courant dans lequel se trouvent les macros associées au nouveau
menu
(j'ai le même souci avec Powerpoint)

Comment créer un Menu personnalisé qui ne s'afficherait qu'avec le
fichier
Excel auquel il est destiné?

Merci- Masquer le texte des messages précédents -


- Afficher le texte des messages précédents -



Avatar
JB
Ajouter au début de auto_open():

For Each M In MenuBars(xlWorksheet).Menus
If M.Caption = "&Conversion" Then M.Delete
Next

JB

On 16 mar, 16:44, "Jacques" <none> wrote:
oui mais si j'ouvre 2 ou 3 fichiers excel qui installent le même menu. i l
sera installé 2 ou 3 fois

"JB" a écrit dans le message de groupe de
discussion :

Le menu est supprimé à la fermeture du fichier (auto_close())

JB
On 16 mar, 16:30, "Jacques" <none> wrote:



ok merci

Si plusieurs fichiers excel utilisent ce menu il faut que je vérifie a ussi
si le menu n'existe pas déjà.

ca doit être transposable au VBA de powerpoint aussi je suppose

"JB" a écrit dans le message de groupe de
discussion :

Bonjour,

Exemple:

Sub auto_open()
'ajouter le menu Conversion avant le menu Outils
MenuBars(xlWorksheet).Menus.Add Caption:="&Conversion", Before:=6
'ajouter les commandes au menu Conversion
With MenuBars(xlWorksheet).Menus("Conversion").MenuItems
.Add Caption:="Ma&juscule", OnAction:="Majuscule"
.Add Caption:="Mi&nuscule", OnAction:="Minuscule"
.Add Caption:="&Nom Propre", OnAction:="NomPropre"
End With
End Sub

Sub auto_close()
For Each M In MenuBars(xlWorksheet).Menus
If M.Caption = "&Conversion" Then M.Delete
Next
End Sub

Sub Majuscule()
For Each c In Selection
c.Value = UCase(c.Value)
Next c
End Sub

http://boisgontierjacques.free.fr/pages_site/Menus.htm

JBhttp://boisgontierjacques.free.fr/

On 16 mar, 15:05, "Jacques" <none> wrote:

Bonjour,

Quand je crée un menu personnalisé sous Excel 2003 par un clic dro it sur
la
barre des menus puis "personnaliser", le menu créé n'est pas lié au
fichier
Excel courant dans lequel se trouvent les macros associées au nouvea u
menu
(j'ai le même souci avec Powerpoint)

Comment créer un Menu personnalisé qui ne s'afficherait qu'avec le
fichier
Excel auquel il est destiné?

Merci- Masquer le texte des messages précédents -


- Afficher le texte des messages précédents -- Masquer le texte des messages précédents -


- Afficher le texte des messages précédents -




Avatar
Jacques
OK Merci !


"JB" a écrit dans le message de groupe de
discussion :

Ajouter au début de auto_open():

For Each M In MenuBars(xlWorksheet).Menus
If M.Caption = "&Conversion" Then M.Delete
Next

JB

On 16 mar, 16:44, "Jacques" <none> wrote:
oui mais si j'ouvre 2 ou 3 fichiers excel qui installent le même menu. il
sera installé 2 ou 3 fois

"JB" a écrit dans le message de groupe de
discussion :

Le menu est supprimé à la fermeture du fichier (auto_close())

JB
On 16 mar, 16:30, "Jacques" <none> wrote:



ok merci

Si plusieurs fichiers excel utilisent ce menu il faut que je vérifie
aussi
si le menu n'existe pas déjà.

ca doit être transposable au VBA de powerpoint aussi je suppose

"JB" a écrit dans le message de groupe de
discussion :

Bonjour,

Exemple:

Sub auto_open()
'ajouter le menu Conversion avant le menu Outils
MenuBars(xlWorksheet).Menus.Add Caption:="&Conversion", Before:=6
'ajouter les commandes au menu Conversion
With MenuBars(xlWorksheet).Menus("Conversion").MenuItems
.Add Caption:="Ma&juscule", OnAction:="Majuscule"
.Add Caption:="Mi&nuscule", OnAction:="Minuscule"
.Add Caption:="&Nom Propre", OnAction:="NomPropre"
End With
End Sub

Sub auto_close()
For Each M In MenuBars(xlWorksheet).Menus
If M.Caption = "&Conversion" Then M.Delete
Next
End Sub

Sub Majuscule()
For Each c In Selection
c.Value = UCase(c.Value)
Next c
End Sub

http://boisgontierjacques.free.fr/pages_site/Menus.htm

JBhttp://boisgontierjacques.free.fr/

On 16 mar, 15:05, "Jacques" <none> wrote:

Bonjour,

Quand je crée un menu personnalisé sous Excel 2003 par un clic droit
sur
la
barre des menus puis "personnaliser", le menu créé n'est pas lié au
fichier
Excel courant dans lequel se trouvent les macros associées au nouveau
menu
(j'ai le même souci avec Powerpoint)

Comment créer un Menu personnalisé qui ne s'afficherait qu'avec le
fichier
Excel auquel il est destiné?

Merci- Masquer le texte des messages précédents -


- Afficher le texte des messages précédents -- Masquer le texte des
messages précédents -


- Afficher le texte des messages précédents -