Re Bonjour J-Christophe
Bonjour André
Alors tu as étudié ton bouquin André
.. car là je crois que J-Christophe nous parle en VBA sur ce coup là ...
Donc le séparateur dont tu parles : c'est "BeginGroup"... enfin si pour toi "barre d'icones" c'est bien une "CommandBar".
En admettant que ta nouvelle custom CommandBar soit nommée "MaBarre" il te sufit de compter la position des icones que tu veux séparer en partant de la fin (à droite)
Cette macro devrait faire çà : (Ici c'est les deux derniers boutons qui seront séparés...)
Sub Separateur()
Set myMenuBar = CommandBars("MaBarre")
Set lastMenu = myMenuBar _
.Controls(myMenuBar.Controls.Count - 1)
lastMenu.BeginGroup = True
End Sub
Sinon si on fait une addtion de boutons dans une CommandBar on peut faire comme çà aussi :
Set newItem = CommandBars("MaBarre").Controls.Add(Type:=msoControlButton)
With newItem
.BeginGroup = True
.Caption = "Duvels Time"
.FaceId = 21
.OnAction = "MaMacro"
End With
Voilà, en espérant que c'est ce que tu voulais car finalement je suis pris d'un doute....
Bon App
@+Thierry