M
mahamalily
Guest
Bonjour à tous,
Je souhaiterais apprendre davantage sur la propriété CommandBars...
J'ai un code qui créé un onglet supplémentaire dans le ruban qui s'appelle Compléments. Mon code permet d'avoir une barre d'outils personnalisée.
Info ° : le code est un code (élaboré par un collègue) sur lequel je dois retravailler pour problème de compatibilité etc puisqu'il n'est plus là... donc, je ne sais pas comment marche vraiment telle ou telle chose. comme l'histoire de la CommandBars!
Cependant, voici le code :
Pour l'exécution de ce code, il y a dans la méthode auto_open() : SuppressionMenu .
Alors mon souci est : comment puis je rajouter un bouton sans que ca m'affiche un message d'erreur ??
Et aussi, ce programme est censé d'enlever tout ce qui est déjà dans le ruban mais là, ce n'est pas le cas... Je suppose que c'est plus trop possible de le faire ou quelque chose de ce genre ? ou bien vous auriez une solution... ?!?
Sinon, j'aimerais que ca s'affiche en 1er onglet mais je ne sais pas comment faire...
Merci si vous pouviez m'aider !! Je vous en serais très reconnaissant !
Cordialement,
Je souhaiterais apprendre davantage sur la propriété CommandBars...
J'ai un code qui créé un onglet supplémentaire dans le ruban qui s'appelle Compléments. Mon code permet d'avoir une barre d'outils personnalisée.
Info ° : le code est un code (élaboré par un collègue) sur lequel je dois retravailler pour problème de compatibilité etc puisqu'il n'est plus là... donc, je ne sais pas comment marche vraiment telle ou telle chose. comme l'histoire de la CommandBars!
Cependant, voici le code :
Code:
Sub SuppressionMenu()
Application.CommandBars("Barre Outils").Visible = True
For Each cbar In CommandBars
If cbar.Name <> "Barre Outils" And cbar.Type = 0 Then
Application.CommandBars(cbar.Name).Visible = False
End If
Next
With Toolbars("Barre Outils")
.ToolbarButtons(1).OnAction = "RetourHaut"
.ToolbarButtons(2).OnAction = "DerniereLigne"
.ToolbarButtons(3).OnAction = "Ajouter"
.ToolbarButtons(4).OnAction = "Filtrage"
.ToolbarButtons(5).OnAction = "Impression_etiq_extract"
.ToolbarButtons(6).OnAction = "Encadrement"
.ToolbarButtons(7).OnAction = "btnEnleverProtect"
' .ToolbarButtons(7).OnAction = "btnRemettreProtect" '--> a voir si possible de l'insérer
.ToolbarButtons(8).OnAction = "Aide"
End With
End SubPour l'exécution de ce code, il y a dans la méthode auto_open() : SuppressionMenu .
Alors mon souci est : comment puis je rajouter un bouton sans que ca m'affiche un message d'erreur ??
Et aussi, ce programme est censé d'enlever tout ce qui est déjà dans le ruban mais là, ce n'est pas le cas... Je suppose que c'est plus trop possible de le faire ou quelque chose de ce genre ? ou bien vous auriez une solution... ?!?
Sinon, j'aimerais que ca s'affiche en 1er onglet mais je ne sais pas comment faire...
Merci si vous pouviez m'aider !! Je vous en serais très reconnaissant !
Cordialement,