création d'une barre d'outil en vba

Question

Je cherche un moyen de créé une barre d'outils à l'ouverture d'un classeur excel et par la meme occasion la supprimer à la fermeture de celui-ci.
(une barre avec des icones et non un menu déroulent)
Merci  :question)

rvw68 · Answer

Bonjour,

essaye ça :

creation

Sub Creation_Barres()

On Error GoTo Err:
'    Création d'une Barre d'outils appelée "formu"
'    dans la partie gauche de la fenêtre Excel
Set Barre1 = CommandBars.Add(Name:="formu", _
    Position:=msoBarTop)

Exit Sub

Err:

Resume Next
End Sub


Supression


Sub Suppression_Barres()
'   Suppression des barres de commandes personnalisées
On Error GoTo Err:

Application.CommandBars("formu").Delete
Exit Sub

Err:
MsgBox "Suppression impossible, la barre de commande ne doit pas exister"
Resume Next

End Sub


et pour les boutons quelque chose dans ce genre



Sub Ajout_Controle1()
Dim m_Button As CommandBarControl
    
    
   
    
    '  Ajout d'un bouton de commande à la barre formu
     Set m_Button = Application.CommandBars("formu").Controls.Add _
           (Type:=msoControlButton)
    '  Icône Enregistrer
     m_Button.FaceId = 351
    '  Action "lance formulaire"
     m_Button.OnAction = "form1"
End Sub


C'est à personaliser à ta sauce. il faut aussi penser à lui dire d'afficher ta bare



Sub Creation_Affichage()

'   Appel des différentes procédures pour mise en place de la bare

Creation_Barres
If Application.CommandBars("formu").Visible = True Then
GoTo fin:
End If
Affichage_Barres
Ajout_Controle1
Exit Sub
fin:

End Sub


Bonne chance

rvw68 · Answer

Bonjour,

essaye ça :

creation

Sub Creation_Barres()

On Error GoTo Err:
'    Création d'une Barre d'outils appelée "formu"
'    dans la partie gauche de la fenêtre Excel
Set Barre1 = CommandBars.Add(Name:="formu", _
    Position:=msoBarTop)

Exit Sub

Err:

Resume Next
End Sub


Supression


Sub Suppression_Barres()
'   Suppression des barres de commandes personnalisées
On Error GoTo Err:

Application.CommandBars("formu").Delete
Exit Sub

Err:
MsgBox "Suppression impossible, la barre de commande ne doit pas exister"
Resume Next

End Sub


et pour les boutons quelque chose dans ce genre



Sub Ajout_Controle1()
Dim m_Button As CommandBarControl
    
    
   
    
    '  Ajout d'un bouton de commande à la barre formu
     Set m_Button = Application.CommandBars("formu").Controls.Add _
           (Type:=msoControlButton)
    '  Icône Enregistrer
     m_Button.FaceId = 351
    '  Action "lance formulaire"
     m_Button.OnAction = "form1"
End Sub


C'est à personaliser à ta sauce. il faut aussi penser à lui dire d'afficher ta bare



Sub Creation_Affichage()

'   Appel des différentes procédures pour mise en place de la bare

Creation_Barres
If Application.CommandBars("formu").Visible = True Then
GoTo fin:
End If
Affichage_Barres
Ajout_Controle1
Exit Sub
fin:

End Sub


Bonne chance

Création d'une barre d'outil en vba

2 réponses

Discussions similaires