bonsoir le forum
j'ai le code vba ci dessous qui me genere une barre d'outils avec 9 boutons
je voudrais savoir comment rajouter "des traits de séparation" entre des boutons sur une barre d'outils, par exemple un trait entre le bouton 3 et le bouton4 et un autre entre le bouton 6 et bouton7.
merci
Sub CreeBO() 'à appeler dans le Workbook_Open
Dim MaBar, Btn1, Btn2, btn3, Btn4, Btn5 ', btn6, Btn7, Btn8, btn9
' créatio de la barre d'outils
On Error Resume Next
Set MaBar = Application.CommandBars.Add(nombarreo)
With MaBar
Set Btn1 = .Controls.Add(msoControlButton)
With Btn1
.Caption = "Nouvelle pieuvre"
.FaceId = 350
.OnAction = "NOUVELLEPIEUVRE"
End With
Set Btn2 = .Controls.Add(msoControlButton)
With Btn2
.Caption = "Copier pieuvre"
.FaceId = 479
.OnAction = "copierpieuvre"
End With
etc----------