Barre d'outil perso

Bonjour au forum,

suite du fil "mon ThisWorkbook ne fonctionne pas"

Claude.[/list]

re bonjour au forum,

J'ai une barre d'outil avec 2 boutons, çà marche, mais comment faire pour ajouter à coté

un menu de boutons ? (dans la même barre)

Public Sub AjoutMaBarre()
'Macro par DAN pour Dubois le 30/01/08
    Dim vMaBarre As CommandBar
Dim vMaBarrebutton As CommandBarButton
    Call SupprimerMabarre
    Set vMaBarre = CommandBars.Add(Name:="DVD2", Position:=msoBarTop, temporary:=True)
   Set vMaBarrebutton = vMaBarre.Controls.Add(msoControlButton, , , , True)
 ''1er bouton****************
    With vMaBarrebutton 'définir les boutons
        .Caption = "&Aide" '''nom du bouton
        ''.FaceId = 2
        .Style = msoButtonCaption
        .OnAction = ThisWorkbook.Name & "!aide" ''nom de la macro
     End With
 ''2ème bouton****************
 Set vMaBarrebutton = vMaBarre.Controls.Add(msoControlButton, , , , True)
    With vMaBarrebutton 'définir les boutons
        .Caption = "&Disque" '''nom du bouton
        ''.FaceId = 2
        .Style = msoButtonIconAndCaption
        .OnAction = ThisWorkbook.Name & "!disque" ''nom de la macro
     End With
vMaBarre.Visible = True
End Sub

çà devient compliqué cette affaire !!

à vous lire

Claude.

re,

Je t'ai répondu sur l'autre fil -> https://www.excel-pratique.com/forum/viewtopic.php?t=3623&start=30

Dan

re,

oui Dan, j'ai maintenant 2 boutons que j' appellerai des "boutons macros", mais comment

ajouter des "boutons menus" ?

amicalement

Claude.

Bonsoir à tous,

je sens comme "un petit coup de lassitude" sur le forum !!!

c'est quand même pas ma barre qui vous en a mis un coup !

à vous lire

Claude.

bonsoir au forum,

je reviens à la charge !

Comment ajouter dans ma barre perso, des sous/menus de macros ?

amicalement

Claude.

Salut le forum

Voyons Claude, ne panique pas comme cela

Regarde le fichier suivant : BarreClaude.xls

Mytå

Bonjour au forum,

Merci Mytå, c'est exactement ce que j'espérai .

Un fichier exemple que je vais gardé précieusement.

Je ne soupçonnai pas qu'il faille procéder comme çà, mais maintenant j'ai compris.

Peux-tu retirer du forum, dans applications Excel ,le post "jaquette DVD" en attendant

que je le mette à jour, (s'il y a risque pour nos amis forumeurs)

Bien amicalement

Claude.

re,

çà marche du tonnerre !

J'ai même réussi à incorporer la liste déroulante "DVD".

La cerise sur le gâteau serait que la barre vienne se coller derrière ma barre Excel

"Personnalisé 1".

Function Créer_Menu()
With CommandBars.Add(Name:="DVD", Position:=msoBarTop, temporary:=True)

je suppose que c'est sur cette ligne ?

Encore merci

Claude.

Salut le forum

Faudrait déjà voir ou est placé ta barre Excel "Personnalisé 1".

On est pas encore des devins...

Mytå

P,S. Pour ton fichier Jacquette DVD un e-mail à Sébastien, il te ferait le travail.

bonsoir,

comme tout le monde n'a pas la barre" Personnalisé 1", laissons tomber,

disons derrière la barre présente en haut.

c'est possible ?

à+...Claude.

Bonsoir à tous,

j'essaye toujours d'afficher ma barre "Rapid" en haut de l'écran, horizontalement, et à

la suite de la barre Excel présente (chez moi, "Personnalissé 1")

Option Explicit
Sub Créer_Menu()
'With CommandBars.Add(Name:="Rapid", Position:=msoBarRowLast, temporary:=True)'centre ecran
'With CommandBars.Add(Name:="Rapid", Position:=msoBlackWhiteAutomatic, temporary:=True)'idem bar top
'With CommandBars.Add(Name:="Rapid", Position:=msoBarTypeNormal, temporary:=True)'haut gauche vertical
'With CommandBars.Add(Name:="Rapid", Position:=msoBarTypeMenuBar, temporary:=True) 'idem bar top
'With CommandBars.Add(Name:="Rapid", Position:=MsoBarRow, temporary:=True)'bug
'With CommandBars.Add(Name:="Rapid", Position:=MsoBarPosition, temporary:=True) 'bug
'With CommandBars.Add(Name:="Rapid", Position:=msoBarPopup, temporary:=True)'bug
'With CommandBars.Add(Name:="Rapid", Position:=msoBarNoResize, temporary:=True) '(haut droite vertical
'With CommandBars.Add(Name:="Rapid", Position:=msoAlignBottoms, temporary:=True)'non
'With CommandBars.Add(Name:="Rapid", Position:=msoBalloonButtonAbort, temporary:=True)'non
'With CommandBars.Add(Name:="Rapid", Position:=msoBarNoMove, temporary:=True) 'non
'With CommandBars.Add(Name:="Rapid", Position:=msoBarNoHorizontalDock, temporary:=True) 'non
'With CommandBars.Add(Name:="Rapid", Position:=msoBarNoCustomize, temporary:=True) 'idem bar top
' With CommandBars.Add(Name:="Rapid", Position:=msoBarNoChangeVisible, temporary:=True)'centre ecran
'With CommandBars.Add(Name:="Rapid", Position:=msoBarNoChangeDock, temporary:=True) 'centre ecran
'With CommandBars.Add(Name:="Rapid", Position:=msoBarLeft, temporary:=True)'haut gauche vertical
 'With CommandBars.Add(Name:="Rapid", Position:=msoBarBottom, temporary:=True)'bas gauche
 With CommandBars.Add(Name:="Rapid", Position:=msoBarTop, temporary:=True)

J'arrête de tâtonner , si quelqu'un a la solution !

sinon j'abandonne

Claude.

Salut Claude et le forum

N'ayant pas le fichier sous la main essaye de voir ou se positionne celle-ci.

Sub AddToolbar()

   Dim NewBar As CommandBar
   Dim x As CommandBar, LastBar As CommandBar
   Dim LastRow As Integer

   ' The following loop goes through all toolbars.
   ' to determine which is the last toolbar docked
   ' at the top of the Microsoft Excel window.
   For Each x In Application.CommandBars
      If x.Visible = True And x.Position = msoBarTop Then
         If x.RowIndex > LastRow Then
            Set LastBar = x
            LastRow = x.RowIndex
         End If
      End If
   Next x

   ' Create a new toolbar.
   Set NewBar = CommandBars.Add(Name:="NewCmdBar")

   With NewBar
      ' Add a button to the toolbar.
      .Controls.Add Type:=msoControlButton, Id:=270

      ' Dock the toolbar at the top of the Microsoft Excel window.
      .Position = msoBarTop

      ' Set the leftmost position of the toolbar.
      .Left = LastBar.Left + LastBar.Width + 1

      ' Place the toolbar in the correct row.
      .RowIndex = LastRow

      ' Display the toolbar.
      .Visible = True
   End With

End Sub

Essaye en modifiant

If x.Visible = True And x.Position = msoBarTop  Then

par

If x.Visible = True And x.Position = msoBarTop And x.Name = "LeNomDeLaBarre" Then

A te relire

Mytå

Bonjour Mytå et au forum,

le premier code est le bon, valable avec n'importe quelle barre présente.

C'est exactement ce que j'espérais.

Encore une fois, tu m'as sauvé le coup !

Mille merci

amicalement

Claude.