Discussion :

[srame]

Bonjour,

J'ai une petite question que je n'arrive pas à trouver de solution.

J'ai une macro qui me créer un menu dans ma barre de menu.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
'Procédure appelante ajout d'un menu avec n items
'----------------------------------------------------------------
Sub AjoutMenuBarre()
Application.DisplayAlerts = False
' SUPPRESSION DU MENU SI IL EST DEJA
Application.Run "ClasseurMacroPerso.xls!SupressionMenuBarre"
' DONNEE ="NOM DU MENU", (N° ICON),(TEXTE DES MENUS),(ACTION)
AjMenuX "&Barre", _
Array(222, 2950, 222, 2950, 222, 2950, 1, 1, 222), _
Array("0&1-Ouvre Calcul", "0&2-", "0&3-", "0&4-", "0&5-", "0&6-", "0&7-", "0&8-", "9&9-Ouvre Classeur de macro perso"), _
Array("ClasseurMacroPerso.xls!process01", "ClasseurMacroPerso.xls!process02", "ClasseurMacroPerso.xls!process03", "ClasseurMacroPerso.xls!process04", "ClasseurMacroPerso.xls!process05", "ClasseurMacroPerso.xls!process06", "ClasseurMacroPerso.xls!process07", "ClasseurMacroPerso.xls!process08", "ClasseurMacroPerso.xls!process99")
Application.DisplayAlerts = True
End Sub
'================
'Procédures appelées
'================
' Procédure d'ajout d'un menu
'-------------------------------------
Sub AjMenuX(NomMenu, TbID, TbItem, TbLien)
Dim I, J
Set myMenuBar = CommandBars.ActiveMenuBar
Set newMenu = myMenuBar.Controls.Add(Type:=msoControlPopup, Temporary:=False)
newMenu.Caption = NomMenu
I = 0
J = 0
For Each Value In TbID
Set ctrl1 = newMenu.Controls.Add(Type:=msoControlButton, ID:=TbID(I))
ctrl1.Caption = TbItem(J)
ctrl1.TooltipText = TbItem(I)
ctrl1.Style = msoButtonIconAndCaption
ctrl1.OnAction = TbLien(I)
I = I + 1
J = J + 1
Next Value
End Sub
'Procédure appelante suppression d'un menu
 '--------------------------------------------------------
Sub SupressionMenuBarre()
Application.DisplayAlerts = False
 SuprMenuX ("Barre")
 Application.DisplayAlerts = True
End Sub
'Procédure de supperssion d'un menu
'-----------------------------------------------
Sub SuprMenuX(NomDuMenu As String)
On Error Resume Next
Set myMenuBar = CommandBars.ActiveMenuBar
myMenuBar.Controls(NomDuMenu).Delete
End Sub

Ceci marche à merveille.

Je voudrais simplement ajouter une ligne de séparation avant la dernière ligne, et je ne trouve rien à ce sujet :-(

Si quelqu'un a déjà fais cette manoeuvre, je suis preneur.

srame

[fring]

Bonjour,

Je suppose que tu veux dire "placer une ligne de séparation entre 2 boutons" ?

Si c'est ça, c'est la propriété "BeginGroup" que tu ajoutes à ton dernier bouton

http://fring.developpez.com/vba/excel/barremenu
.

[srame]

C'est parfaitement ça.

Faut juste que je trouve un moyen de l'ajouter avant le dernier bouton, mais celui-ci n'est pas forcément au même nombre de menu.

Pour le moment, je vais le faire manuellement. Quand j'aurais trouver comment calculer le nombre de bouton, je metterai ma solutions.

Merci

Srame

[srame]

Bon, ben voilà une solution temporaire sur le nom de ma ligne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
For Each Value In TbID
    Set ctrl1 = newMenu.Controls.Add(Type:=msoControlButton, ID:=TbID(I))
    ctrl1.Caption = TbItem(J)
    ctrl1.TooltipText = TbItem(I)
    ctrl1.Style = msoButtonIconAndCaption
    ctrl1.OnAction = TbLien(I)
 
    If TbItem(I) = "9&9-Ouvre Classeur de macro perso" Then
       ctrl1.BeginGroup = True
   End If
    
    I = I + 1
    J = J + 1
Next Value

[fring]

Ceci ne fonctionnerait pas ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
For Each Value In TbID
    Set ctrl1 = newMenu.Controls.Add(Type:=msoControlButton, ID:=TbID(I))
    ctrl1.Caption = TbItem(J)
    ctrl1.TooltipText = TbItem(I)
    ctrl1.Style = msoButtonIconAndCaption
    ctrl1.OnAction = TbLien(I)
 
    I = I + 1
    J = J + 1
Next Value
    ctrl1.BeginGroup = True

En principe en ajoutant la propriété après la boucle, ctrl1 correspondra toujours au dernier bouton ajouté