Microsoft 365 Personnalisation du ruban

tbft

XLDnaute Accro
Bonjour.

J'aimerai pouvoir personnaliser le rubans sur un fichier afin de pouvoir lancer ses macros sans à avoir de uesrfrom ou des boutons sur les feuilles.
J'ai trouvé le code. Mais, ce code m'affiche le titre "Compléments" avec le groupe "Barres d'outils personnalisées". Alors que le code lui donne le nom "Utilitaire".
Le code n'ai peut-être pas (surement s'est sure) pas optimale.
Pouvez-vous m'aider, me conseiller, s'il vous plait?
D'avance merci.
VB:
Option Explicit
Option Base 1
'

Private Const Nom_barre_outils = "Utilitaire"
'

Private Sub Workbook_Open()
  Ouverture_CommadeBar
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
  Fermeture_Commandebar
End Sub

Private Sub Ouverture_CommadeBar()
  Dim CmdBar As CommandBar
  Dim Bouton As CommandBarButton
 
  'Création de la barre d'outils nommée 'MaBarrePerso'
  Set CmdBar = Application.CommandBars.Add(Name:=Nom_barre_outils, Position:=msoBarTop, Temporary:=True)
 
  'Ajout des boutons dans la barre d'outils
  Set Bouton = CmdBar.Controls.Add(Type:=msoControlButton)
  With Bouton
    .Caption = "Mettre en forme le nom des sites"
    .FaceId = 439
    .OnAction = "Coloration_site"
  End With
 
  Set Bouton = CmdBar.Controls.Add(Type:=msoControlButton)
  With Bouton
    .Caption = "Mettre en forme le reste du calendrier"
    .FaceId = 8
    .OnAction = "Re_Mise_Forme_Conditionnelle"
  End With
 
  Set Bouton = CmdBar.Controls.Add(Type:=msoControlButton)
  With Bouton
    .Caption = "Transfert du calendrier vers le listing"
    .FaceId = 132
    .OnAction = "transfert_planning_vers_liste"
  End With
 
  Set Bouton = CmdBar.Controls.Add(Type:=msoControlButton)
  With Bouton
    .Caption = "Transfert du listing vers le calendrier"
    .FaceId = 133
    .OnAction = "transfert_liste_vers_planning"
  End With
 
  CmdBar.Visible = True
End Sub

Private Sub Fermeture_Commandebar()
    On Error Resume Next
    Application.CommandBars(Nom_barre_outils).Delete
End Sub
 
C

Compte Supprimé 979

Guest
Bonjour TBFT,

Vous êtes en quelle version d'Excel 2013 ou supérieur à mon avis 🤔
Ce code ne fonctionnera pas comme ça pour le nom de la barre

Si vous voulez un vrai menu, il faudra utiliser "Office custom UI Editor" à télécharger

@+
 

patricktoulon

XLDnaute Barbatruc
re
bonjour
ou simplement un popup s'ouvrant sur la plage du calendrier et sur le plage du listing
c'est simple propre et invisible de plus tu a pratiquement le code fait
il te suffit de changer msobartop pour msobarpopup

et dans l'event beforerightclick des feuille
commandbars(""Utilitaire"").shopopup

sinon tu a effectivement CustomUI editor (faut il avoir déjà une connaissance du xml et de customui)
remarque le language balisé est assez simple
 

Discussions similaires

Statistiques des forums

Discussions
311 725
Messages
2 081 942
Membres
101 849
dernier inscrit
florentMIG