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" a écrit dans le message de groupe
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
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" <jpmonnier-no-spam@neuf.fr> a écrit dans le message de groupe
de discussion :
#uogo8bdJHA.2400@TK2MSFTNGP03.phx.gbl...
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
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" a écrit dans le message de groupe
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
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" a écrit dans le message de groupe
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
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" <jpmonnier-no-spam@neuf.fr> a écrit dans le message de groupe
de discussion :
#uogo8bdJHA.2400@TK2MSFTNGP03.phx.gbl...
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
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" a écrit dans le message de groupe
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
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" a écrit dans le message de groupe
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" a écrit dans le message de
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" a écrit dans le message de groupe
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
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" <jpmonnier-no-spam@neuf.fr> a écrit dans le message de groupe
de discussion :
OkHm7$hdJHA.2112@TK2MSFTNGP02.phx.gbl...
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
jpmonnier-nospam@neuf.fr
"michdenis" <michdenis@hotmail.com> a écrit dans le message de
news:A5DFF39B-D9A7-42D0-850F-1089EBB7D02F@microsoft.com...
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" <jpmonnier-no-spam@neuf.fr> a écrit dans le message de groupe
de discussion :
#uogo8bdJHA.2400@TK2MSFTNGP03.phx.gbl...
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
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" a écrit dans le message de groupe
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" a écrit dans le message de
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" a écrit dans le message de groupe
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