auto open et saut de ligne !!

Sub auto_open()
Dim barre As CommandBar
Dim bouton As CommandBarControl
On Error Resume Next
CommandBars("Feuil1").Delete
Set barre = CommandBars.Add(Name:="Feuil1")
barre.Visible = True

Set bouton = CommandBars("Feuil1").Controls.Add(Type:=msoControlButton)
bouton.BeginGroup = True
bouton.Style = msoButtonCaption
bouton.OnAction = "formule_genere"
bouton.Caption = "formule_genere"

Set bouton = CommandBars("Feuil1").Controls.Add(Type:=msoControlButton)
bouton.BeginGroup = True
bouton.Style = msoButtonCaption
bouton.OnAction = "cmd_formule_genere"
bouton.Caption = "cmd_formule_genere"


Set bouton = CommandBars("Feuil1").Controls.Add(Type:=msoControlButton)
bouton.BeginGroup = True
bouton.Style = msoButtonCaption
bouton.OnAction = "activer_filtre"
bouton.Caption = "activer_filtre"

Set bouton = CommandBars("Feuil1").Controls.Add(Type:=msoControlButton)
bouton.BeginGroup = True
bouton.Style = msoButtonCaption
bouton.OnAction = "copie_vers_feuil1"
bouton.Caption = "copie_vers_feuil1"
Set bouton = CommandBars("Feuil1").Controls.Add(Type:=msoControlButton)
bouton.BeginGroup = True
bouton.Style = msoButtonCaption
bouton.OnAction = "couleur_si_qty"
bouton.Caption = "couleur_si_qty"
End Sub

Cliquez pour agrandir...