[E-00] VBA et Barre de commande

Bonjour,

A mon avis tu es déjà passé sur le code et ta commandbar menu existe deja

En bonus un code pour lister toutes les barres présentes dans un nouvel onglet :

Code:

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
Private Sub G_CommandBar()
 
On Error GoTo geserr
 
Dim Macell As Range
Dim cbar As CommandBar
Dim R1 As Long, C1 As Long
 
 Set F1 = Sheets.Add(After:=Sheets(Sheets.Count))
F1.Name = "Bars"
 
' ------------------------------- '
' Liste toutes les barres
' ------------------------------- '
R1 = 0: C1 = 1
 
For Each cbar In CommandBars
    R1 = R1 + 1: C1 = C1: Set Macell = Cells(R1, C1)
 
    Macell.Value = cbar.Name
    Macell.Offset(0, 1).Value = cbar.NameLocal
    Macell.Offset(0, 2).Value = cbar.Visible
 
    Liste_controles R1
Next
 
With Range("A1").CurrentRegion
    .Columns.AutoFit
    .VerticalAlignment = xlCenter
    .BorderAround Weight:=xlThick
    .Borders.LineStyle = xlContinuous
End With
 
Rows("1:1").Insert Shift:=xlDown
R1 = 1: C1 = 1: Set Macell = Cells(R1, C1)
 
Macell.Value = "Nom"
Macell.Offset(0, 1).Value = "Local"
With Macell.Offset(0, 2): .Value = "Visible": .ColumnWidth = 12: End With
 
 
End With
End sub

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub Liste_controles(ByVal Num As Integer)
 
Dim Mycell As Range
Dim C1 As Integer
C1 = 4
Set Mycell = Cells(Num, C1)
For Each ctrl In CommandBars(Num).Controls
C1 = C1 + 1
 Set Mycell = Cells(Num, C1)
 Mycell.Value = ctrl.Caption
Next
 
End Sub