Salut,
essaie le code suivant qui crée une barre d'outils avec de nombreux boutons... Il suffit de changer la ligne indiquée pour en afficher d'autres.
'********************************
Sub ShowFaceIDs()
Dim NewToolbar As CommandBar
Dim NewButton As CommandBarButton
Dim i As Integer, IDStop As Integer
On Error Resume Next
'on détruit la barre d'outils si elle existe
Application.CommandBars("FaceIds").Delete
On Error GoTo 0
'nouvelle barre d'outils
Set NewToolbar = Application.CommandBars.Add _
(Name:="FaceIds", Position:=msoBarFloating, temporary:=True)
'CHANGER IDStart pour en afficher d'autres (incrémenter de 500 ou 1000 selon le chiffre en dessous)
If ID.Visible = False Then IDStart = 0
'CHANGER le chiffre ci-dessous pour en afficher plus ou moins (entre 500 et 1000 c'est bien)
IDStop = IDStart + 1000
For i = IDStart To IDStop
Set NewButton = NewToolbar.Controls.Add(Type:=msoControlButton, ID:=2950)
NewButton.FaceId = i
NewButton.Caption = "FaceID = " & i
Next i
NewToolbar.Width = 400
NewToolbar.Left = 300
NewToolbar.Top = 140
NewToolbar.Visible = True
If ID.Visible = False Then ID.Show
End Sub
*----------------------------------------------------------
Il n'y a plus qu'à passer sur le bouton pour obtenir le code !
J'espère que je réponds à la question !!
Bon courage !
Clément
