création barre outil perso

bonjour somme...etc...
tu pourrais déjà t'inspirer de cette petite proc où tu noteras qu'avec les
propriétés Left et Top tu positionnes ta barre où tu veux
HTH
jps

Private Sub Workbook_Open()

On Error Resume Next
'Création d'une barre d'outils pour les commandes du classeur
With Application.CommandBars.Add("Débiteurs", msoBarFloating, False,
True)
.Left = 300
.Top = 200
.Visible = True
'ajouter les boutons
.Controls.Add (msoControlButton)
With .Controls(1)
.TooltipText = "tri par date d'échéance"
.FaceId = 125
.OnAction = "triParEcheance"
End With

.Controls.Add (msoControlButton)
With .Controls(2)
.TooltipText = "màj manuelle des règlements"
.FaceId = 31
.OnAction = "màjreglements"
End With
.Controls.Add (msoControlButton)
With .Controls(3)
.TooltipText = "tri par nom"
.FaceId = 210
.OnAction = "triParNom"
End With

End With
End Sub
"somme.si et VBa" <sommesietVBa@discussions.microsoft.com> a écrit dans le
message de news: A31D2C26-1832-447C-8169-0C4323DCE979@microsoft.com...

Salut a tous

je cherche le code ou petite application pour m aider.
Je souhaite qu'à l'ouverture d'un fichier se créer une barre d'outil perso
avec les macros que j'aurai créé dans VBA
Et que cette nouvelle barre se place à coté des barres existantes.

quelqu un peut il m'aider ?
merci d'avance
et a paris il fait toujours moche

jean marie

Bonjour,

La barre est crée à l'ouverture du classeur et supprimée à la
fermeture:

Sub auto_open()
Dim barre As CommandBar
Dim bouton As CommandBarControl
On Error Resume Next
Set barre = CommandBars.Add(Name:="BarreBoutons")
barre.Visible = True

Set bouton =
CommandBars("BarreBoutons").Controls.Add(Type:=msoControlButton)

bouton.Style = msoButtonIconAndCaption
bouton.TooltipText = "xxx"
bouton.FaceId = 121
bouton.OnAction = "Macro1"
bouton.Caption = "Macro1"

Set bouton =
CommandBars("BarreBoutons").Controls.Add(Type:=msoControlButton)
bouton.BeginGroup = True
bouton.Style = msoButtonCaption
'bouton.Width = 100
bouton.OnAction = "Macro2"
bouton.Caption = "Macro2"
End Sub

Sub auto_close()
On Error Resume Next
CommandBars("BarreBoutons").Delete
End Sub

http://boisgontierjacques.free.fr/pages_site/Menus.htm#NouvelleBarre

JB

Sub macro1()
MsgBox "Macro1"
End Sub

Sub macro2()
MsgBox "Macro2"
End Sub



On 10 août, 07:32, somme.si et VBa
<sommesiet...@discussions.microsoft.com> wrote:

Salut a tous

je cherche le code ou petite application pour m aider.
Je souhaite qu'à l'ouverture d'un fichier se créer une barre d'outil perso
avec les macros que j'aurai créé dans VBA
Et que cette nouvelle barre se place à coté des barres existantes.

quelqu un peut il m'aider ?
merci d'avance
et a paris il fait toujours moche

jean marie

Bonjour zatoustes
Quand c'est signé jps, je me lève, je claque des talons, je me goberge.
C'est de la balle.
Je suis sûr que cela va être un bon coup d'amidon pour mes neurones.
Et là, no problemo, mes neurones hyperaffutés ont été amidonnés de
nouveau, car il faut suivre plusieurs fils à la fois pour avoir en
entier le faisceau de brillantes réponses. Tu imagines le Mikado pour
mes neurones.
Hummm Aita tuai! comme dirait Modeste
Maître JP, encore Merci!
Et bonne journée pour ceux qui envisage(raie)nt de travailler.


et pour somme.si etc, la suite du Maître :
****
oops, j'ai oublié l'annulation de la BO à la fermeture du classeur
il te faudra donc prévoir en plus

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.CommandBars("Débiteurs").Delete
End Sub

ces procs sont à installer dans le ThisWorkbook de ton classeur
jps
****
@+
J@@


jps wrote:

bonjour somme...etc...
tu pourrais déjà t'inspirer de cette petite proc où tu noteras qu'avec les
propriétés Left et Top tu positionnes ta barre où tu veux
HTH
jps

Private Sub Workbook_Open()

On Error Resume Next
'Création d'une barre d'outils pour les commandes du classeur
With Application.CommandBars.Add("Débiteurs", msoBarFloating, False,
True)
.Left = 300
.Top = 200
.Visible = True
'ajouter les boutons
.Controls.Add (msoControlButton)
With .Controls(1)
.TooltipText = "tri par date d'échéance"
.FaceId = 125
.OnAction = "triParEcheance"
End With

.Controls.Add (msoControlButton)
With .Controls(2)
.TooltipText = "màj manuelle des règlements"
.FaceId = 31
.OnAction = "màjreglements"
End With
.Controls.Add (msoControlButton)
With .Controls(3)
.TooltipText = "tri par nom"
.FaceId = 210
.OnAction = "triParNom"
End With

End With
End Sub
"somme.si et VBa" <sommesietVBa@discussions.microsoft.com> a écrit dans le
message de news: A31D2C26-1832-447C-8169-0C4323DCE979@microsoft.com...

Salut a tous

je cherche le code ou petite application pour m aider.
Je souhaite qu'à l'ouverture d'un fichier se créer une barre d'outil perso
avec les macros que j'aurai créé dans VBA
Et que cette nouvelle barre se place à coté des barres existantes.

quelqu un peut il m'aider ?
merci d'avance
et a paris il fait toujours moche

jean marie

on se moquerait pas un peu du côté de Raiatea, par zazard????
:-))))
jps

"J@@" <adressenulle@mospherique.fr> a écrit dans le message de news:
%23fE2Pqx2HHA.5796@TK2MSFTNGP05.phx.gbl...

Bonjour zatoustes
Quand c'est signé jps, je me lève, je claque des talons, je me goberge.
C'est de la balle.
Je suis sûr que cela va être un bon coup d'amidon pour mes neurones.
Et là, no problemo, mes neurones hyperaffutés ont été amidonnés de
nouveau, car il faut suivre plusieurs fils à la fois pour avoir en entier
le faisceau de brillantes réponses. Tu imagines le Mikado pour mes
neurones.
Hummm Aita tuai! comme dirait Modeste
Maître JP, encore Merci!
Et bonne journée pour ceux qui envisage(raie)nt de travailler.


et pour somme.si etc, la suite du Maître :
****
oops, j'ai oublié l'annulation de la BO à la fermeture du classeur
il te faudra donc prévoir en plus

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.CommandBars("Débiteurs").Delete
End Sub

ces procs sont à installer dans le ThisWorkbook de ton classeur
jps
****
@+
J@@


jps wrote:

bonjour somme...etc...
tu pourrais déjà t'inspirer de cette petite proc où tu noteras qu'avec
les propriétés Left et Top tu positionnes ta barre où tu veux
HTH
jps

Private Sub Workbook_Open()

On Error Resume Next
'Création d'une barre d'outils pour les commandes du classeur
With Application.CommandBars.Add("Débiteurs", msoBarFloating, False,
True)
.Left = 300
.Top = 200
.Visible = True
'ajouter les boutons
.Controls.Add (msoControlButton)
With .Controls(1)
.TooltipText = "tri par date d'échéance"
.FaceId = 125
.OnAction = "triParEcheance"
End With

.Controls.Add (msoControlButton)
With .Controls(2)
.TooltipText = "màj manuelle des règlements"
.FaceId = 31
.OnAction = "màjreglements"
End With
.Controls.Add (msoControlButton)
With .Controls(3)
.TooltipText = "tri par nom"
.FaceId = 210
.OnAction = "triParNom"
End With

End With
End Sub
"somme.si et VBa" <sommesietVBa@discussions.microsoft.com> a écrit dans
le message de news: A31D2C26-1832-447C-8169-0C4323DCE979@microsoft.com...

Salut a tous

je cherche le code ou petite application pour m aider.
Je souhaite qu'à l'ouverture d'un fichier se créer une barre d'outil
perso
avec les macros que j'aurai créé dans VBA
Et que cette nouvelle barre se place à coté des barres existantes.

quelqu un peut il m'aider ?
merci d'avance
et a paris il fait toujours moche

jean marie

Pour positionner ta barre d'outils nommée "DDD"
juste à droite de la barre d'outils "Formatting", tu
peux utiliser le code suivant :


Sub test()

Dim JPS As CommandBar

'évidemment la barre d'outils "Formatting" doit être visible à l'écran
'et il est supposé qu'elle est en haut de l'écran !
Set JPS = Application.CommandBars("Formatting")

'Remplace "ddd" par le nom de ta barre d'outils
With Application.CommandBars("ddd")
.Visible = True
.Position = msoBarTop
.RowIndex = JPS.Index
.Left = JPS.Width
End With

P.S. Lorsque l'on utiliser "msoBarTop" , on ne peut
pas utiliser la propriété "Top" par programmation d'où la
nécessité d'utilser la propriété "RowIndex"

End Sub

Bonjour jps
Ni du côté de Moorea où un avion vient de se crasher :-[
0 survivant
Amicalement
J@@

jps wrote:

on se moquerait pas un peu du côté de Raiatea, par zazard????
:-))))
jps

"J@@" <adressenulle@mospherique.fr> a écrit dans le message de news:
%23fE2Pqx2HHA.5796@TK2MSFTNGP05.phx.gbl...

Bonjour zatoustes
Quand c'est signé jps, je me lève, je claque des talons, je me
goberge. C'est de la balle.
Je suis sûr que cela va être un bon coup d'amidon pour mes neurones.
Et là, no problemo, mes neurones hyperaffutés ont été amidonnés de
nouveau, car il faut suivre plusieurs fils à la fois pour avoir en
entier le faisceau de brillantes réponses. Tu imagines le Mikado pour
mes neurones.
Hummm Aita tuai! comme dirait Modeste
Maître JP, encore Merci!
Et bonne journée pour ceux qui envisage(raie)nt de travailler.


et pour somme.si etc, la suite du Maître :
****
oops, j'ai oublié l'annulation de la BO à la fermeture du classeur
il te faudra donc prévoir en plus

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.CommandBars("Débiteurs").Delete
End Sub

ces procs sont à installer dans le ThisWorkbook de ton classeur
jps
****
@+
J@@


jps wrote:

bonjour somme...etc...
tu pourrais déjà t'inspirer de cette petite proc où tu noteras
qu'avec les propriétés Left et Top tu positionnes ta barre où tu veux
HTH
jps

Private Sub Workbook_Open()

On Error Resume Next
'Création d'une barre d'outils pour les commandes du classeur
With Application.CommandBars.Add("Débiteurs", msoBarFloating,
False, True)
.Left = 300
.Top = 200
.Visible = True
'ajouter les boutons
.Controls.Add (msoControlButton)
With .Controls(1)
.TooltipText = "tri par date d'échéance"
.FaceId = 125
.OnAction = "triParEcheance"
End With

.Controls.Add (msoControlButton)
With .Controls(2)
.TooltipText = "màj manuelle des règlements"
.FaceId = 31
.OnAction = "màjreglements"
End With
.Controls.Add (msoControlButton)
With .Controls(3)
.TooltipText = "tri par nom"
.FaceId = 210
.OnAction = "triParNom"
End With

End With
End Sub
"somme.si et VBa" <sommesietVBa@discussions.microsoft.com> a écrit
dans le message de news:
A31D2C26-1832-447C-8169-0C4323DCE979@microsoft.com...

Salut a tous

je cherche le code ou petite application pour m aider.
Je souhaite qu'à l'ouverture d'un fichier se créer une barre d'outil
perso
avec les macros que j'aurai créé dans VBA
Et que cette nouvelle barre se place à coté des barres existantes.

quelqu un peut il m'aider ?
merci d'avance
et a paris il fait toujours moche

jean marie