Position barre d'outils personnalisée

[stargate]

Bonjour,

j'ai crée un barre d'outils personnalisée

Pour protéger mon classeur, je masque toutes les barres de commandes sauf ma barre de commande personnalisée


Quand je repasse en mode création, je réaffiche toutes les barres de commmandes.


ma barre de commandes personnalisée se place à chaque fois entre la barre de commandes 'Standard' et la barre de commandes 'Formatting'

Ma question,

Comment faire pour qu'elle se positionne après
la barre de commandes 'Formating' et avant la barre de commandes 'Visual Basic'


Merci

 

[stargate]

Trouvé la solution

Application.Commandbars('Personnalisé').RowIndex=3

'Le plus à gauche
Application.CommandBars('Personnalisé').Left = 0

voilà, si cela peut servir à quelqu'un?

 

[Dan]

Bonjour,

Tu peux montrer le code de création de ta barre perso ?

A te lire

😉

 

[stargate]

voici le code de ma barre perso

Sub BoMenu()
'Procédure appelée à l'ouverture du classeur

'Déclaration des variables
Dim cb As CommandBar
Dim btn As CommandBarButton

'Gestion des erreurs
On Error Resume Next
CommandBars('Personnalisé').Delete
On Error GoTo 0

'Affectation des variables
'Ajout de la barre d'outils
Set cb = CommandBars.Add
    With cb
        .Name = 'Personnalisé'
        .Position = msoBarTop
        .Visible = True
    End With

'Ajout des boutons de la barre d'outils
Set btn = CommandBars('Personnalisé').Controls.Add _
    (Type:=msoControlButton)
  With btn
        .BeginGroup = True
        .Caption = 'Création'
        .FaceId = 162
        .OnAction = 'pass'
        .TooltipText = 'Création'
        .Style = msoButtonIconAndCaption
    End With

Set btn = CommandBars('Personnalisé').Controls.Add _
    (Type:=msoControlButton)
    
    With btn
        
        .Caption = 'Lecture'
        .FaceId = 48
        .OnAction = 'Lecture'
        .TooltipText = 'Lecture'
        .Style = msoButtonIconAndCaption
    End With

'Positionnement de la barre d'outils personnalisé
'
Application.CommandBars('Personnalisé').RowIndex = 3
Application.CommandBars('Personnalisé').Left = 0
End Sub

voilà

 

[stargate]

Oups ton éditeur de code à foiré

 

[stargate]

Oups ton éditeur de code à foiré