OVH Cloud OVH Cloud

vba pour excel 2000

4 réponses
Avatar
gilbert
bonjour

j'utilise Excel 2000

pour écrire un menu contextuel j'utilise le code suivant :

"(Application.CommandBars("Menu contextuel personnalisé
26").Controls(1).Caption = "Saisie Nom")"

quelqu'un peut-il me dire comment réinitialiser le" menu contextuel
personnalisé" qui est arrivé chez moi à 26

d'avance merci de votre aide

--
supprimer 'stpspam' à mon adresse de messagerie pour me joindre directement
. SVP

4 réponses

Avatar
papou
Bonjour Gilbert
Pas trop sûr (car je n'utilise pas cette méthode)
Outils, Personnaliser et sélectionner chaque menu personnalisé dans la liste
puis cliquer sur Supprimer ?
Cordialement
Pascal

"gilbert" a écrit dans le message de
news:
bonjour

j'utilise Excel 2000

pour écrire un menu contextuel j'utilise le code suivant :

"(Application.CommandBars("Menu contextuel personnalisé
26").Controls(1).Caption = "Saisie Nom")"

quelqu'un peut-il me dire comment réinitialiser le" menu contextuel
personnalisé" qui est arrivé chez moi à 26

d'avance merci de votre aide

--
supprimer 'stpspam' à mon adresse de messagerie pour me joindre
directement

. SVP




Avatar
Denis Michon
Bonjour Gilbert,

"comment réinitialiser le" menu contextuel personnalisé"

Si cela veut dire : revenir au menu contextuel usuel d'excel

Application.CommandBars("Cell").reset


Salutations!



"gilbert" a écrit dans le message de news:
bonjour

j'utilise Excel 2000

pour écrire un menu contextuel j'utilise le code suivant :

"(Application.CommandBars("Menu contextuel personnalisé
26").Controls(1).Caption = "Saisie Nom")"

quelqu'un peut-il me dire comment réinitialiser le" menu contextuel
personnalisé" qui est arrivé chez moi à 26

d'avance merci de votre aide

--
supprimer 'stpspam' à mon adresse de messagerie pour me joindre directement
. SVP
Avatar
Jean-François Aubert
Salut gilbert,

Tu as de la chance avec ton numéro 26,
chez moi cela donne:

Application.CommandBars("Menu contextuel personnalisé 9384427").Controls.Add _
Type:=msoControlButton, ID:‰4, Before:=1

... et si j'ai créé 2 menus "contextuel personnalisé" dans ma vie, c'est bien le bout du monde....

--
Amicalement

Jean-François Aubert
{Vaudois de la Côte Lémanique}


"gilbert" a écrit dans le message de
news:
bonjour

pour voir le numéro de ce menu contextuel personnalisé enclenchez le processus de création d'une
macro
ensuite ouvrez le menu personnalisé et créez-en un dans la barre des menus ajoutez-y un sous menu
arrêtez la macro et regardez le code VBA (alt + F11)
vous devez avoir quelques choses du genre :

Application.CommandBars("Worksheet Menu Bar").Controls.Add Type:= _
msoControlPopup, Before: (création de la barre mise à la 10eme place)
Application.CommandBars("Worksheet Menu Bar").Controls(10).Caption = "MenuRGI" (nom de la barre
mis à la 10eme place)
Application.CommandBars("Worksheet Menu Bar").Controls(10).TooltipText = " Conçu par RGI"
(tooltip)
' installation de mon sous menu 1
Application.CommandBars("Menu contextuel personnalisé 26").Controls.Add Type:= _
msoControlButton, ID:E6, Before:=1(nom du sous menu mis à la 1ere place)
Application.CommandBars("Menu contextuel personnalisé 26").Controls(1).Caption = "Saisie Nom"
Application.CommandBars("Menu contextuel personnalisé 26").Controls(1).OnAction "essais"(lancement de la macro)
Application.CommandBars("Menu contextuel personnalisé 26").Controls(1).TooltipText = "Pour
saisir un nouveau Nom"

--
supprimer 'stpspam' à mon adresse de messagerie pour me joindre directement . SVP



"Denis Michon" <denis a écrit dans le message de news:
%T2zb.836$
Bonjour Gilbert,

"comment réinitialiser le" menu contextuel personnalisé"

Si cela veut dire : revenir au menu contextuel usuel d'excel

Application.CommandBars("Cell").reset


Salutations!



"gilbert" a écrit dans le message de
news:

bonjour

j'utilise Excel 2000

pour écrire un menu contextuel j'utilise le code suivant :

"(Application.CommandBars("Menu contextuel personnalisé
26").Controls(1).Caption = "Saisie Nom")"

quelqu'un peut-il me dire comment réinitialiser le" menu contextuel
personnalisé" qui est arrivé chez moi à 26

d'avance merci de votre aide

--
supprimer 'stpspam' à mon adresse de messagerie pour me joindre directement
. SVP





Avatar
gilbert
Bonjour Jean François

Je ne sais pas si c'est de la chance;-))

Pour info, j'ai spécifié que l'excel utilisé était le 2000 car sur le 2002
et > le n° est différent je suppose que c'est le cas pour toi ?.
Ce chiffre s'incrémente à mesure qu'un menu personnalisé est conçu
automatiquement et qu'il n'est pas refermé à la sortie du classeur
Ce que j'aurais aimé savoir c'est comment remettre à l'origine sans avoir à
réinstaller excel !!! peut-être à partir de la base de registre mais pour
l'instant je n'ai pas encore trouvé!!! la solution



--
supprimer 'stpspam' à mon adresse de messagerie pour me joindre directement
. SVP
"Jean-François Aubert" <à a écrit dans le message de
news:
Salut gilbert,

Tu as de la chance avec ton numéro 26,
chez moi cela donne:

Application.CommandBars("Menu contextuel personnalisé
9384427").Controls.Add _

Type:=msoControlButton, ID:‰4, Before:=1

... et si j'ai créé 2 menus "contextuel personnalisé" dans ma vie, c'est
bien le bout du monde....


--
Amicalement

Jean-François Aubert
{Vaudois de la Côte Lémanique}


"gilbert" a écrit dans le message de
news:
bonjour

pour voir le numéro de ce menu contextuel personnalisé enclenchez le
processus de création d'une

macro
ensuite ouvrez le menu personnalisé et créez-en un dans la barre des menus
ajoutez-y un sous menu

arrêtez la macro et regardez le code VBA (alt + F11)
vous devez avoir quelques choses du genre :

Application.CommandBars("Worksheet Menu Bar").Controls.Add Type:= _
msoControlPopup, Before: (création de la barre mise à la 10eme
place)

Application.CommandBars("Worksheet Menu Bar").Controls(10).Caption "MenuRGI" (nom de la barre
mis à la 10eme place)
Application.CommandBars("Worksheet Menu Bar").Controls(10).TooltipText
= " Conçu par RGI"

(tooltip)
' installation de mon sous menu 1
Application.CommandBars("Menu contextuel personnalisé
26").Controls.Add Type:= _

msoControlButton, ID:E6, Before:=1(nom du sous menu mis à la
1ere place)

Application.CommandBars("Menu contextuel personnalisé
26").Controls(1).Caption = "Saisie Nom"

Application.CommandBars("Menu contextuel personnalisé
26").Controls(1).OnAction > "essais"(lancement de la macro)

Application.CommandBars("Menu contextuel personnalisé
26").Controls(1).TooltipText = "Pour

saisir un nouveau Nom"

--
supprimer 'stpspam' à mon adresse de messagerie pour me joindre
directement . SVP




"Denis Michon" <denis a écrit dans le message de news:
%T2zb.836$
Bonjour Gilbert,

"comment réinitialiser le" menu contextuel personnalisé"

Si cela veut dire : revenir au menu contextuel usuel d'excel

Application.CommandBars("Cell").reset


Salutations!



"gilbert" a écrit dans le message de
news:

bonjour

j'utilise Excel 2000

pour écrire un menu contextuel j'utilise le code suivant :

"(Application.CommandBars("Menu contextuel personnalisé
26").Controls(1).Caption = "Saisie Nom")"

quelqu'un peut-il me dire comment réinitialiser le" menu contextuel
personnalisé" qui est arrivé chez moi à 26

d'avance merci de votre aide

--
supprimer 'stpspam' à mon adresse de messagerie pour me joindre
directement


. SVP