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 AV avait dit Ajout de menus

AV avait dit Ajout de menus

5 réponses
Avatar
RaMA
Bon?o?r ©
Le lien ci-dessous proposé par AV le 03/12/2000 permet le rajoût d'un menu
http://groups.google.fr/groups?q=commandbar+Alain+Vallon+group:microsoft.public.fr.excel&hl=fr&lr=&ie=UTF-8&group=microsoft.public.fr.excel&selm=90d1f7%24l8j%241%40wanadoo.fr&rnum=3

Pas de problème
Mais ce que je n'arrive pas à comprendre c'est :
après avoir deleté avec Sub EffaceMenu et le ré-ouvrir avec
AjouteNouveauMenu
là le comportement est bizarre , plus de déroulant....
Seule la fermeture du classeur et sa ré-ouverture font disparaître le
problème.
Si AV est dans les parages
Merci de vos réponses

--
.
Signaler un problème avec ce contenu

5 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
Avatar
FxM
Bonsoir,

Jette un oeil sur menumaker de John Walk(blabla machin)
http://www.j-walk.com/ss/excel/tips/tip53.htm

@+
FxM


RaMA wrote:

Bon?o?r ©
Le lien ci-dessous proposé par AV le 03/12/2000 permet le rajoût d'un menu
http://groups.google.fr/groups?q=commandbar+Alain+Vallon+group:microsoft.public.fr.excel&hl=fr&lr=&ie=UTF-8&group=microsoft.public.fr.excel&selmd1f7%24l8j%241%40wanadoo.fr&rnum=3

Pas de problème
Mais ce que je n'arrive pas à comprendre c'est :
après avoir deleté avec Sub EffaceMenu et le ré-ouvrir avec
AjouteNouveauMenu
là le comportement est bizarre , plus de déroulant....
Seule la fermeture du classeur et sa ré-ouverture font disparaître le
problème.
Si AV est dans les parages
Merci de vos réponses



Avatar
RaMA
Bon?o?r ©, FxM
Merci
--
Salutations

RaMa



--
.
"FxM" a écrit dans le message de
news:%
Bonsoir,

Jette un oeil sur menumaker de John Walk(blabla machin)
http://www.j-walk.com/ss/excel/tips/tip53.htm

@+
FxM


RaMA wrote:

Bon?o?r ©
Le lien ci-dessous proposé par AV le 03/12/2000 permet le rajoût d'un
menu



http://groups.google.fr/groups?q=commandbar+Alain+Vallon+group:microsoft.public.fr.excel&hl=fr&lr=&ie=UTF-8&group=microsoft.public.fr.excel&selmd1f7%24l8j%241%40wanadoo.fr&rnum=3



Pas de problème
Mais ce que je n'arrive pas à comprendre c'est :
après avoir deleté avec Sub EffaceMenu et le ré-ouvrir avec
AjouteNouveauMenu
là le comportement est bizarre , plus de déroulant....
Seule la fermeture du classeur et sa ré-ouverture font disparaître le
problème.
Si AV est dans les parages
Merci de vos réponses





Avatar
ChrisV
Bonjour RaMA,

En attendant le retour d'Alain qui ne devrait pas tarder d'ailleurs...,

Sub AjouteNouveauMenu()
Set newM = CommandBars(1).Controls.Add(Type:=msoControlPopup, _
Temporary:=True)
newM.Caption = "Démo"
Set cmd1 = CommandBars(1).Controls("Démo").Controls _
.Add(msoControlPopup)
With cmd1
.Caption = "Tri croissant"
.BeginGroup = True
.Controls.Add (msoControlButton)
With .Controls(1)
.Caption = "Par Nom"
.OnAction = "Je_Suis"
.FaceId = 25
End With
.Controls.Add (msoControlButton)
With .Controls(2)
.Caption = "Par Catégorie"
.OnAction = "Tu_Es"
.FaceId = 26
End With
End With
Set cmd2 = CommandBars(1).Controls("Démo").Controls.Add
With cmd2
.Caption = "Tri décroissant"
.BeginGroup = True
.FaceId = 25
.OnAction = "EffaceMenu"
End With
Set newM = Nothing
Set cmd1 = Nothing
Set cmd2 = Nothing
End Sub

Sub EffaceMenu()
On Error Resume Next
CommandBars(1).Controls("Démo").Delete
End Sub


ChrisV


"RaMA" a écrit dans le message de
news:%
Bon?o?r ©
Le lien ci-dessous proposé par AV le 03/12/2000 permet le rajoût d'un menu

http://groups.google.fr/groups?q=commandbar+Alain+Vallon+group:microsoft.public.fr.excel&hl=fr&lr=&ie=UTF-8&group=microsoft.public.fr.excel&selmd1f7%24l8j%241%40wanadoo.fr&rnum=3


Pas de problème
Mais ce que je n'arrive pas à comprendre c'est :
après avoir deleté avec Sub EffaceMenu et le ré-ouvrir avec
AjouteNouveauMenu
là le comportement est bizarre , plus de déroulant....
Seule la fermeture du classeur et sa ré-ouverture font disparaître le
problème.
Si AV est dans les parages
Merci de vos réponses

--
.




Avatar
AV
Problème du "MenuBars" à remplacer par "CommandBars"
C'est ChrisV qui était de service ce matin !

AV
Avatar
RaMA
--
Bon?o?r © ,

Merci V(Chris +A)
--
Salutations

RaMa


--
.
"AV" a écrit dans le message de
news:u%
Problème du "MenuBars" à remplacer par "CommandBars"
C'est ChrisV qui était de service ce matin !

AV