Bonjour à tous,

J'ai trouvé ce code qui permet d'afficher les îcones intégrées d'Excel ainsi que leur numéro de FaceID, mon soucis est que je ne sais pas où copier ce code dans ma feuille de calcul.
Pouvez-vous m'éclairer s'il vous plait ?
Je vous en remercie par avance

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
 
'Afficher les icones intégrées d'Excel et leur numéro de FaceID
'Exemple affichant les 200 premières icones
 
Sub AfficheBoutons()
'Daniel Josserand, mpfe
Dim NewBarreOutil As CommandBar
Dim NewBouton As CommandBarButton
Dim i As Integer, IconOn As Integer, IconOff As Integer
 
  'Supprime la barre si elle existe déjà
  On Error Resume Next
  Application.CommandBars("BarBouton").Delete
  On Error GoTo 0
 
  Set NewBarreOutil = Application.CommandBars.Add _
        (Name:="BarBouton", temporary:=True)
  NewBarreOutil.Visible = True
 
  'Affiche les icones des boutons 1 à 200 d'Excel
  'Suivant la vitesse de votre ordinateur vous pouvez passer
  'le paramètre IconOff à 600 (Attente de 30 secondes)
  'Ou bien modifier le paramètre de départ IconOn = 100
  'et IconOff= 200 (Rapide)
  IconOn = 1
  IconOff = 200
 
  For i = IconOn To IconOff
    Set NewBouton = NewBarreOutil.Controls.Add _
        (Type:=msoControlButton, ID:=2950)
    NewBouton.FaceId = i
    NewBouton.Caption = "FaceID = " & i
  Next i
  NewBarreOutil.Width = 700
  NewBarreOutil.Left = 50
  NewBarreOutil.Top = 120
End Sub
 
Sub DelBarExemple()
  Application.CommandBars("BarBouton").Delete
End Sub