Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel nom de bouton dans une barre d'outil.

nom de bouton dans une barre d'outil.

2 réponses
Avatar
tilivier
Bonjour,

Je crée une barre d'outil au démarrage et je voudrais faire apparaître sur
cette dernière le nom des boutons. Quelqu'un saurait-il comment on fait??
merci d'avance.


Sub newbar()
Application.CommandBars.Add(Name:="Avanchets", Position:=msoBarTop,
temporary:=True).Visible = True
On Error Resume Next

Set Menu =
Application.CommandBars("Avanchets").Controls.Add(Type:=msoControlButton,
before:=1)
With Menu
.Name = "Menu"
.TooltipText = "Revenir au menu de choix"
.FaceId = 837
.OnAction = "macro2"
.Visible = True
End With

Set enregistrer =
Application.CommandBars("Avanchets").Controls.Add(Type:=msoControlButton,
before:=1)
With enregistrer
.Name = "Enregistrer"
.TooltipText = "enregistrer"
.FaceId = 3
.OnAction = ""
.Visible = True
End With

Set dpers =
Application.CommandBars("Avanchets").Controls.Add(Type:=msoControlButton,
before:=1)
With dpers
.Name = "Données Personnelles"
.TooltipText = "aller aux données personnelles"
.FaceId = 59
.OnAction = "affiche_pers"
.Visible = True
End With

Set dimm =
Application.CommandBars("Avanchets").Controls.Add(Type:=msoControlButton,
before:=1)
With dimm
.Name = "Données Immeuble"
.TooltipText = "aller aux données immeubles"
.FaceId = 176
.OnAction = "affiche_immeuble"
.Visible = True
End With

Set recap =
Application.CommandBars("Avanchets").Controls.Add(Type:=msoControlButton,
before:=1)
With recap
.Name = "Récapitulatif"
.TooltipText = "aller au récapitulatif"
.FaceId = 97
.OnAction = "affiche_récpitulatif"
.Visible = True
End With

Set stat =
Application.CommandBars("Avanchets").Controls.Add(Type:=msoControlButton,
before:=1)
With stat
.Name = "Statistiques"
.TooltipText = "aller aux statistiques"
.FaceId = 17
.OnAction = "affiche_stat"
.Visible = True
End With

Set impres =
Application.CommandBars("Avanchets").Controls.Add(Type:=msoControlButton,
before:=1)
With impres
.Name = "Impression"
.TooltipText = "Formulaire d'impression"
.FaceId = 4
.OnAction = "affiche_impress"
.Visible = True
End With

Set partir =
Application.CommandBars("Avanchets").Controls.Add(Type:=msoControlButton,
before:=1)
With partir
.Name = "Quitter"
.TooltipText = "Quitter le classeur"
.FaceId = 840
.OnAction = "quitte"
.Visible = True
End With

Set plein =
Application.CommandBars("Avanchets").Controls.Add(Type:=msoControlButton,
before:=1)
With plein
.Name = "Plein écran"
.TooltipText = "activer/désactiver le plein écran"
.FaceId = 69
.OnAction = "plein_ecran"
.Visible = True
End With

End Sub
Signaler un problème avec ce contenu

2 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
MichDenis
Bonjour tilivier,

Affiche l'image et le nom du bouton

Le texte du bouton défini par la propriété : Caption
L'image du bouton : FaceId

et pour l'affichage, tu dois définir la propriété Style

dans cette ligne de code, si tu effaces le signe "égal" et que tu le retype après avoir inséré un espace de la barre d'espacement,
tu vas obtenir toutes les constantes disponibles concernant le type d'affichage possible pour ton bouton.

x = msoButtonIconAndCaption

'.--------------------------------
Sub newbar()

Dim Menu As CommandBarControl
Dim x As MsoButtonStyle

x = msoButtonIconAndCaption

Application.CommandBars.Add(Name:="Avanchets", Position:=msoBarTop, temporary:=True).Visible = True
On Error Resume Next

Set Menu = Application.CommandBars("Avanchets").Controls.Add(Type:=msoControlButton, before:=1)
With Menu
.Style = x
.Caption = " Mon GrosBouton"
.Name = "Menu"
.TooltipText = "Revenir au menu de choix"
.FaceId = 837
.OnAction = "macro2"
.Visible = True
End With

End Sub
'.--------------------------------


Salutations!


"tilivier" a écrit dans le message de news:

Bonjour,

Je crée une barre d'outil au démarrage et je voudrais faire apparaître sur
cette dernière le nom des boutons. Quelqu'un saurait-il comment on fait??
merci d'avance.


Sub newbar()
Application.CommandBars.Add(Name:="Avanchets", Position:=msoBarTop,
temporary:=True).Visible = True
On Error Resume Next

Set Menu Application.CommandBars("Avanchets").Controls.Add(Type:=msoControlButton,
before:=1)
With Menu
.Name = "Menu"
.TooltipText = "Revenir au menu de choix"
.FaceId = 837
.OnAction = "macro2"
.Visible = True
End With

Set enregistrer Application.CommandBars("Avanchets").Controls.Add(Type:=msoControlButton,
before:=1)
With enregistrer
.Name = "Enregistrer"
.TooltipText = "enregistrer"
.FaceId = 3
.OnAction = ""
.Visible = True
End With

Set dpers Application.CommandBars("Avanchets").Controls.Add(Type:=msoControlButton,
before:=1)
With dpers
.Name = "Données Personnelles"
.TooltipText = "aller aux données personnelles"
.FaceId = 59
.OnAction = "affiche_pers"
.Visible = True
End With

Set dimm Application.CommandBars("Avanchets").Controls.Add(Type:=msoControlButton,
before:=1)
With dimm
.Name = "Données Immeuble"
.TooltipText = "aller aux données immeubles"
.FaceId = 176
.OnAction = "affiche_immeuble"
.Visible = True
End With

Set recap Application.CommandBars("Avanchets").Controls.Add(Type:=msoControlButton,
before:=1)
With recap
.Name = "Récapitulatif"
.TooltipText = "aller au récapitulatif"
.FaceId = 97
.OnAction = "affiche_récpitulatif"
.Visible = True
End With

Set stat Application.CommandBars("Avanchets").Controls.Add(Type:=msoControlButton,
before:=1)
With stat
.Name = "Statistiques"
.TooltipText = "aller aux statistiques"
.FaceId = 17
.OnAction = "affiche_stat"
.Visible = True
End With

Set impres Application.CommandBars("Avanchets").Controls.Add(Type:=msoControlButton,
before:=1)
With impres
.Name = "Impression"
.TooltipText = "Formulaire d'impression"
.FaceId = 4
.OnAction = "affiche_impress"
.Visible = True
End With

Set partir Application.CommandBars("Avanchets").Controls.Add(Type:=msoControlButton,
before:=1)
With partir
.Name = "Quitter"
.TooltipText = "Quitter le classeur"
.FaceId = 840
.OnAction = "quitte"
.Visible = True
End With

Set plein Application.CommandBars("Avanchets").Controls.Add(Type:=msoControlButton,
before:=1)
With plein
.Name = "Plein écran"
.TooltipText = "activer/désactiver le plein écran"
.FaceId = 69
.OnAction = "plein_ecran"
.Visible = True
End With

End Sub
Avatar
tilivier
Merci beaucoup c'est tout à fait ça

Salutations.

Tilivier


Bonjour tilivier,

Affiche l'image et le nom du bouton

Le texte du bouton défini par la propriété : Caption
L'image du bouton : FaceId

et pour l'affichage, tu dois définir la propriété Style

dans cette ligne de code, si tu effaces le signe "égal" et que tu le retype après avoir inséré un espace de la barre d'espacement,
tu vas obtenir toutes les constantes disponibles concernant le type d'affichage possible pour ton bouton.

x = msoButtonIconAndCaption

'.--------------------------------
Sub newbar()

Dim Menu As CommandBarControl
Dim x As MsoButtonStyle

x = msoButtonIconAndCaption

Application.CommandBars.Add(Name:="Avanchets", Position:=msoBarTop, temporary:=True).Visible = True
On Error Resume Next

Set Menu = Application.CommandBars("Avanchets").Controls.Add(Type:=msoControlButton, before:=1)
With Menu
.Style = x
.Caption = " Mon GrosBouton"
.Name = "Menu"
.TooltipText = "Revenir au menu de choix"
.FaceId = 837
.OnAction = "macro2"
.Visible = True
End With

End Sub
'.--------------------------------


Salutations!


"tilivier" a écrit dans le message de news:

Bonjour,

Je crée une barre d'outil au démarrage et je voudrais faire apparaître sur
cette dernière le nom des boutons. Quelqu'un saurait-il comment on fait??
merci d'avance.


Sub newbar()
Application.CommandBars.Add(Name:="Avanchets", Position:=msoBarTop,
temporary:=True).Visible = True
On Error Resume Next

Set Menu > Application.CommandBars("Avanchets").Controls.Add(Type:=msoControlButton,
before:=1)
With Menu
..Name = "Menu"
..TooltipText = "Revenir au menu de choix"
..FaceId = 837
..OnAction = "macro2"
..Visible = True
End With

Set enregistrer > Application.CommandBars("Avanchets").Controls.Add(Type:=msoControlButton,
before:=1)
With enregistrer
..Name = "Enregistrer"
..TooltipText = "enregistrer"
..FaceId = 3
..OnAction = ""
..Visible = True
End With

Set dpers > Application.CommandBars("Avanchets").Controls.Add(Type:=msoControlButton,
before:=1)
With dpers
..Name = "Données Personnelles"
..TooltipText = "aller aux données personnelles"
..FaceId = 59
..OnAction = "affiche_pers"
..Visible = True
End With

Set dimm > Application.CommandBars("Avanchets").Controls.Add(Type:=msoControlButton,
before:=1)
With dimm
..Name = "Données Immeuble"
..TooltipText = "aller aux données immeubles"
..FaceId = 176
..OnAction = "affiche_immeuble"
..Visible = True
End With

Set recap > Application.CommandBars("Avanchets").Controls.Add(Type:=msoControlButton,
before:=1)
With recap
..Name = "Récapitulatif"
..TooltipText = "aller au récapitulatif"
..FaceId = 97
..OnAction = "affiche_récpitulatif"
..Visible = True
End With

Set stat > Application.CommandBars("Avanchets").Controls.Add(Type:=msoControlButton,
before:=1)
With stat
..Name = "Statistiques"
..TooltipText = "aller aux statistiques"
..FaceId = 17
..OnAction = "affiche_stat"
..Visible = True
End With

Set impres > Application.CommandBars("Avanchets").Controls.Add(Type:=msoControlButton,
before:=1)
With impres
..Name = "Impression"
..TooltipText = "Formulaire d'impression"
..FaceId = 4
..OnAction = "affiche_impress"
..Visible = True
End With

Set partir > Application.CommandBars("Avanchets").Controls.Add(Type:=msoControlButton,
before:=1)
With partir
..Name = "Quitter"
..TooltipText = "Quitter le classeur"
..FaceId = 840
..OnAction = "quitte"
..Visible = True
End With

Set plein > Application.CommandBars("Avanchets").Controls.Add(Type:=msoControlButton,
before:=1)
With plein
..Name = "Plein écran"
..TooltipText = "activer/désactiver le plein écran"
..FaceId = 69
..OnAction = "plein_ecran"
..Visible = True
End With

End Sub