Positionnement barres d'outils multiples

Le
Sunburn
Bonjour,
j'ai plusieurs barres d'outils qui sont créées au démarage. Cependant,
j'aimerais les avoirs toutes en haut, sur 1 ou 2 lignes au maximum.
Je n'arrive pas à trouver le code à indiquer, et surtout à quel endroit de
ma macro.
Je vous remercie.
PS : j'ai une barre avec des dessins, puis 6 barres avec seulement du texte,
donc présentation possible = les "dessins" sur la ligne 1, les "textes" sur
une ligne 2. Si vous voulez le code utilisé (assez long), je peux vous le
transféré.
Je vous remercie. Yann
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
MichDenis
Le #5388071
Sub test()

Dim Mbar As CommandBar

Set Mbar = Application.CommandBars.Add("Denis2")
With Mbar
'la rendre visible
.Visible = True
' en haut de la fenêtre application Excel
.Position = msoBarTop
'Obtenir la ligne où tu veux situer ta barre d'outils
'ici, je prends pour acquis que je veux qu'elle soit
'sur la même ligne que la barre "Formatting"
.RowIndex = Application.CommandBars("Formatting").RowIndex
'Pour situer ma barre à l'extrémité de la barre "formatting"
.Left = Application.CommandBars("Formatting").Width
End With

End Sub






"Sunburn"
Bonjour,
j'ai plusieurs barres d'outils qui sont créées au démarage. Cependant,
j'aimerais les avoirs toutes en haut, sur 1 ou 2 lignes au maximum.
Je n'arrive pas à trouver le code à indiquer, et surtout à quel endroit de
ma macro.
Je vous remercie.
PS : j'ai une barre avec des dessins, puis 6 barres avec seulement du texte,
donc présentation possible = les "dessins" sur la ligne 1, les "textes" sur
une ligne 2. Si vous voulez le code utilisé (assez long), je peux vous le
transféré.
Je vous remercie. Yann
Sunburn
Le #5387121
Bonjour,
merci beaucoup, ça fonctionne presque à merveille. Je m'explique :
j'ai ma barre "dessin" qui est à gauche, impecable
j'ai mes 6 barres "textes" qui sont à droite de ma barre "dessin", nikel,
c'est ce que je voulais.
Par contre, l'ordre des mes barres "textes", n'est pas celui que je pense
avoir marqué en VBA, (je voudrais l'ordre de mon écriture) ci-après extrait
du code :
MERCI
-----
Sub Auto_open()
Set vmabarre = CommandBars.Add(Name:="barremacro", Position:=msoBarTop,
Temporary:úlse)
vmabarre.Visible = True
Set newbouton1 =
CommandBars("barremacro").Controls.Add(Type:=msoControlButton)
'...
Set newbouton2 =
CommandBars("barremacro").Controls.Add(Type:=msoControlButton)
'...

Set mybar1 = CommandBars.Add("SYNTHESE")
With mybar1
.Visible = True
.Position = msoBarTop
.RowIndex = Application.CommandBars("barremacro").RowIndex
.Left = Application.CommandBars("barremacro").Width
End With
Set newmenu =
Application.CommandBars("SYNTHESE").Controls.Add(Type:=msoControlPopup,
Temporary:=True)
newmenu.Caption = "Synthèse"
'...
Set mybar2 = CommandBars.Add("ORIENTATION")
With mybar2
.Visible = True
.Position = msoBarTop
.RowIndex = Application.CommandBars("SYNTHESE").RowIndex
.Left = Application.CommandBars("SYNTHESE").Width
End With
Set newmenu =
Application.CommandBars("ORIENTATION").Controls.Add(Type:=msoControlPopup,
Temporary:=True)
newmenu.Caption = "orientation/Plan de mission"
'...
Set mybar3 = CommandBars.Add("BUDGET")
With mybar3
.Visible = True
.Position = msoBarTop
.RowIndex = Application.CommandBars("ORIENTATION").RowIndex
.Left = Application.CommandBars("ORIENTATION").Width
End With
Set newmenu =
Application.CommandBars("BUDGET").Controls.Add(Type:=msoControlPopup,
Temporary:=True)
newmenu.Caption = "Budget"
'....
Set mybar4 = CommandBars.Add("FINMISSION")
With mybar4
.Visible = True
.Position = msoBarTop
.RowIndex = Application.CommandBars("BUDGET").RowIndex
.Left = Application.CommandBars("BUDGET").Width
End With
Set newmenu =
Application.CommandBars("FINMISSION").Controls.Add(Type:=msoControlPopup,
Temporary:=True)
newmenu.Caption = "Fin de Mission"
'....
Set mybar5 = CommandBars.Add("CYCLES")
With mybar5
.Visible = True
.Position = msoBarTop
.RowIndex = Application.CommandBars("FINMISSION").RowIndex
.Left = Application.CommandBars("FINMISSION").Width
End With
Set newmenu =
Application.CommandBars("CYCLES").Controls.Add(Type:=msoControlPopup,
Temporary:=True)
newmenu.Caption = " Contrôle des cycles "
'.....
Set mybar6 = CommandBars.Add("VERIF")
With mybar6
.Visible = True
.Position = msoBarTop
.RowIndex = Application.CommandBars("CYCLES").RowIndex
.Left = Application.CommandBars("CYCLES").Width
End With
Set newmenu =
Application.CommandBars("VERIF").Controls.Add(Type:=msoControlPopup,
Temporary:=True)
newmenu.Caption = "Vérifications Spécifiques"
'...
End Sub
Sub auto_close()
On Error Resume Next
CommandBars("barremacro").Delete
CommandBars("SYNTHESE").Delete
CommandBars("ORIENTATION").Delete
CommandBars("BUDGET").Delete
CommandBars("FINMISSION").Delete
CommandBars("CYCLES").Delete
CommandBars("VERIF").Delete
End Sub
------
MichDenis
Le #5386741
Sub Auto_open()

Set vmabarre = CommandBars.Add(Name:="barremacro", _
Position:=msoBarTop, Temporary:úlse)
With vmabarre
.Visible = True
.Controls.Add Type:=msoControlButton
.Controls.Add Type:=msoControlButton
x = x + .Width
End With

Set mybar1 = CommandBars.Add("SYNTHESE")
With mybar1
.Visible = True
.Position = msoBarTop
.RowIndex = Application.CommandBars("barremacro").RowIndex
.Left = x
With .Controls.Add(Type:=msoControlPopup, Temporary:=True)
.Caption = "Synthèse1"
End With
x = x + .Width
End With
'...

Set mybar2 = CommandBars.Add("ORIENTATION")
With mybar2
.Visible = True
.Position = msoBarTop
.RowIndex = Application.CommandBars("SYNTHESE").RowIndex
.Left = x
With .Controls.Add(Type:=msoControlPopup, Temporary:=True)
.Caption = "orientation/Plan de mission"
End With
x = x + .Width
End With
'...

Set mybar3 = CommandBars.Add("BUDGET")
With mybar3
x = Application.CommandBars("ORIENTATION").Width
.Visible = True
.Position = msoBarTop
.RowIndex = Application.CommandBars("ORIENTATION").RowIndex
.Left = x
With .Controls.Add(Type:=msoControlPopup, Temporary:=True)
.Caption = "Le Budget"
End With
x = x + .Width
End With
'....

Set mybar4 = CommandBars.Add("FIN_MISSION")
With mybar4
.Visible = True
.Position = msoBarTop
.RowIndex = Application.CommandBars("BUDGET").RowIndex
.Left = x
With .Controls.Add(Type:=msoControlPopup, Temporary:=True)
.Caption = "Fin de Mission"
End With
x = x + .Width
End With
'....

Set mybar5 = CommandBars.Add("CYCLES")
With mybar5
.Visible = True
.Position = msoBarTop
.RowIndex = Application.CommandBars("FIN_MISSION").RowIndex
.Left = x
With .Controls.Add(Type:=msoControlPopup, Temporary:=True)
.Caption = " Contrôle des cycles "
End With
x = x + .Width
End With
'.....

Set mybar6 = CommandBars.Add("VERIF")
With mybar6
.Visible = True
.Position = msoBarTop
.RowIndex = Application.CommandBars("CYCLES").RowIndex
.Left = x
With .Controls.Add(Type:=msoControlPopup, Temporary:=True)
.Caption = "Vérifications Spécifiques"
End With
End With
'...
End Sub






"Sunburn"
Bonjour,
merci beaucoup, ça fonctionne presque à merveille. Je m'explique :
j'ai ma barre "dessin" qui est à gauche, impecable
j'ai mes 6 barres "textes" qui sont à droite de ma barre "dessin", nikel,
c'est ce que je voulais.
Par contre, l'ordre des mes barres "textes", n'est pas celui que je pense
avoir marqué en VBA, (je voudrais l'ordre de mon écriture) ci-après extrait
du code :
MERCI
-----
Sub Auto_open()
Set vmabarre = CommandBars.Add(Name:="barremacro", Position:=msoBarTop,
Temporary:úlse)
vmabarre.Visible = True
Set newbouton1 CommandBars("barremacro").Controls.Add(Type:=msoControlButton)
'...
Set newbouton2 CommandBars("barremacro").Controls.Add(Type:=msoControlButton)
'...

Set mybar1 = CommandBars.Add("SYNTHESE")
With mybar1
.Visible = True
.Position = msoBarTop
.RowIndex = Application.CommandBars("barremacro").RowIndex
.Left = Application.CommandBars("barremacro").Width
End With
Set newmenu Application.CommandBars("SYNTHESE").Controls.Add(Type:=msoControlPopup,
Temporary:=True)
newmenu.Caption = "Synthèse"
'...
Set mybar2 = CommandBars.Add("ORIENTATION")
With mybar2
.Visible = True
.Position = msoBarTop
.RowIndex = Application.CommandBars("SYNTHESE").RowIndex
.Left = Application.CommandBars("SYNTHESE").Width
End With
Set newmenu Application.CommandBars("ORIENTATION").Controls.Add(Type:=msoControlPopup,
Temporary:=True)
newmenu.Caption = "orientation/Plan de mission"
'...
Set mybar3 = CommandBars.Add("BUDGET")
With mybar3
.Visible = True
.Position = msoBarTop
.RowIndex = Application.CommandBars("ORIENTATION").RowIndex
.Left = Application.CommandBars("ORIENTATION").Width
End With
Set newmenu Application.CommandBars("BUDGET").Controls.Add(Type:=msoControlPopup,
Temporary:=True)
newmenu.Caption = "Budget"
'....
Set mybar4 = CommandBars.Add("FINMISSION")
With mybar4
.Visible = True
.Position = msoBarTop
.RowIndex = Application.CommandBars("BUDGET").RowIndex
.Left = Application.CommandBars("BUDGET").Width
End With
Set newmenu Application.CommandBars("FINMISSION").Controls.Add(Type:=msoControlPopup,
Temporary:=True)
newmenu.Caption = "Fin de Mission"
'....
Set mybar5 = CommandBars.Add("CYCLES")
With mybar5
.Visible = True
.Position = msoBarTop
.RowIndex = Application.CommandBars("FINMISSION").RowIndex
.Left = Application.CommandBars("FINMISSION").Width
End With
Set newmenu Application.CommandBars("CYCLES").Controls.Add(Type:=msoControlPopup,
Temporary:=True)
newmenu.Caption = " Contrôle des cycles "
'.....
Set mybar6 = CommandBars.Add("VERIF")
With mybar6
.Visible = True
.Position = msoBarTop
.RowIndex = Application.CommandBars("CYCLES").RowIndex
.Left = Application.CommandBars("CYCLES").Width
End With
Set newmenu Application.CommandBars("VERIF").Controls.Add(Type:=msoControlPopup,
Temporary:=True)
newmenu.Caption = "Vérifications Spécifiques"
'...
End Sub
Sub auto_close()
On Error Resume Next
CommandBars("barremacro").Delete
CommandBars("SYNTHESE").Delete
CommandBars("ORIENTATION").Delete
CommandBars("BUDGET").Delete
CommandBars("FINMISSION").Delete
CommandBars("CYCLES").Delete
CommandBars("VERIF").Delete
End Sub
------
Sunburn
Le #5091321
Bonjour,
je te renvoi mon code en entier. en effet, je n'arrive pas à l'appliquer de
la bonne manière je pense. j'ai bien repris ton code, mais ça bug un peu. A
l'ouverture, il me cré bien les barres. seulement, la barre synthèse affiche
2 fois le mot "synthèse", et le deuxième menu déroulant "synthèse" contient
tous les menus des différentes barres.Je ne comprend pas.
il doit pas manquer grand chose, si tu peux m'aider, ça serait cool. MERCI
------
Sub Auto_open()
Set vmabarre = CommandBars.Add(Name:="barremacro", Position:=msoBarTop,
Temporary:úlse)
With vmabarre
.Visible = True
.Controls.Add Type:=msoControlButton
.Controls.Add Type:=msoControlButton
x = x + .Width
End With
Set newbouton1 =
CommandBars("barremacro").Controls.Add(Type:=msoControlButton)
With newbouton1
.Caption = "Général"
.FaceId = 59 'image
.BeginGroup = True
.OnAction = "GENERAL"
.Style = msoButtonIconAndCaptionBelow
.TooltipText = "Général"
End With
'pour avoir un traite de séparation entre les boutons 1 et 2
BeginGroup = True
Set newbouton2 =
CommandBars("barremacro").Controls.Add(Type:=msoControlButton)
With newbouton2
.Caption = "Balance"
.FaceId = 19 'image
.BeginGroup = True
.OnAction = "BALANCE"
.Style = msoButtonIconAndCaptionBelow
.TooltipText = "Balance"
End With
Set newbouton3 =
CommandBars("barremacro").Controls.Add(Type:=msoControlButton)
With newbouton3
.Caption = "Liasse"
.FaceId = 2802 'image
.BeginGroup = True
.OnAction = "LIASSE"
.Style = msoButtonIconAndCaptionBelow
.TooltipText = "Liasse"
End With
Set newbouton4 =
CommandBars("barremacro").Controls.Add(Type:=msoControlButton)
With newbouton4
.Caption = "Autres"
.FaceId = 69 'image
.BeginGroup = True
.OnAction = "AUTRES"
.Style = msoButtonIconAndCaptionBelow
.TooltipText = "Autres"
End With
Set newbouton5 =
CommandBars("barremacro").Controls.Add(Type:=msoControlButton)
With newbouton5
.Caption = "Divers"
.FaceId = 23 'image
.BeginGroup = True
.OnAction = "DIVERS"
.Style = msoButtonIconAndCaptionBelow
.TooltipText = "Divers"
End With
Set newbouton6 =
CommandBars("barremacro").Controls.Add(Type:=msoControlButton)
With newbouton6
.Caption = "Courriers"
.FaceId = 3708 'image
.BeginGroup = True
.OnAction = "COURRIERS"
.Style = msoButtonIconAndCaptionBelow
.TooltipText = "Courriers"
End With

Set mybar1 = CommandBars.Add("SYNTHESE")
With mybar1
.Visible = True
.Position = msoBarTop
'Obtenir la ligne où tu veux situer ta barre d'outils
'ici, je prends pour acquis que je veux qu'elle soit
'sur la même ligne que la barre "Formatting"
.RowIndex = Application.CommandBars("barremacro").RowIndex
'Pour situer ma barre à l'extrémité de la barre "formatting"
.Left = x
With .Controls.Add(Type:=msoControlPopup, Temporary:=True)
.Caption = "Synthèse"
End With
x = x + .Width
End With
Set newmenu =
Application.CommandBars("SYNTHESE").Controls.Add(Type:=msoControlPopup,
Temporary:=True)
newmenu.Caption = "Synthèse"
Set menu10 = newmenu.CommandBar.Controls _
.Add(Type:=msoControlButton, ID:=1)
menu10.Caption = "Récapitulatif des notes de cycles"
menu10.FaceId = 2710
menu10.OnAction = "FEUIL1B"
Set menu11 = newmenu.CommandBar.Controls _
.Add(Type:=msoControlButton, ID:=1)
menu11.Caption = "Note de synthèse générale"
menu11.FaceId = 25
menu11.OnAction = "FEUIL1C"
Set menu12 = newmenu.CommandBar.Controls _
.Add(Type:=msoControlButton, ID:=1)
menu12.Caption = "Journal des ajustements"
menu12.FaceId = 3986
menu12.OnAction = "FEUIL1D"
Set menu13 = newmenu.CommandBar.Controls _
.Add(Type:=msoControlButton, ID:=1)
menu13.Caption = "Liste des points en suspens"
menu13.FaceId = 926
menu13.OnAction = "FEUIL1E"

Set mybar2 = CommandBars.Add("ORIENTATION")
With mybar2
.Visible = True
.Position = msoBarTop
.RowIndex = Application.CommandBars("SYNTHESE").RowIndex
.Left = x
With .Controls.Add(Type:=msoControlPopup, Temporary:=True)
.Caption = "Orientation"
End With
x = x + .Width
End With
'Set newmenu =
Application.CommandBars("ORIENTATION").Controls.Add(Type:=msoControlPopup,
Temporary:=True)
'newmenu.Caption = "Orientation"
Set menu20 = newmenu.CommandBar.Controls _
.Add(Type:=msoControlButton, ID:=1)
menu20.Caption = "Acceptation et maintien de la mission"
menu20.FaceId = 1715
menu20.OnAction = "FEUIL2A"
Set menu21 = newmenu.CommandBar.Controls _
.Add(Type:=msoControlButton, ID:=1)
menu21.Caption = "Evaluation des risques inhérents"
menu21.FaceId = 6023
menu21.OnAction = "FEUIL2C"
Set menu22 = newmenu.CommandBar.Controls _
.Add(Type:=msoControlButton, ID:=1)
menu22.Caption = "Evaluation des risques liés aux contrôles"
menu22.FaceId = 6024
menu22.OnAction = "FEUIL2D"
Set menu23 = newmenu.CommandBar.Controls _
.Add(Type:=msoControlButton, ID:=1)
menu23.Caption = "Evaluation annuelle du risque"
menu23.FaceId = 5891
menu23.OnAction = "FEUIL2E"
Set menu24 = newmenu.CommandBar.Controls _
.Add(Type:=msoControlButton, ID:=1)
menu24.Caption = "Synthèse des risques"
menu24.FaceId = 6068
menu24.OnAction = "FEUIL2F"
Set menu25 = newmenu.CommandBar.Controls _
.Add(Type:=msoControlButton, ID:=1)
menu25.Caption = "Séparation des fonctions"
menu25.FaceId = 43
menu25.OnAction = "FEUIL2G"
Set menu26 = newmenu.CommandBar.Controls _
.Add(Type:=msoControlButton, ID:=1)
menu26.Caption = "Ratios de l'année"
menu26.FaceId = 383
menu26.OnAction = "FEUIL2I"
Set menu27 = newmenu.CommandBar.Controls _
.Add(Type:=msoControlButton, ID:=1)
menu27.Caption = "Tableau de financement"
menu27.FaceId = 5882
menu27.OnAction = "FEUIL2J"
Set menu28 = newmenu.CommandBar.Controls _
.Add(Type:=msoControlButton, ID:=1)
menu28.Caption = "Notes de réunion diverses"
menu28.FaceId = 2007
menu28.OnAction = "FEUIL2K"
Set menu29 = newmenu.CommandBar.Controls _
.Add(Type:=msoControlButton, ID:=1)
menu29.Caption = "Notes d'orientation-Plan de mission"
menu29.FaceId = 565
menu29.OnAction = "FEUIL2L"
Set menu30 = newmenu.CommandBar.Controls _
.Add(Type:=msoControlButton, ID:=1)
menu30.Caption = "Suivi des points de N-1"
menu30.FaceId = 352
menu30.OnAction = "FEUIL2M"

Set mybar3 = CommandBars.Add("BUDGET")
With mybar3
.Visible = True
.Position = msoBarTop
.RowIndex = Application.CommandBars("ORIENTATION").RowIndex
.Left = x
With .Controls.Add(Type:=msoControlPopup, Temporary:=True)
.Caption = "Le Budget"
End With
x = x + .Width
End With
'Set newmenu =
Application.CommandBars("BUDGET").Controls.Add(Type:=msoControlPopup,
Temporary:=True)
' newmenu.Caption = "Budget"
Set menu31 = newmenu.CommandBar.Controls _
.Add(Type:=msoControlButton, ID:=1)
menu31.Caption = "Seuil de Signification"
menu31.FaceId = 5828
menu31.OnAction = "FEUIL3A"
Set menu32 = newmenu.CommandBar.Controls _
.Add(Type:=msoControlButton, ID:=1)
menu32.Caption = "Budgets"
menu32.FaceId = 5756
menu32.OnAction = "FEUIL3B"
Set menu33 = newmenu.CommandBar.Controls _
.Add(Type:=msoControlButton, ID:=1)
menu33.Caption = "Déclaration CRCC"
menu33.FaceId = 25
menu33.OnAction = "FEUIL3C"

Set mybar4 = CommandBars.Add("FIN_MISSION")
With mybar4
.Visible = True
.Position = msoBarTop
.RowIndex = Application.CommandBars("BUDGET").RowIndex
.Left = x
With .Controls.Add(Type:=msoControlPopup, Temporary:=True)
.Caption = "Fin de mission"
End With
x = x + .Width
End With
'Set newmenu =
Application.CommandBars("FIN_MISSION").Controls.Add(Type:=msoControlPopup,
Temporary:=True)
' newmenu.Caption = "Fin de Mission"
Set menu40 = newmenu.CommandBar.Controls _
.Add(Type:=msoControlButton, ID:=1)
menu40.Caption = "Respect des principes comptables"
menu40.FaceId = 941
menu40.OnAction = "FEUIL4A"
Set menu41 = newmenu.CommandBar.Controls _
.Add(Type:=msoControlButton, ID:=1)
menu41.Caption = "Sources du dossier"
menu41.FaceId = 983
menu41.OnAction = "FEUIL4B"
Set menu42 = newmenu.CommandBar.Controls _
.Add(Type:=msoControlButton, ID:=1)
menu42.Caption = "Planning Avancement"
menu42.FaceId = 740
menu42.OnAction = "FEUIL4C"
Set menu43 = newmenu.CommandBar.Controls _
.Add(Type:=msoControlButton, ID:=1)
menu43.Caption = "Question Fin de Mission"
menu43.FaceId = 767
menu43.OnAction = "FEUIL4D"
Set menu44 = newmenu.CommandBar.Controls _
.Add(Type:=msoControlButton, ID:=1)
menu44.Caption = "Révélation des faits délictueux"
menu44.FaceId = 2152
menu44.OnAction = "FEUIL4E"
Set menu45 = newmenu.CommandBar.Controls _
.Add(Type:=msoControlButton, ID:=1)
menu45.Caption = "Fraudes et erreurs"
menu45.FaceId = 330
menu45.OnAction = "FEUIL4F"
Set menu46 = newmenu.CommandBar.Controls _
.Add(Type:=msoControlButton, ID:=1)
menu46.Caption = "Notes pour l'exercice suivant"
menu46.FaceId = 351
menu46.OnAction = "FEUIL4H"

Set mybar5 = CommandBars.Add("CYCLES")
With mybar5
.Visible = True
.Position = msoBarTop
.RowIndex = Application.CommandBars("FIN_MISSION").RowIndex
.Left = x
With .Controls.Add(Type:=msoControlPopup, Temporary:=True)
.Caption = "Contrôle des cycles"
End With
x = x + .Width
End With
'Set newmenu =
Application.CommandBars("CYCLES").Controls.Add(Type:=msoControlPopup,
Temporary:=True)
' newmenu.Caption = " Contrôle des cycles "
Set menu50 = newmenu.CommandBar.Controls _
.Add(Type:=msoControlButton, ID:=1)
menu50.Caption = "Cycle 10"
menu50.FaceId = 71
menu50.OnAction = "CYCLE10"
Set menu51 = newmenu.CommandBar.Controls _
.Add(Type:=msoControlButton, ID:=1)
menu51.Caption = "Cycle 20"
menu51.FaceId = 72
menu51.OnAction = "CYCLE20"
Set menu52 = newmenu.CommandBar.Controls _
.Add(Type:=msoControlButton, ID:=1)
menu52.Caption = "Cycle 30"
menu52.FaceId = 73
menu52.OnAction = "CYCLE30"
Set menu53 = newmenu.CommandBar.Controls _
.Add(Type:=msoControlButton, ID:=1)
menu53.Caption = "Cycle 40"
menu53.FaceId = 74
menu53.OnAction = "CYCLE40"
Set menu54 = newmenu.CommandBar.Controls _
.Add(Type:=msoControlButton, ID:=1)
menu54.Caption = "Cycle 50"
menu54.FaceId = 75
menu54.OnAction = "CYCLE50"
Set menu55 = newmenu.CommandBar.Controls _
.Add(Type:=msoControlButton, ID:=1)
menu55.Caption = "Cycle 60"
menu55.FaceId = 76
menu55.OnAction = "CYCLE60"
Set menu56 = newmenu.CommandBar.Controls _
.Add(Type:=msoControlButton, ID:=1)
menu56.Caption = "Cycle 70"
menu56.FaceId = 77
menu56.OnAction = "CYCLE70"
Set menu57 = newmenu.CommandBar.Controls _
.Add(Type:=msoControlButton, ID:=1)
menu57.Caption = "Cycle 80"
menu57.FaceId = 78
menu57.OnAction = "CYCLE80"
Set menu58 = newmenu.CommandBar.Controls _
.Add(Type:=msoControlButton, ID:=1)
menu58.Caption = "Cycle 90"
menu58.FaceId = 79
menu58.OnAction = "CYCLE90"

Set mybar6 = CommandBars.Add("VERIF")
With mybar6
.Visible = True
.Position = msoBarTop
.RowIndex = Application.CommandBars("CYCLES").RowIndex
.Left = x
With .Controls.Add(Type:=msoControlPopup, Temporary:=True)
.Caption = "Vérif. Spécifiques"
End With
End With
'Set newmenu =
Application.CommandBars("VERIF").Controls.Add(Type:=msoControlPopup,
Temporary:=True)
'newmenu.Caption = "Vérifications Spécifiques"
Set menu60 = newmenu.CommandBar.Controls _
.Add(Type:=msoControlButton, ID:=1)
menu60.Caption = "Questionnaire des vérifications spécifiques"
menu60.FaceId = 6972
menu60.OnAction = "FEUILVS1"
Set menu61 = newmenu.CommandBar.Controls _
.Add(Type:=msoControlButton, ID:=1)
menu61.Caption = "Questionnaire détaillé du rapport de gestion"
menu61.FaceId = 4246
menu61.OnAction = "FEUILVS2"
Set menu62 = newmenu.CommandBar.Controls _
.Add(Type:=msoControlButton, ID:=1)
menu62.Caption = "Questionnaire de contrôle de l'annexe et hors bilan"
menu62.FaceId = 6973
menu62.OnAction = "FEUILVS3"
Set menu63 = newmenu.CommandBar.Controls _
.Add(Type:=msoControlButton, ID:=1)
menu63.Caption = "Questionnaire des évènements postérieurs à la
clôture"
menu63.FaceId = 6969
menu63.OnAction = "FEUILVS4"
End Sub
Sunburn
Le #5091161
Re,
si ma précédente demande est trop complexe, je me satisferais d'un menu
unique ne barre d'outils (nommé "Navigation" par exemple), avec mes 6
sous-menu, qui auront chacun leur attributs.
ça je n'arrive pas à trouver, car les seules choses que je trouve, c'est des
sous-menu, mais pas en barre d'outils.
Merci. YANN
MichDenis
Le #5091141
Les 2 procédures suivantes fonctionnent très bien.
Le positionnement de chacune des barres est suivant
l'ordre de la création de celles-ci comme tu le demandais

Je n'ai pas compris que tu aies des doublons.
Avant de lancer ces procédures, assure-toi qu'aucune
barre existe déjà sous un autre nom dans ton environnement windows.

Je veux bien t'aider.... mais pas faire à ta place l'effort de comprendre....!

'--------------------------------------------
Sub Auto_open()
On Error Resume Next

Set vmabarre = CommandBars.Add(Name:="barremacro", _
Position:=msoBarTop, Temporary:úlse)

With vmabarre
.Visible = True
.Controls.Add Type:=msoControlButton
.Controls.Add Type:=msoControlButton
x = x + .Width
End With

Set mybar1 = CommandBars.Add("SYNTHESE")

With mybar1
.Visible = True
.Position = msoBarTop
.RowIndex = Application.CommandBars("barremacro").RowIndex
.Left = x
With .Controls.Add(Type:=msoControlPopup, Temporary:=True)
.Caption = "Synthèse"
End With
x = x + .Width
End With

'...
Set mybar2 = CommandBars.Add("ORIENTATION")
With mybar2
.Visible = True
.Position = msoBarTop
.RowIndex = Application.CommandBars("SYNTHESE").RowIndex
.Left = x
With .Controls.Add(Type:=msoControlPopup, Temporary:=True)
.Caption = "orientation/Plan de mission"
End With
x = x + .Width
End With
'...

Set mybar3 = CommandBars.Add("BUDGET")
With mybar3
x = Application.CommandBars("ORIENTATION").Width
.Visible = True
.Position = msoBarTop
.RowIndex = Application.CommandBars("ORIENTATION").RowIndex
.Left = x
With .Controls.Add(Type:=msoControlPopup, Temporary:=True)
.Caption = "Budget"
End With
x = x + .Width
End With

'....

Set mybar4 = CommandBars.Add("FINMISSION")
With mybar4
.Visible = True
.Position = msoBarTop
.RowIndex = Application.CommandBars("BUDGET").RowIndex
.Left = x
With .Controls.Add(Type:=msoControlPopup, Temporary:=True)
.Caption = "Fin de Mission"
End With
x = x + .Width
End With

'....
Set mybar5 = CommandBars.Add("CYCLES")
With mybar5
.Visible = True
.Position = msoBarTop
.RowIndex = Application.CommandBars("FINMISSION").RowIndex
.Left = x
With .Controls.Add(Type:=msoControlPopup, Temporary:=True)
.Caption = " Contrôle des cycles "
End With
x = x + .Width
End With

'.....

Set mybar6 = CommandBars.Add("VERIF")
With mybar6
.Visible = True
.Position = msoBarTop
.RowIndex = Application.CommandBars("CYCLES").RowIndex
.Left = x
With .Controls.Add(Type:=msoControlPopup, Temporary:=True)
.Caption = "Vérifications Spécifiques"
End With
End With
'...
End Sub

'--------------------------------------------
Sub auto_close()
On Error Resume Next
CommandBars("barremacro").Delete
CommandBars("SYNTHESE").Delete
CommandBars("ORIENTATION").Delete
CommandBars("BUDGET").Delete
CommandBars("FINMISSION").Delete
CommandBars("CYCLES").Delete
CommandBars("VERIF").Delete
End Sub
'--------------------------------------------
Sunburn
Le #5091011
Je te remercie pour ton aide qui m'es précieuse, et pour l'effort de
comprendre, pas de soucis, je vais m'en occupé. Je vais y réfléchir plus
calmement.
Merci


Les 2 procédures suivantes fonctionnent très bien.
Le positionnement de chacune des barres est suivant
l'ordre de la création de celles-ci comme tu le demandais

Je n'ai pas compris que tu aies des doublons.
Avant de lancer ces procédures, assure-toi qu'aucune
barre existe déjà sous un autre nom dans ton environnement windows.

Je veux bien t'aider.... mais pas faire à ta place l'effort de comprendre....!


Publicité
Poster une réponse
Anonyme