Discussion :

[NEC14]

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

[zandru]

Bonjour,

La liste des icones et faceId est dans la faq, http://fring.developpez.com/vba/excel/faceid/

c'est plus simple que de créer 200 à 600 boutons sur excel

[NEC14]

Bonjour zandru et merci beaucoup.
Il est certain que cela est plus simple.
Bonne journée et bon week-end