Boutons et Numéro ID

Bonjour Albator V;
Précise ce que tu veux dire comme ID; index du bouton cliqué ou numéro de
FaceID ?
Dans le doute, j'ai mis les 2:
Commence par initialiser ta barre d'outils pour OnAction
'For each item:
'.OnAction = ThisWorkbook.Name & "!MyMacro"

Private Sub MyMacro()
Dim idx&
idx = Application.Caller(1)
With Application.CommandBars(Application.Caller(2))
MsgBox idx & " / " & .Controls(idx).FaceId
End With
End Sub

MP

"Albator V" <anonymous@discussions.microsoft.com> a écrit dans le message de
news:1edc01c4fee5$287d9060$a501280a@phx.gbl...

Bonjour,

j'ai une barre d'outils avec plusieurs boutons (100) avec
different numero ID sur chaque.
je voudrais assigner UNE SEULE macro pour tous ces
boutons qui m'ouvrira une msgbox avec le Numero ID.

Quelqu'un a une solution ?

Merci d'avance

C parfait, merci bcp

-----Message d'origine-----
Bonjour Albator V;
Précise ce que tu veux dire comme ID; index du bouton
cliqué ou numéro de

FaceID ?
Dans le doute, j'ai mis les 2:
Commence par initialiser ta barre d'outils pour OnAction
'For each item:
'.OnAction = ThisWorkbook.Name & "!MyMacro"

Private Sub MyMacro()
Dim idx&
idx = Application.Caller(1)
With Application.CommandBars(Application.Caller(2))
MsgBox idx & " / " & .Controls(idx).FaceId
End With
End Sub

MP

"Albator V" <anonymous@discussions.microsoft.com> a
écrit dans le message de

news:1edc01c4fee5$287d9060$a501280a@phx.gbl...

Bonjour,

j'ai une barre d'outils avec plusieurs boutons (100)
avec

different numero ID sur chaque.
je voudrais assigner UNE SEULE macro pour tous ces
boutons qui m'ouvrira une msgbox avec le Numero ID.

Quelqu'un a une solution ?

Merci d'avance

.