positionnement barre d'outils

**Fab_nabou** · 19/10/2006, 14h59

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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** · 19/10/2006, 15h12

Salut Fab_nabou,

peut etre ceci?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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** · 19/10/2006, 15h21

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

**ouskel'n'or** · 19/10/2006, 15h44

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** · 19/10/2006, 15h47

une autre chose de ce type :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

je pense

**ouskel'n'or** · 19/10/2006, 16h00

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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** · 19/10/2006, 16h38

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

**RLX** · 19/10/2006, 16h45

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** · 19/10/2006, 16h54

j'ai fait ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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** · 19/10/2006, 17h00

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** · 19/10/2006, 17h02

non pareil.

**ouskel'n'or** · 19/10/2006, 17h07

Essaie ça... à tout hasard

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

**Fab_nabou** · 19/10/2006, 17h20

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

**ouskel'n'or** · 19/10/2006, 18h37

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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** · 19/10/2006, 20h00

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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** · 20/10/2006, 05h25

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** · 20/10/2006, 08h42

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

**ouskel'n'or** · 20/10/2006, 10h18

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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** · 20/10/2006, 11h24

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

positionnement barre d'outils

VBA

Discussions similaires

Partager

Partager