Discussion :

[CAFOUIN]

J'ai beau cherché dans l'aide VBA, je ne trouve pas la liste des contrôles à utiliser dans les barres de menus.
Dans l'exemple suivant "2950" permet d'afficher un bouton représenté par un Smiley.

Code :

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

Set MonBouton = .Controls.Add(msoControlButton, 2950, nbboutons)

Ceci dit, comment définir ses propres boutons personnalisés, et comment les intégrer dans la ligne de code ?

[SilkyRoad]

bonjour

tu peux tester

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
Sub Liste_faceID()
'ChrisV, mpfe
Dim i As Integer
Dim j As Integer
Dim k As Integer
 
Dim cbCtl As CommandBarControl
Dim cbBar As CommandBar
 
    On Error Resume Next
    Application.ScreenUpdating = False
    Set cbBar = CommandBars.Add(Position:=msoBarFloating, _
        MenuBar:=False, temporary:=True)
    Set cbCtl = cbBar.Controls.Add(Type:=msoControlButton, _
        temporary:=True)
    k = 1
    Do While Err.Number = 0
        For j = 1 To 10
            i = i + 1
            Application.StatusBar = "FaceID=" & CStr(i)
            cbCtl.FaceId = i
            cbCtl.CopyFace
            If Err.Number <> 0 Then Exit For
            ActiveSheet.Paste Cells(k, j + 1)
            Cells(k, j).Value = i
        Next j
        k = k + 1
    Loop
    Application.StatusBar = False
    cbBar.Delete
End Sub

pour créer des barres perso:

http://www.developpez.net/forums/att...3&d=1151127913



michel

[CAFOUIN]

J'ai essayé la ligne de code mais rien ne s'affiche !

Par contre le lien qui tu as indiqué est super, on retrouve des milliers de contrôles sympas.

Merci à toi Michel,