ajout menu deroulant macro

[ludovic]

bonjour tout le monde,
J'ai une question tres simple, est on limité lorsque l on rajoute un menu par le nombre de fonction a linterrieur.

je m'esplique: j'en ai 4, ca fonctionne a merveille par contre quand je rajoute la 5ieme, il plante:

voici mon code:$

Public Sub add_menu()

Set myMenuBar = CommandBars.ActiveMenuBar
Set newMenu = myMenuBar.Controls.Add(Type:=msoControlPopup, Temporary:=True)
newMenu.Caption = "XARF"

Set ctrl1 = newMenu.Controls.Add(Type:=msoControlButton, ID:=1)
ctrl1.Caption = "Chargement d'une nouvelle feuille data"
ctrl1.TooltipText = "Chargement d'une nouvelle feuille data"
ctrl1.Style = msoButtonCaption
ctrl1.OnAction = "charger_data"
ctrl1.BeginGroup = True

Set ctrl2 = newMenu.Controls.Add(Type:=msoControlButton, ID:=2)
ctrl2.Caption = "suppression des données"
ctrl2.TooltipText = "suppression des données"
ctrl2.Style = msoButtonCaption
ctrl2.OnAction = "vider_feuille_data"
ctrl2.BeginGroup = True

Set ctrl3 = newMenu.Controls.Add(Type:=msoControlButton, ID:=3)
ctrl3.Caption = "affichage des données techniques"
ctrl3.TooltipText = "affichage des données techniques"
ctrl3.Style = msoButtonCaption
ctrl3.OnAction = "afficher_cellules_DEV"
ctrl3.BeginGroup = True

Set ctrl4 = newMenu.Controls.Add(Type:=msoControlButton, ID:=4)
ctrl4.Caption = "Initialisation des données"
ctrl4.TooltipText = "Initialisation des données"
ctrl4.Style = msoButtonCaption
ctrl4.OnAction = "formater_data"
ctrl4.BeginGroup = True

Set ctrl5 = newMenu.Controls.Add(Type:=msoControlButton, ID:=5)
ctrl5.Caption = "diminution hauteur des lignes"
ctrl5.TooltipText = "diminution hauteur des lignes"
ctrl5.Style = msoButtonCaption
ctrl5.OnAction = "diminuer_h_lignes"
ctrl5.BeginGroup = True

nombrebarres = Application.Toolbars.Count

For Each bar In CommandBars
If bar.Name = "XARF" Then
CommandBars("XARF").Delete
End If
Next bar


End Sub

Merci d'avance a la personne qui se penchera sur mon probleme.
Ludovic

 

[OnErrorResumeNext]

bonjour Ludovic,

essaie de supprimer les "ID:=x".
-----------------------------------------------------------------------------
Set ctrlN = newMenu.Controls.Add(Type:=msoControlButton)
-----------------------------------------------------------------------------

à mon avis c'est ce qui coince, d'après mes souvenirs ID est en lecture seule.
J'ai testé et ça marche

amicalement

 

[ludovic]

effectivement, ef fait les id ne correspondent pas au numéro de ligne ds le menu.
merci
Ludo