Bonsoir Olive , Jean-Charles et à tous les amis
Pour ce qui est de l'affichage des FaceID cette macro devrait t'aider.
Sub faceIDS()
Dim tBar As Object, nouveaubout As Object
Dim Y As Integer
Dim depart As Integer
depart = Val(InputBox("Entrer le numéro pour le" & _
" bouton numéro (1, 251, 501, etc)"))
If depart = 0 Then Exit Sub
On Error Resume Next
CommandBars("Tous les boutons!!!").Delete
CommandBars.Add Name:="Tous les Boutons!!!"
Set tBar = CommandBars("Tous les Boutons!!!")
For Y = depart To depart + 249
Application.StatusBar = "creation faceID " & Y
Set newButton = tBar.Controls.Add
With newButton
.Caption = "FaceId = " & Y
.FaceId = Y
End With
Next Y
Application.StatusBar = False
tBar.Visible = True
tBar.Width = 504
Application.StatusBar = False
End Sub
Bien cordialement
Jacques de ryes