positionnement barre d'outils [Résolu]

[Fab_nabou]

Bonjour
j'aimerais créer une barre d'outils dans excel qui se positionne sous celles déjà affichée (standart, mise en forme..)
donc avec le code

Code :

Set cbar1 = CommandBars.Add(Name:="Custom1", Position:=msoBarFloating)

on créé bien une barre d'outils mais flottante
je ne sais pas ce qu'il faut mettre dans Position ou alors faut-il faire autrechose.

merci de votre aide.

[RLX]

Salut Fab_nabou,

peut etre ceci?

Code :

Set cbar1 = CommandBars.Add(Name:="Custom1", Position:=msoBarTop)

Pour plus de renseignement un simple F1 sur add peut te donner d'autre renseignement

[Fab_nabou]

ok merci,
mais maintenant comment la mettre à droite la barre "standart" ?

[ouskel'n'or]

Tu regarde dans l'aide à CommandBar, tu regardes à la propriété "Position" et tu as :

Renvoie ou définit la position de la barre de commandes spécifiée. Il peut s'agir de l'une des constantes MsoBarPosition suivantes : msoBarLeft, msoBarTop, msoBarRight, msoBarBottom, msoBarFloating, msoBarPopup ou msoBarMenu. Type de données Long en lecture-écriture.

Cinq secondes et tu as ta réponse. On est performant ou on l'est pas

[RLX]

une autre chose de ce type :

Code :

1
2
3
Set cbar1 = CommandBars.Add(Name:="Custom1", Position:=msoBarTop)
 
cbar1.RowIndex = msoBarRowLast

je pense

[ouskel'n'or]

Je la placerais plutôt à la largeur de la barre standard

Code :

1
2
    Gauche = Application.CommandBars("Standard").Width
    Application.CommandBars("TaBarre").Left = Gauche

Tu dis

(comme il manque un mot j'avais mal compris ta question )

[Fab_nabou]

merci beaucoup,
mais la barre se met toujours en dessous des autres

[RLX]

Tu as combien de barre d'outils avec la standard?
Et surtout est-ce que c'est pas aussi un problème de résolution d'écran? (Pas assez de place pour mettre la barre à gacuhe de la standard)

[Fab_nabou]

j'ai fait ça :

Code :

1
2
Application.CommandBars("planning").Left = Application.CommandBars("Standard").Width
    Application.CommandBars("planning").Top = Application.CommandBars("standard").Top

ma barre se décale bien sur la gauche mais toujours sur une nouvelle ligne.
il reste de la place à droite de la barre standard.
je pense que je vais la laisser en dessous.

[RLX]

et si tu défini en premier le top et ensuite le left?




-----------------------------------------------------
ça paraît con mais les réponses les plus simples sont à faire en premier ça évite de griller des neurones pour rien si la solution est toute simple!!!!

[Fab_nabou]

non pareil.

[ouskel'n'or]

Essaie ça... à tout hasard

Code :

1
2
Application.CommandBars("planning").Left = Application.CommandBars("Standard").Width+5
Application.CommandBars("planning").Top = Application.CommandBars("standard").Top

[Fab_nabou]

non c'est toujours pareil, affichage sur une nouvelle ligne

[ouskel'n'or]

J'ai essayé avec ça et ça fonctionne

Code :

1
2
3
4
    Application.CommandBars("Control Toolbox").Visible = False
    Application.CommandBars("Control Toolbox").Left = Application.CommandBars("Standard").Width
    Application.CommandBars("Control Toolbox").Top = Application.CommandBars("Standard").Top
    Application.CommandBars("Control Toolbox").Visible = True

Tu dis

[Fab_nabou]

pour moi ça ne marche pas, j'ai le code:

Code :

1
2
3
4
5
Set cbar1 = CommandBars.Add(Name:="planning", Position:=msoBarTop, Temporary:=True)
Application.CommandBars("planning").Visible = False
Application.CommandBars("planning").Top = Application.CommandBars("standard").Top
    Application.CommandBars("planning").Left = Application.CommandBars("Standard").Width
Application.CommandBars("planning").Visible = True

si vous voulez toujours m'aider ...

[AlainTech]

Envoyé par Fab_nabou

si vous voulez toujours m'aider ...

Toi, par contre, tu m'aiderais en utilisant les balises [code]!

J'en ai assez de passer derrière toi.

[Fab_nabou]

ok vraiment désolé, j'ai compris.

[ouskel'n'or]

Code :

1
2
3
4
5
6
7
8
Application.CommandBars("standard").Visible = False
Application.CommandBars("planning").Delete
Set cbar1 = CommandBars.Add(Name:="planning", Position:=msoBarTop, Temporary:=True)
Application.CommandBars("planning").Visible = False
Application.CommandBars("planning").Top = 0 'Application.CommandBars("standard").Top
Application.CommandBars("planning").Left = Application.CommandBars("Standard").Width + 5
Application.CommandBars("planning").Visible = True
Application.CommandBars("standard").Visible = True

L'est teigneux le gars mais il a réussi !
Tu fais le ménage

[Fab_nabou]

effectivement cela fonctionne mais seulement lorsqu'aucune autre barre d'outils n'est active.
félicitations !!!