J'ai un menu, des items, et des sous-menus. Tout fonctionne bien jusqu'à ce
que j'arrive à ajouter un cinquème sous-menus. Tous mes ajouts de sous-menus
sont pareils sauf le Caption et le Controls. Y-a-til un nombre total de
sous-menus que l'on ne peut pas dépasser.
Dim newSubItem As Object
Set newSubItem = Application.CommandBars(1).Controls("aa").Controls("Masquer
des colonnes")
With newSubItem
.Controls.Add(Type:=msoControlButton).Caption = "9.00$"
.Controls("9.00$").OnAction = "Masquer_mini"
End With
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
FxM
Bonjour Claire,
Apparement, tu as créée un menu nommé "aa" qui comporte des items; chaque item propose des choix. Via cette méthode, seuls ces trois niveaux peuvent être créés.
Pour te simplifier la vie dans la création de ces menus, je te recommande de jeter un oeil à menumaker de John Walkenbach. http://j-walk.com/ss/excel/tips/tip53.htm
@+ FxM
Bunjour,
J'ai un menu, des items, et des sous-menus. Tout fonctionne bien jusqu'à ce que j'arrive à ajouter un cinquème sous-menus. Tous mes ajouts de sous-menus sont pareils sauf le Caption et le Controls. Y-a-til un nombre total de sous-menus que l'on ne peut pas dépasser.
Dim newSubItem As Object Set newSubItem = Application.CommandBars(1).Controls("aa").Controls("Masquer des colonnes")
With newSubItem .Controls.Add(Type:=msoControlButton).Caption = "9.00$" .Controls("9.00$").OnAction = "Masquer_mini" End With
Merci Claire
Bonjour Claire,
Apparement, tu as créée un menu nommé "aa" qui comporte des items;
chaque item propose des choix.
Via cette méthode, seuls ces trois niveaux peuvent être créés.
Pour te simplifier la vie dans la création de ces menus, je te
recommande de jeter un oeil à menumaker de John Walkenbach.
http://j-walk.com/ss/excel/tips/tip53.htm
@+
FxM
Bunjour,
J'ai un menu, des items, et des sous-menus. Tout fonctionne bien jusqu'à ce
que j'arrive à ajouter un cinquème sous-menus. Tous mes ajouts de sous-menus
sont pareils sauf le Caption et le Controls. Y-a-til un nombre total de
sous-menus que l'on ne peut pas dépasser.
Dim newSubItem As Object
Set newSubItem = Application.CommandBars(1).Controls("aa").Controls("Masquer
des colonnes")
With newSubItem
.Controls.Add(Type:=msoControlButton).Caption = "9.00$"
.Controls("9.00$").OnAction = "Masquer_mini"
End With
Apparement, tu as créée un menu nommé "aa" qui comporte des items; chaque item propose des choix. Via cette méthode, seuls ces trois niveaux peuvent être créés.
Pour te simplifier la vie dans la création de ces menus, je te recommande de jeter un oeil à menumaker de John Walkenbach. http://j-walk.com/ss/excel/tips/tip53.htm
@+ FxM
Bunjour,
J'ai un menu, des items, et des sous-menus. Tout fonctionne bien jusqu'à ce que j'arrive à ajouter un cinquème sous-menus. Tous mes ajouts de sous-menus sont pareils sauf le Caption et le Controls. Y-a-til un nombre total de sous-menus que l'on ne peut pas dépasser.
Dim newSubItem As Object Set newSubItem = Application.CommandBars(1).Controls("aa").Controls("Masquer des colonnes")
With newSubItem .Controls.Add(Type:=msoControlButton).Caption = "9.00$" .Controls("9.00$").OnAction = "Masquer_mini" End With
