onglet compléments

[alexane]

Bonjour
Comment installe t on l'onglet compléments ?
Comment y ajouter des boutons macro ?
Merci

 

[juju_69]

Re : onglet compléments

Hello,

L'onglet complément apparait automatiquement à partir du moment où une barre personnalisée est ajoutée.

Le 1er code est pour afficher une barre et un bouton, le 2ème pour supprimer la barre à la sortie du fichier et le dernier est le code correspondant au bouton de la barre.

Sub Barre()
    Application.ScreenUpdating = False
    Dim maBarre As CommandBar
    Dim monBouton  As CommandBarButton
    
    Set maBarre = CommandBars.Add(Name:="Alex", Position:=msoBarTop, MenuBar:=True)
    
    '1
    Set monBouton = maBarre.Controls.Add(msoControlButton)
    monBouton.Style = msoButtonCaption
    monBouton.Caption = "&Test Alex"
    monBouton.OnAction = "Alexane"
       
    maBarre.Protection = msoBarNoMove + msoBarNoCustomize
    maBarre.Visible = True

End Sub

Sub ferm()
On Error Resume Next
CommandBars("Alex").Delete
End Sub

Sub Alexane()
MsgBox "coucou Alexane"
End Sub

@ +

Juju

 

[soenda]

Re : onglet compléments

Bonsoir à tous

Il me semble qu'il faut ajouter 😕 :

Set maBarre = CommandBars.Add( ... [B][COLOR=blue], temporary:=True[/COLOR][/B])

A plus