Re: barre d'outils & déplacement de boutons
Re Bonjour
je comprends pas trop ce que tu veux faire
voici un exemple fonctionnel sur la barre de menu, j'espère que cela te guidera.
A+
Public Barre_Mem1 As Variant, Barre_Mem2 As Variant
Sub essai()
On Error Resume Next
With Application.CommandBars("Worksheet Menu Bar")
If IsError(IsObject(.Controls("coucou"))) Then Set Barre_Mem1 = .Controls.Add(Type:=msoControlPopup, before:=1): Barre_Mem1.Caption = "coucou"
End With
With Application.CommandBars("Worksheet Menu Bar").Controls("coucou")
If IsError(IsObject(.Controls("msg"))) Then Set Barre_Mem2 = .Controls.Add(Type:=msoControlButton, ID:=752, before:=1): Barre_Mem2.Caption = "msg": Barre_Mem2.OnAction = "msg_uti"
End With
On Error GoTo 0
End Sub
Sub msg_uti()
MsgBox "c'est bon"
End Sub