Petite interrogation à JF

Salut Ben,
Commentaires dans le code :

Sub AjouterBouton(ByVal sMenu As String, _
ByVal sCaption As String, _
ByVal sAction As String, _
iAv As Integer)
'"sMenu" nom de la barre
'"sCaption" nom du bouton recherché et créé
'"sAction" macro à exécuter sur clic du bouton
'"iAv" position du bouton sur la barre
'"iAv" correspond à l'index du bouton qui suit
' celui créé si pas précisé le bouton est créé
'en dernière position

Dim ctrlComms As CommandBarControls 'jeu d'objet Contrôle
Dim ctrlComm As CommandBarControl 'objet contrôle
Dim ctrlAbsent As Boolean

'sMenu est la barre passeé en argument, celle
'sur laquelle tu veux travailler
Set ctrlComms = Application.CommandBars(sMenu).Controls
'contrôle si le bouton recherché (sCaption)est présent et
'modifie la variable ctrlAbsent en conséquence
ctrlAbsent = True
For Each ctrlComm In ctrlComms
If ctrlComm.Caption = sCaption Then
ctrlAbsent = False
Exit For
End If
Next
'si le bouton existe, le supprime pour le
're-créer. cette façon est utilisée si on veux
'affecter une autre macro au bouton dans le cas
'contraire c'est inutile
'la position du contrôle dans la barre est fonction de
'iAv passée en paramètre
If Not ctrlAbsent Then ctrlComm.Delete
Set ctrlComm = ctrlComms.Add(Type:=msoControlButton, ID:=4, _
Temporary:=True, Before:=iAv)
'Le id est pour le dessin du bouton
'"BeginGroup" si tu veux le séparer par un trait
'des autres boutons
''''''ctrlComm.BeginGroup = True
ctrlComm.Caption = sCaption
ctrlComm.OnAction = sAction
'ctrlComm.Enabled = False
End Sub

Hervé.

"Ben" <anonymous@discussions.microsoft.com> a écrit dans le message news:
59cd01c4811c$6a92a7c0$a601280a@phx.gbl...
Merci beaucoup pour ton code sur le bouton :
------------------------------------------------------
Sub AjouterBouton(ByVal sMenu As String, ByVal sCaption As
String, ByVal sAction As String, iAv As Integer)
Dim ctrlComms As CommandBarControls
Dim ctrlComm As CommandBarControl
Dim ctrlAbsent As Boolean

Set ctrlComms = Application.CommandBars(sMenu).Controls

ctrlAbsent = True
For Each ctrlComm In ctrlComms
If ctrlComm.Caption = sCaption Then
ctrlAbsent = False
Exit For
End If
Next
If Not ctrlAbsent Then ctrlComm.Delete
Set ctrlComm = ctrlComms.Add(Type:=msoControlButton, ID:=4,
Temporary:=True, Before:=iAv)
'Le id est pour le dessin du bouton
ctrlComm.Caption = sCaption
ctrlComm.OnAction = sAction
'ctrlComm.Enabled = False
End Sub
--------------------------------------------------
Pourrais tu m'expliquer un peu le code :
juste à quel est le role de chaque variable?
comment positionner à sa guise le bouton et où?

Voilà. Je ne reviens pas avant mercredi alors tu as le
temps de me répondre. Merci.
A+
Ben