Menus personnalisés

Le
JPMonnier
Bonsoir,
Excel 2000
j'ai créé un menu personnalisé nommé "men" par MenuBars.Add "men" .
j'ai ajouté des sous menus à ma commande Consulter avec cette procédure,
jusque la tout va bien

Sub CréerMenuSecondaire()
Dim NombreCommandes As Integer
Dim i As Integer
With MenuBars("men").Menus("Consulter")
NombreCommandes = Range("menu3").Count
For i = 1 To NombreCommandes
.MenuItems.Add Caption:=Range("menu3").Cells(i, 1)
Next
End With
End Sub

Ce qui me donne bien mes 9 sous menus sous Consulter
sous le 7éme sous menu (Orchestres), je souhaiterais ajouter 3 autres sous
menus
J'ai testé ceci sous mon 1er End With

With MenuBars("men").Menus("Consulter").controls("Orchestres") '(7ème sous
menu de consulter)
NombreCommandes = Range("menu4").Count
For i = 1 To NombreCommandes
.MenuItems.Add Caption:=Range("menu4").Cells(i, 1)
Next
End With
Evidemment, je n'ai pas la bonne démarche
Pourriez vous m'éclairer par vos grandes compétences ?
Merci d'avance
--
Cordialement
jpmonnier-nospam@neuf.fr
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
michdenis
Le #18381461
Tu travailles à partir de quelle version d'excel ?

Es-tu certain que tu peux ajouter un élément de sous-menu
à un MenuItem ?

Sous Excel 2003, si je vais dans l'explorateur Objets
(la touche F2 dans la fenêtre de l'éditeur de code)
si je fais un clic droit dans la fenêtre, je peux demander
d'afficher les membres masquées (ceux qui existent que
pour assurer la compatibilité avec les versions plus
anciennes). Si je regarde les propriétés et méthodes
relatives à l'objet "MenuItem", je ne vois pas de méthodes
susceptibles d'ajouter des sous-menus.

Si tu trouves une façon de faire, j'espère que tu nous
feras part de ta trouvaille.




"JPMonnier" #
Bonsoir,
Excel 2000
j'ai créé un menu personnalisé nommé "men" par MenuBars.Add "men" ....
j'ai ajouté des sous menus à ma commande Consulter avec cette procédure,
jusque la tout va bien

Sub CréerMenuSecondaire()
Dim NombreCommandes As Integer
Dim i As Integer
With MenuBars("men").Menus("Consulter")
NombreCommandes = Range("menu3").Count
For i = 1 To NombreCommandes
.MenuItems.Add Caption:=Range("menu3").Cells(i, 1)
Next
End With
End Sub

Ce qui me donne bien mes 9 sous menus sous Consulter
sous le 7éme sous menu (Orchestres), je souhaiterais ajouter 3 autres sous
menus
J'ai testé ceci sous mon 1er End With

With MenuBars("men").Menus("Consulter").controls("Orchestres") '(7ème sous
menu de consulter)
NombreCommandes = Range("menu4").Count
For i = 1 To NombreCommandes
.MenuItems.Add Caption:=Range("menu4").Cells(i, 1)
Next
End With
Evidemment, je n'ai pas la bonne démarche
Pourriez vous m'éclairer par vos grandes compétences ?
Merci d'avance
--
Cordialement

JPMonnier
Le #18382031
Bonjour Micheldenis,
Je suis sous Excel 2000 pro (9.0.2812)
Il semble que j'aie réussi !! Miracle !!
( je passe sur la création des menus principaux)

Menus secondaires :
- j'ai supprimé le menu "Orchestres" dans le sous menu "Consulter" ,
Range("menu3)
- je le créé ensuite avec le 2ème With de la proc suivante (
.MenuItems.AddMenu ("Orchestres") )
- Puis j'ajoute les sous menus
With .MenuItems("Orchestres")
NombreCommandes = Range("menu4").Count
For i = 1 To NombreCommandes
.MenuItems.Add Caption:=Range("menu4").Cells(i, 1)
Next
Voici la proc entière

Sub CréerMenuSecondaire()
Dim NombreCommandes As Integer
Dim i As Integer
With MenuBars("men").Menus("Consulter")
NombreCommandes = Range("menu3").Count
For i = 1 To NombreCommandes
.MenuItems.Add Caption:=Range("menu3").Cells(i, 1)
Next
End With
With MenuBars("men").Menus("consulter")
.MenuItems.AddMenu ("Orchestres")
With .MenuItems("Orchestres")
NombreCommandes = Range("menu4").Count
For i = 1 To NombreCommandes
.MenuItems.Add Caption:=Range("menu4").Cells(i, 1)
Next
End With
End With
End Sub

J'ai donc mes 7 menus principaux
dans le 3ème menu j'ai Mes 9 sous menus
dans le 9ème sous menu j'ai mes 3 sous menus d'Orchestre
voir le résultat
http://cjoint.com/?boj2dZ2i5A

il ne me reste qu'à affecter les macros relatives à mes sous menus
j'espère avoir été suffisamment clair dans mes explications
Je te remercie d'avoir participé à mon post
--
Cordialement


"michdenis" news:
Tu travailles à partir de quelle version d'excel ?

Es-tu certain que tu peux ajouter un élément de sous-menu
à un MenuItem ?

Sous Excel 2003, si je vais dans l'explorateur Objets
(la touche F2 dans la fenêtre de l'éditeur de code)
si je fais un clic droit dans la fenêtre, je peux demander
d'afficher les membres masquées (ceux qui existent que
pour assurer la compatibilité avec les versions plus
anciennes). Si je regarde les propriétés et méthodes
relatives à l'objet "MenuItem", je ne vois pas de méthodes
susceptibles d'ajouter des sous-menus.

Si tu trouves une façon de faire, j'espère que tu nous
feras part de ta trouvaille.




"JPMonnier" de discussion :
#
Bonsoir,
Excel 2000
j'ai créé un menu personnalisé nommé "men" par MenuBars.Add "men" ....
j'ai ajouté des sous menus à ma commande Consulter avec cette procédure,
jusque la tout va bien

Sub CréerMenuSecondaire()
Dim NombreCommandes As Integer
Dim i As Integer
With MenuBars("men").Menus("Consulter")
NombreCommandes = Range("menu3").Count
For i = 1 To NombreCommandes
.MenuItems.Add Caption:=Range("menu3").Cells(i, 1)
Next
End With
End Sub

Ce qui me donne bien mes 9 sous menus sous Consulter
sous le 7éme sous menu (Orchestres), je souhaiterais ajouter 3 autres
sous
menus
J'ai testé ceci sous mon 1er End With

With MenuBars("men").Menus("Consulter").controls("Orchestres") '(7ème
sous
menu de consulter)
NombreCommandes = Range("menu4").Count
For i = 1 To NombreCommandes
.MenuItems.Add Caption:=Range("menu4").Cells(i, 1)
Next
End With
Evidemment, je n'ai pas la bonne démarche
Pourriez vous m'éclairer par vos grandes compétences ?
Merci d'avance
--
Cordialement




michdenis
Le #18383961
Si tu as excel 2000, le plus surprenant, c'est l'usage
les objets masqués, présents seulement pour assurer
la compatibilité des versions antérieures d'excel.



"JPMonnier" OkHm7$
Bonjour Micheldenis,
Je suis sous Excel 2000 pro (9.0.2812)
Il semble que j'aie réussi !! Miracle !!
( je passe sur la création des menus principaux)

Menus secondaires :
- j'ai supprimé le menu "Orchestres" dans le sous menu "Consulter" ,
Range("menu3)
- je le créé ensuite avec le 2ème With de la proc suivante (
.MenuItems.AddMenu ("Orchestres") )
- Puis j'ajoute les sous menus
With .MenuItems("Orchestres")
NombreCommandes = Range("menu4").Count
For i = 1 To NombreCommandes
.MenuItems.Add Caption:=Range("menu4").Cells(i, 1)
Next
Voici la proc entière

Sub CréerMenuSecondaire()
Dim NombreCommandes As Integer
Dim i As Integer
With MenuBars("men").Menus("Consulter")
NombreCommandes = Range("menu3").Count
For i = 1 To NombreCommandes
.MenuItems.Add Caption:=Range("menu3").Cells(i, 1)
Next
End With
With MenuBars("men").Menus("consulter")
.MenuItems.AddMenu ("Orchestres")
With .MenuItems("Orchestres")
NombreCommandes = Range("menu4").Count
For i = 1 To NombreCommandes
.MenuItems.Add Caption:=Range("menu4").Cells(i, 1)
Next
End With
End With
End Sub

J'ai donc mes 7 menus principaux
dans le 3ème menu j'ai Mes 9 sous menus
dans le 9ème sous menu j'ai mes 3 sous menus d'Orchestre
voir le résultat
http://cjoint.com/?boj2dZ2i5A

il ne me reste qu'à affecter les macros relatives à mes sous menus
j'espère avoir été suffisamment clair dans mes explications
Je te remercie d'avoir participé à mon post
--
Cordialement


"michdenis" news:
Tu travailles à partir de quelle version d'excel ?

Es-tu certain que tu peux ajouter un élément de sous-menu
à un MenuItem ?

Sous Excel 2003, si je vais dans l'explorateur Objets
(la touche F2 dans la fenêtre de l'éditeur de code)
si je fais un clic droit dans la fenêtre, je peux demander
d'afficher les membres masquées (ceux qui existent que
pour assurer la compatibilité avec les versions plus
anciennes). Si je regarde les propriétés et méthodes
relatives à l'objet "MenuItem", je ne vois pas de méthodes
susceptibles d'ajouter des sous-menus.

Si tu trouves une façon de faire, j'espère que tu nous
feras part de ta trouvaille.




"JPMonnier" de discussion :
#
Bonsoir,
Excel 2000
j'ai créé un menu personnalisé nommé "men" par MenuBars.Add "men" ....
j'ai ajouté des sous menus à ma commande Consulter avec cette procédure,
jusque la tout va bien

Sub CréerMenuSecondaire()
Dim NombreCommandes As Integer
Dim i As Integer
With MenuBars("men").Menus("Consulter")
NombreCommandes = Range("menu3").Count
For i = 1 To NombreCommandes
.MenuItems.Add Caption:=Range("menu3").Cells(i, 1)
Next
End With
End Sub

Ce qui me donne bien mes 9 sous menus sous Consulter
sous le 7éme sous menu (Orchestres), je souhaiterais ajouter 3 autres
sous
menus
J'ai testé ceci sous mon 1er End With

With MenuBars("men").Menus("Consulter").controls("Orchestres") '(7ème
sous
menu de consulter)
NombreCommandes = Range("menu4").Count
For i = 1 To NombreCommandes
.MenuItems.Add Caption:=Range("menu4").Cells(i, 1)
Next
End With
Evidemment, je n'ai pas la bonne démarche
Pourriez vous m'éclairer par vos grandes compétences ?
Merci d'avance
--
Cordialement




JPMonnier
Le #18387071
Bonsoir michedenis
Je ne sais pas si c'est étonnant, mais je suis satisfait d'avoir réussi à
obtenir le résultat souhaité
Je me suis inspiré de formations que j'avais suivi en 1997
Peut-être qu'il y a un rapport !
Quand j'ouvre mon appli avec shift pour inhiber l'auto open,
j'ai le message
Impossible d'ouvrir une macro complémentaire Excel 97 pour la modifier....
Je pense que c'est en relation avec une macro que j'ai copiée d'un classeur
traduit en français, issu d'un classeur Excel 97
As-tu des précisions complémentaires à ce sujet
Merci encore
--
Cordialement

"michdenis" news:
Si tu as excel 2000, le plus surprenant, c'est l'usage
les objets masqués, présents seulement pour assurer
la compatibilité des versions antérieures d'excel.



"JPMonnier" de discussion :
OkHm7$
Bonjour Micheldenis,
Je suis sous Excel 2000 pro (9.0.2812)
Il semble que j'aie réussi !! Miracle !!
( je passe sur la création des menus principaux)

Menus secondaires :
- j'ai supprimé le menu "Orchestres" dans le sous menu "Consulter" ,
Range("menu3)
- je le créé ensuite avec le 2ème With de la proc suivante (
.MenuItems.AddMenu ("Orchestres") )
- Puis j'ajoute les sous menus
With .MenuItems("Orchestres")
NombreCommandes = Range("menu4").Count
For i = 1 To NombreCommandes
.MenuItems.Add Caption:=Range("menu4").Cells(i, 1)
Next
Voici la proc entière

Sub CréerMenuSecondaire()
Dim NombreCommandes As Integer
Dim i As Integer
With MenuBars("men").Menus("Consulter")
NombreCommandes = Range("menu3").Count
For i = 1 To NombreCommandes
.MenuItems.Add Caption:=Range("menu3").Cells(i, 1)
Next
End With
With MenuBars("men").Menus("consulter")
.MenuItems.AddMenu ("Orchestres")
With .MenuItems("Orchestres")
NombreCommandes = Range("menu4").Count
For i = 1 To NombreCommandes
.MenuItems.Add Caption:=Range("menu4").Cells(i, 1)
Next
End With
End With
End Sub

J'ai donc mes 7 menus principaux
dans le 3ème menu j'ai Mes 9 sous menus
dans le 9ème sous menu j'ai mes 3 sous menus d'Orchestre
voir le résultat
http://cjoint.com/?boj2dZ2i5A

il ne me reste qu'à affecter les macros relatives à mes sous menus
j'espère avoir été suffisamment clair dans mes explications
Je te remercie d'avoir participé à mon post
--
Cordialement


"michdenis" news:
Tu travailles à partir de quelle version d'excel ?

Es-tu certain que tu peux ajouter un élément de sous-menu
à un MenuItem ?

Sous Excel 2003, si je vais dans l'explorateur Objets
(la touche F2 dans la fenêtre de l'éditeur de code)
si je fais un clic droit dans la fenêtre, je peux demander
d'afficher les membres masquées (ceux qui existent que
pour assurer la compatibilité avec les versions plus
anciennes). Si je regarde les propriétés et méthodes
relatives à l'objet "MenuItem", je ne vois pas de méthodes
susceptibles d'ajouter des sous-menus.

Si tu trouves une façon de faire, j'espère que tu nous
feras part de ta trouvaille.




"JPMonnier" de discussion :
#
Bonsoir,
Excel 2000
j'ai créé un menu personnalisé nommé "men" par MenuBars.Add "men" ....
j'ai ajouté des sous menus à ma commande Consulter avec cette procédure,
jusque la tout va bien

Sub CréerMenuSecondaire()
Dim NombreCommandes As Integer
Dim i As Integer
With MenuBars("men").Menus("Consulter")
NombreCommandes = Range("menu3").Count
For i = 1 To NombreCommandes
.MenuItems.Add Caption:=Range("menu3").Cells(i, 1)
Next
End With
End Sub

Ce qui me donne bien mes 9 sous menus sous Consulter
sous le 7éme sous menu (Orchestres), je souhaiterais ajouter 3 autres
sous
menus
J'ai testé ceci sous mon 1er End With

With MenuBars("men").Menus("Consulter").controls("Orchestres") '(7ème
sous
menu de consulter)
NombreCommandes = Range("menu4").Count
For i = 1 To NombreCommandes
.MenuItems.Add Caption:=Range("menu4").Cells(i, 1)
Next
End With
Evidemment, je n'ai pas la bonne démarche
Pourriez vous m'éclairer par vos grandes compétences ?
Merci d'avance
--
Cordialement







Publicité
Poster une réponse
Anonyme