Bonjour,
Pyrof ; j'espère ne pas tomber à côté mais voici une procédure que Zon m'avait donnée pour lister toutes les icones disponibles dans une feuille annexe (attention lance la dans une feuille vierge!!!!)
'voici une procédure qui va te mettre toutes les icones avec leur numéro diponibles dans Excel :à coller dans un module standard et dans un nouveau
'classeur(ça dure pas loin de 5 min c'est normal)un petit + offert (à déclencher sur une page vierge!)
Sub ListeFaceID()
Dim I%, J%, K%, Menu As CommandBarControl, MenuItem As CommandBar, F As Worksheet
On Error Resume Next
Application.ScreenUpdating = False
Set F = ThisWorkbook.Sheets.Add
Set MenuItem = CommandBars.Add(msoBarFloating, , False, True)
Set Menu = MenuItem.Controls.Add(msoControlButton, , , , True)
I = 1
Do While Err.Number = 0
For J = 1 To 10
K = K + 1
Application.StatusBar = 'FaceID=' & CStr(K)
With Menu
.FaceId = K
.CopyFace
End With
If Err.Number <> 0 Then Exit For
F.Paste Cells(I, J + 1)
F.Cells(I, J).Value = K
Next J
I = I + 1
Loop
Application.StatusBar = False
MenuItem.Delete
End Sub
Celeda