Lone-wolf
XLDnaute Barbatruc
Bonsoir,
je réouvre le post, car je croyait que le problème était résolu et j'ai mis en PJ le fichier qui cause problème.
Je ne sais pas ce qui c'est passé mais en changeant les textes dans le sous-menu Affichage au niveau de On action et Caption, j'ai une erreur dans la macro d'appel (Private Sub). Est-ce vous auriez une idée?. Comme le code à été fait sous Excel 2007, je dois modifier quelque chose?
Merci pour votre aide.
A+
je réouvre le post, car je croyait que le problème était résolu et j'ai mis en PJ le fichier qui cause problème.
Je ne sais pas ce qui c'est passé mais en changeant les textes dans le sous-menu Affichage au niveau de On action et Caption, j'ai une erreur dans la macro d'appel (Private Sub). Est-ce vous auriez une idée?. Comme le code à été fait sous Excel 2007, je dois modifier quelque chose?
Merci pour votre aide.
Code:
Set MyBar1 = CommandBars _
.Add(Name:="_Affichage", Position:=msoBarPopup, Temporary:=False)
With MyBar1
.Controls.Add Type:=msoControlButton
.Controls(1).FaceId = 3456
.Controls(1).OnAction = "standard"
.Controls(1).Caption = "Standard"
.Controls.Add Type:=msoControlButton
.Controls(2).FaceId = 2894
.Controls(2).OnAction = "etendu"
.Controls(2).Caption = "Étendu"
End With
Private Sub Afficher_Click()
CommandBars("_Affichage").ShowPopup
End SubA+
Dernière édition: