Menu

est-ce que tu lis les réponses qui te sont faites?
à ce sujet, JB t'a dit que pour faire apparaître Icône et Texte il faut
écrire :

bouton.Style = msoButtonIconAndCaption

et ne change pas le titre de la ficelle, steplé
jps

"Sunburn" <Sunburn@discussions.microsoft.com> a écrit dans le message de
news: 53507724-CB2A-4DC1-ADD6-27537D0675A3@microsoft.com...

J'ai créer mon Menu, mais les icones ne s'affichent pas ?
Est-ce possible de mettre le texte en Gras ?
De plus, je voudrais savoir où je dois placer la macro de l'emplacement.
-----
With Application.CommandBars("toto")
.Position = msoBarTop
.Visible = True
End With
End Sub
------
Merci Yann

Dim barre As CommandBar
Dim bouton As CommandBarControl
Set barre = CommandBars.Add(Name:="BarreMacro")
barre.Visible = True

Set bouton > CommandBars("BarreMacro").Controls.Add(Type:=msoControlButton)
bouton.Style = msoButtonCaption
bouton.OnAction = "Connexion"
bouton.Caption = "CONNEXION"

Set bouton > CommandBars("BarreMacro").Controls.Add(Type:=msoControlButton)
bouton.Style = msoButtonCaption
bouton.FaceId = 3
bouton.OnAction = "MacroVerou"
bouton.Caption = "Vérouiller la feuille du mois"

Set bouton > CommandBars("BarreMacro").Controls.Add(Type:=msoControlButton)
bouton.Style = msoButtonCaption
bouton.FaceId = 1087
bouton.OnAction = "DeverouilleAdm"
bouton.Caption = "Dévérouiller la feuille du mois"

Set bouton > CommandBars("BarreMacro").Controls.Add(Type:=msoControlButton)
bouton.Style = msoButtonCaption
bouton.FaceId = 264
bouton.OnAction = "ValidCP"
bouton.Caption = "Vérouiller la feuille CP"

Set bouton > CommandBars("BarreMacro").Controls.Add(Type:=msoControlButton)
bouton.Style = msoButtonCaption
bouton.FaceId = 1016
bouton.OnAction = "DeverouilleCP"
bouton.Caption = "Dévérouiller la feuille CP"

Set bouton > CommandBars("BarreMacro").Controls.Add(Type:=msoControlButton)
bouton.Style = msoButtonCaption
bouton.OnAction = "Connexion"
bouton.Caption = "CONNEXION"

End Sub

..de rien!

"Sunburn" <Sunburn@discussions.microsoft.com> a écrit dans le message de
news: 53507724-CB2A-4DC1-ADD6-27537D0675A3@microsoft.com...

J'ai créer mon Menu, mais les icones ne s'affichent pas ?
Est-ce possible de mettre le texte en Gras ?
De plus, je voudrais savoir où je dois placer la macro de l'emplacement.
-----
With Application.CommandBars("toto")
.Position = msoBarTop
.Visible = True
End With
End Sub
------
Merci Yann

Dim barre As CommandBar
Dim bouton As CommandBarControl
Set barre = CommandBars.Add(Name:="BarreMacro")
barre.Visible = True

Set bouton > CommandBars("BarreMacro").Controls.Add(Type:=msoControlButton)
bouton.Style = msoButtonCaption
bouton.OnAction = "Connexion"
bouton.Caption = "CONNEXION"

Set bouton > CommandBars("BarreMacro").Controls.Add(Type:=msoControlButton)
bouton.Style = msoButtonCaption
bouton.FaceId = 3
bouton.OnAction = "MacroVerou"
bouton.Caption = "Vérouiller la feuille du mois"

Set bouton > CommandBars("BarreMacro").Controls.Add(Type:=msoControlButton)
bouton.Style = msoButtonCaption
bouton.FaceId = 1087
bouton.OnAction = "DeverouilleAdm"
bouton.Caption = "Dévérouiller la feuille du mois"

Set bouton > CommandBars("BarreMacro").Controls.Add(Type:=msoControlButton)
bouton.Style = msoButtonCaption
bouton.FaceId = 264
bouton.OnAction = "ValidCP"
bouton.Caption = "Vérouiller la feuille CP"

Set bouton > CommandBars("BarreMacro").Controls.Add(Type:=msoControlButton)
bouton.Style = msoButtonCaption
bouton.FaceId = 1016
bouton.OnAction = "DeverouilleCP"
bouton.Caption = "Dévérouiller la feuille CP"

Set bouton > CommandBars("BarreMacro").Controls.Add(Type:=msoControlButton)
bouton.Style = msoButtonCaption
bouton.OnAction = "Connexion"
bouton.Caption = "CONNEXION"

End Sub

bonjour sunburn
tu peux placer la position de ta barre dans la ligne qui la construit ; je
ne pense pas que tu puisses mettre le texte des boutons en gras
pense aussi à créer une ligne annulant ta barre d'outils car sans cela tu ne
pourras la monter qu'une fois
voici ce que ta proc pourrait être où tu verras que j'ai mis en commentaire
les lignes bouton .style et bouton.caption pour les remplacer par
bouton.tooltiptext qui fera que le "caption" de tes boutons apparaîtra dans
une bulle en passant la souris sur l'icône
j'en ai profité pour corriger les fautes d'orthographe, pensant que ce
serait plus sympa pour le "user" (pauvre user) final...
à noter que tu as deux fois le bouton Connexion, lequel est sans FaceId
voili voilou
jps

Dim barre As CommandBar
Dim bouton As CommandBarControl
On Error Resume Next
Application.CommandBars("BarreMacro").Delete

Set barre = CommandBars.Add("BarreMacro", msoBarFloating)
barre.Visible = True

Set bouton =
CommandBars("BarreMacro").Controls.Add(Type:=msoControlButton)
bouton.Style = msoButtonCaption
bouton.OnAction = "Connexion"
bouton.Caption = "CONNEXION"

Set bouton = CommandBars("BarreMacro").Controls.Add(msoControlButton)
'bouton.Style = msoButtonIconAndCaption
bouton.TooltipText = "verrouiller la feuille du mois"
bouton.FaceId = 3
bouton.OnAction = "MacroVerou"
'bouton.Caption = "Vérouiller la feuille du mois"

Set bouton =
CommandBars("BarreMacro").Controls.Add(Type:=msoControlButton)
'bouton.Style = msoButtonIconAndCaption
bouton.TooltipText = "déverrouiller la feuille du mois"
bouton.FaceId = 1087
bouton.OnAction = "DeverouilleAdm"
'bouton.Caption = "Dévérouiller la feuille du mois"

Set bouton =
CommandBars("BarreMacro").Controls.Add(Type:=msoControlButton)
'bouton.Style = msoButtonIconAndCaption
bouton.TooltipText = "verrouiller la feuille CP"
bouton.FaceId = 264
bouton.OnAction = "ValidCP"
'bouton.Caption = "Vérouiller la feuille CP"

Set bouton =
CommandBars("BarreMacro").Controls.Add(Type:=msoControlButton)
'bouton.Style = msoButtonIconAndCaption
bouton.TooltipText = "déverrouiller la feuille CP"
bouton.FaceId = 1016
bouton.OnAction = "DeverouilleCP"
'bouton.Caption = "Dévérouiller la feuille CP"

Set bouton =
CommandBars("BarreMacro").Controls.Add(Type:=msoControlButton)
bouton.Style = msoButtonCaption
bouton.OnAction = "Connexion"
bouton.Caption = "CONNEXION"


"Sunburn" <Sunburn@discussions.microsoft.com> a écrit dans le message de
news: 53507724-CB2A-4DC1-ADD6-27537D0675A3@microsoft.com...

J'ai créer mon Menu, mais les icones ne s'affichent pas ?
Est-ce possible de mettre le texte en Gras ?
De plus, je voudrais savoir où je dois placer la macro de l'emplacement.
-----
With Application.CommandBars("toto")
.Position = msoBarTop
.Visible = True
End With
End Sub
------
Merci Yann

Dim barre As CommandBar
Dim bouton As CommandBarControl
Set barre = CommandBars.Add(Name:="BarreMacro")
barre.Visible = True

Set bouton > CommandBars("BarreMacro").Controls.Add(Type:=msoControlButton)
bouton.Style = msoButtonCaption
bouton.OnAction = "Connexion"
bouton.Caption = "CONNEXION"

Set bouton > CommandBars("BarreMacro").Controls.Add(Type:=msoControlButton)
bouton.Style = msoButtonCaption
bouton.FaceId = 3
bouton.OnAction = "MacroVerou"
bouton.Caption = "Vérouiller la feuille du mois"

Set bouton > CommandBars("BarreMacro").Controls.Add(Type:=msoControlButton)
bouton.Style = msoButtonCaption
bouton.FaceId = 1087
bouton.OnAction = "DeverouilleAdm"
bouton.Caption = "Dévérouiller la feuille du mois"

Set bouton > CommandBars("BarreMacro").Controls.Add(Type:=msoControlButton)
bouton.Style = msoButtonCaption
bouton.FaceId = 264
bouton.OnAction = "ValidCP"
bouton.Caption = "Vérouiller la feuille CP"

Set bouton > CommandBars("BarreMacro").Controls.Add(Type:=msoControlButton)
bouton.Style = msoButtonCaption
bouton.FaceId = 1016
bouton.OnAction = "DeverouilleCP"
bouton.Caption = "Dévérouiller la feuille CP"

Set bouton > CommandBars("BarreMacro").Controls.Add(Type:=msoControlButton)
bouton.Style = msoButtonCaption
bouton.OnAction = "Connexion"
bouton.Caption = "CONNEXION"

End Sub

Bonjour,

Mettre le texte en gras pour les boutons est tout à fait possible (dans
windows),
l'ennui c'est que cela affectera tous les boutons de tous les menus de
toutes les applications.

lSteph

"Sunburn" <Sunburn@discussions.microsoft.com> a écrit dans le message de
news: 53507724-CB2A-4DC1-ADD6-27537D0675A3@microsoft.com...

J'ai créer mon Menu, mais les icones ne s'affichent pas ?
Est-ce possible de mettre le texte en Gras ?
De plus, je voudrais savoir où je dois placer la macro de l'emplacement.
-----
With Application.CommandBars("toto")
.Position = msoBarTop
.Visible = True
End With
End Sub
------
Merci Yann

Dim barre As CommandBar
Dim bouton As CommandBarControl
Set barre = CommandBars.Add(Name:="BarreMacro")
barre.Visible = True

Set bouton > CommandBars("BarreMacro").Controls.Add(Type:=msoControlButton)
bouton.Style = msoButtonCaption
bouton.OnAction = "Connexion"
bouton.Caption = "CONNEXION"

Set bouton > CommandBars("BarreMacro").Controls.Add(Type:=msoControlButton)
bouton.Style = msoButtonCaption
bouton.FaceId = 3
bouton.OnAction = "MacroVerou"
bouton.Caption = "Vérouiller la feuille du mois"

Set bouton > CommandBars("BarreMacro").Controls.Add(Type:=msoControlButton)
bouton.Style = msoButtonCaption
bouton.FaceId = 1087
bouton.OnAction = "DeverouilleAdm"
bouton.Caption = "Dévérouiller la feuille du mois"

Set bouton > CommandBars("BarreMacro").Controls.Add(Type:=msoControlButton)
bouton.Style = msoButtonCaption
bouton.FaceId = 264
bouton.OnAction = "ValidCP"
bouton.Caption = "Vérouiller la feuille CP"

Set bouton > CommandBars("BarreMacro").Controls.Add(Type:=msoControlButton)
bouton.Style = msoButtonCaption
bouton.FaceId = 1016
bouton.OnAction = "DeverouilleCP"
bouton.Caption = "Dévérouiller la feuille CP"

Set bouton > CommandBars("BarreMacro").Controls.Add(Type:=msoControlButton)
bouton.Style = msoButtonCaption
bouton.OnAction = "Connexion"
bouton.Caption = "CONNEXION"

End Sub

Bonjour
Pour enrichir (si c'est possible, ce qui m'étonnerait quand même) ce que
te dit jps, le grand Sage des Monts du Beaujolais, il ne serait pas
raisonnable d'avoir des boutons en gras, car cela serait salissant et
ferait mauvaise impression, quelle que soit l'imprimante.

On trouve là, la délicate influence féminine de Mélinda sur Bill qui,
lui, se serait sûrement laissé aller.

Bon je retourne dans mon jardin...
@+
J@@

je ne pense pas que tu puisses mettre le texte des boutons en gras

Ok,
merci pour toutes ces réponse, donc pas de texte en gras, c pas grave, je
vais m'en passer, avec des beaux petits icones, ça ira.

merci à tous.
Yann

Bonjour,

Mettre le texte en gras pour les boutons est tout à fait possible (dans
windows),
l'ennui c'est que cela affectera tous les boutons de tous les menus de
toutes les applications.

lSteph

"Sunburn" <Sunburn@discussions.microsoft.com> a écrit dans le message de
news: 53507724-CB2A-4DC1-ADD6-27537D0675A3@microsoft.com...

J'ai créer mon Menu, mais les icones ne s'affichent pas ?
Est-ce possible de mettre le texte en Gras ?
De plus, je voudrais savoir où je dois placer la macro de l'emplacement.
-----
With Application.CommandBars("toto")
.Position = msoBarTop
.Visible = True
End With
End Sub
------
Merci Yann

Dim barre As CommandBar
Dim bouton As CommandBarControl
Set barre = CommandBars.Add(Name:="BarreMacro")
barre.Visible = True

Set bouton > > CommandBars("BarreMacro").Controls.Add(Type:=msoControlButton)
bouton.Style = msoButtonCaption
bouton.OnAction = "Connexion"
bouton.Caption = "CONNEXION"

Set bouton > > CommandBars("BarreMacro").Controls.Add(Type:=msoControlButton)
bouton.Style = msoButtonCaption
bouton.FaceId = 3
bouton.OnAction = "MacroVerou"
bouton.Caption = "Vérouiller la feuille du mois"

Set bouton > > CommandBars("BarreMacro").Controls.Add(Type:=msoControlButton)
bouton.Style = msoButtonCaption
bouton.FaceId = 1087
bouton.OnAction = "DeverouilleAdm"
bouton.Caption = "Dévérouiller la feuille du mois"

Set bouton > > CommandBars("BarreMacro").Controls.Add(Type:=msoControlButton)
bouton.Style = msoButtonCaption
bouton.FaceId = 264
bouton.OnAction = "ValidCP"
bouton.Caption = "Vérouiller la feuille CP"

Set bouton > > CommandBars("BarreMacro").Controls.Add(Type:=msoControlButton)
bouton.Style = msoButtonCaption
bouton.FaceId = 1016
bouton.OnAction = "DeverouilleCP"
bouton.Caption = "Dévérouiller la feuille CP"

Set bouton > > CommandBars("BarreMacro").Controls.Add(Type:=msoControlButton)
bouton.Style = msoButtonCaption
bouton.OnAction = "Connexion"
bouton.Caption = "CONNEXION"

End Sub

au fait, yann, ton week end s'est bien passé pendant qu'on bossait pour toi?
jps

"Sunburn" <Sunburn@discussions.microsoft.com> a écrit dans le message de
news: C8219AB1-8A81-4D7B-8B12-A5AC73E2B9EE@microsoft.com...

Ok,
merci pour toutes ces réponse, donc pas de texte en gras, c pas grave, je
vais m'en passer, avec des beaux petits icones, ça ira.

merci à tous.
Yann

Bonjour,

Mettre le texte en gras pour les boutons est tout à fait possible (dans
windows),
l'ennui c'est que cela affectera tous les boutons de tous les menus de
toutes les applications.

lSteph

"Sunburn" <Sunburn@discussions.microsoft.com> a écrit dans le message de
news: 53507724-CB2A-4DC1-ADD6-27537D0675A3@microsoft.com...

J'ai créer mon Menu, mais les icones ne s'affichent pas ?
Est-ce possible de mettre le texte en Gras ?
De plus, je voudrais savoir où je dois placer la macro de
l'emplacement.
-----
With Application.CommandBars("toto")
.Position = msoBarTop
.Visible = True
End With
End Sub
------
Merci Yann

Dim barre As CommandBar
Dim bouton As CommandBarControl
Set barre = CommandBars.Add(Name:="BarreMacro")
barre.Visible = True

Set bouton >> > CommandBars("BarreMacro").Controls.Add(Type:=msoControlButton)
bouton.Style = msoButtonCaption
bouton.OnAction = "Connexion"
bouton.Caption = "CONNEXION"

Set bouton >> > CommandBars("BarreMacro").Controls.Add(Type:=msoControlButton)
bouton.Style = msoButtonCaption
bouton.FaceId = 3
bouton.OnAction = "MacroVerou"
bouton.Caption = "Vérouiller la feuille du mois"

Set bouton >> > CommandBars("BarreMacro").Controls.Add(Type:=msoControlButton)
bouton.Style = msoButtonCaption
bouton.FaceId = 1087
bouton.OnAction = "DeverouilleAdm"
bouton.Caption = "Dévérouiller la feuille du mois"

Set bouton >> > CommandBars("BarreMacro").Controls.Add(Type:=msoControlButton)
bouton.Style = msoButtonCaption
bouton.FaceId = 264
bouton.OnAction = "ValidCP"
bouton.Caption = "Vérouiller la feuille CP"

Set bouton >> > CommandBars("BarreMacro").Controls.Add(Type:=msoControlButton)
bouton.Style = msoButtonCaption
bouton.FaceId = 1016
bouton.OnAction = "DeverouilleCP"
bouton.Caption = "Dévérouiller la feuille CP"

Set bouton >> > CommandBars("BarreMacro").Controls.Add(Type:=msoControlButton)
bouton.Style = msoButtonCaption
bouton.OnAction = "Connexion"
bouton.Caption = "CONNEXION"

End Sub