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 d'un bouton dans une barre d'outil personnalisée.

Nom d'un bouton dans une barre d'outil personnalisée.

19 réponses
Avatar
sophie
Bonjour,=20

J'ai cr=E9=E9 une barre d'outil personnalis=E9e qui se cr=E9e =E0=20
l'ouverture du fichier excel et se d=E9truit =E0 la fermeture=20
du fichier.=20

Je voudrais mettre un nom =E0 c=F4t=E9 du bouton et non pas une=20
info bulle qui n'appara=EEt que quand la souris passe sur=20
le bouton. Je n'arrive vraiment pas =E0 trouver le mot cl=E9=20
=E0 mettre dans la macro.=20

Voil=E0 en gros ce que j'ai :=20

Set MyBO =3D CommandBars("Toto").Controls.Add
With MyBO
.Caption =3D "Essai"
.FaceId =3D 39
.OnAction =3D "Essai"
End With

Le mot Essai est dans l'info bulle (puisque j'ai=20
utilis=E9 .Caption), mais comment faire pour que ce mot=20
soit affich=E9 en permanence =E0 c=F4t=E9 du bouton ?

Merci pour votre aide - Sophie
Signaler un problème avec ce contenu

10 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
1 2
Avatar
sabatier
je crains fort, sophie, que, pour obtenir ce que tu souhaites, il ne te
faille passer par une Userform avec des Commandbuttons qque tu pourras
titrer à ta guise...commme c'est FxM mon maître à panser (les broutards
du père brossollette), je ne suis pas très fort pour les Userforms mais
je crois savoir qu'ils de chargent dans ton classeur, un peu comme ta BO
personnalisée...
jps

sophie a écrit:
Bonjour,

J'ai créé une barre d'outil personnalisée qui se crée à
l'ouverture du fichier excel et se détruit à la fermeture
du fichier.

Je voudrais mettre un nom à côté du bouton et non pas une
info bulle qui n'apparaît que quand la souris passe sur
le bouton. Je n'arrive vraiment pas à trouver le mot clé
à mettre dans la macro.

Voilà en gros ce que j'ai :

Set MyBO = CommandBars("Toto").Controls.Add
With MyBO
.Caption = "Essai"
.FaceId = 39
.OnAction = "Essai"
End With

Le mot Essai est dans l'info bulle (puisque j'ai
utilisé .Caption), mais comment faire pour que ce mot
soit affiché en permanence à côté du bouton ?

Merci pour votre aide - Sophie


Avatar
michdenis
Bonsoir Sophie,

Si tu prends l'habitude de déclarer tes variables, tu pourras vois s'afficher la liste déroulante après la saisie du "."

Dim MyBO As CommandBarControl
Set MyBO = CommandBars("Toto").Controls.Add
With MyBO
.Caption = "Essai"
.FaceId = 39
.OnAction = "Essai"
.TooltipText = "Ok"
End With


Salutations!



"sophie" a écrit dans le message de news:f94e01c3f27e$ddc98b00$
Bonjour,

J'ai créé une barre d'outil personnalisée qui se crée à
l'ouverture du fichier excel et se détruit à la fermeture
du fichier.

Je voudrais mettre un nom à côté du bouton et non pas une
info bulle qui n'apparaît que quand la souris passe sur
le bouton. Je n'arrive vraiment pas à trouver le mot clé
à mettre dans la macro.

Voilà en gros ce que j'ai :

Set MyBO = CommandBars("Toto").Controls.Add
With MyBO
.Caption = "Essai"
.FaceId = 39
.OnAction = "Essai"
End With

Le mot Essai est dans l'info bulle (puisque j'ai
utilisé .Caption), mais comment faire pour que ce mot
soit affiché en permanence à côté du bouton ?

Merci pour votre aide - Sophie
Avatar
sabatier
tiens, tiens, michis...mon autre maître FS m'aurait-il enduit avec de
l'erreur en me disant que TooltipText correspondait à l'info-bulle?
sophie semble vouloir chaudement souhaiter avoir un nom figé à côté du
bouton...
aurais-je parlé trop vite en disant que ce n'était pas possible?
jps

michdenis a écrit:
Bonsoir Sophie,

Si tu prends l'habitude de déclarer tes variables, tu pourras vois s'afficher la liste déroulante après la saisie du "."

Dim MyBO As CommandBarControl
Set MyBO = CommandBars("Toto").Controls.Add
With MyBO
.Caption = "Essai"
.FaceId = 39
.OnAction = "Essai"
.TooltipText = "Ok"
End With


Salutations!



"sophie" a écrit dans le message de news:f94e01c3f27e$ddc98b00$
Bonjour,

J'ai créé une barre d'outil personnalisée qui se crée à
l'ouverture du fichier excel et se détruit à la fermeture
du fichier.

Je voudrais mettre un nom à côté du bouton et non pas une
info bulle qui n'apparaît que quand la souris passe sur
le bouton. Je n'arrive vraiment pas à trouver le mot clé
à mettre dans la macro.

Voilà en gros ce que j'ai :

Set MyBO = CommandBars("Toto").Controls.Add
With MyBO
.Caption = "Essai"
.FaceId = 39
.OnAction = "Essai"
End With

Le mot Essai est dans l'info bulle (puisque j'ai
utilisé .Caption), mais comment faire pour que ce mot
soit affiché en permanence à côté du bouton ?

Merci pour votre aide - Sophie




Avatar
Denis Michon
Correction :

Dim LeStyle As MsoButtonStyle
LeStyle = msoButtonIconAndCaption

Dim MyBO As CommandBarControl
Set MyBO = CommandBars(1).Controls.Add
With MyBO
.Style = LeStyle
.Caption = "Essai"
.FaceId = 39
.OnAction = "Essai"
.TooltipText = "Ok"
End With


Salutations!



"michdenis" a écrit dans le message de news:%
Bonsoir Sophie,

Si tu prends l'habitude de déclarer tes variables, tu pourras vois s'afficher la liste déroulante après la saisie du "."

Dim MyBO As CommandBarControl
Set MyBO = CommandBars("Toto").Controls.Add
With MyBO
.Caption = "Essai"
.FaceId = 39
.OnAction = "Essai"
.TooltipText = "Ok"
End With


Salutations!



"sophie" a écrit dans le message de news:f94e01c3f27e$ddc98b00$
Bonjour,

J'ai créé une barre d'outil personnalisée qui se crée à
l'ouverture du fichier excel et se détruit à la fermeture
du fichier.

Je voudrais mettre un nom à côté du bouton et non pas une
info bulle qui n'apparaît que quand la souris passe sur
le bouton. Je n'arrive vraiment pas à trouver le mot clé
à mettre dans la macro.

Voilà en gros ce que j'ai :

Set MyBO = CommandBars("Toto").Controls.Add
With MyBO
.Caption = "Essai"
.FaceId = 39
.OnAction = "Essai"
End With

Le mot Essai est dans l'info bulle (puisque j'ai
utilisé .Caption), mais comment faire pour que ce mot
soit affiché en permanence à côté du bouton ?

Merci pour votre aide - Sophie
Avatar
Denis Michon
Bonsoir JPS,

Tu as raison ! Je ne lis pas nécessairement toute la question ... ça m'a arrive !

;-))


Salutations!


"sabatier" a écrit dans le message de news:
tiens, tiens, michis...mon autre maître FS m'aurait-il enduit avec de
l'erreur en me disant que TooltipText correspondait à l'info-bulle?
sophie semble vouloir chaudement souhaiter avoir un nom figé à côté du
bouton...
aurais-je parlé trop vite en disant que ce n'était pas possible?
jps

michdenis a écrit:
Bonsoir Sophie,

Si tu prends l'habitude de déclarer tes variables, tu pourras vois s'afficher la liste déroulante après la saisie du "."

Dim MyBO As CommandBarControl
Set MyBO = CommandBars("Toto").Controls.Add
With MyBO
.Caption = "Essai"
.FaceId = 39
.OnAction = "Essai"
.TooltipText = "Ok"
End With


Salutations!



"sophie" a écrit dans le message de news:f94e01c3f27e$ddc98b00$
Bonjour,

J'ai créé une barre d'outil personnalisée qui se crée à
l'ouverture du fichier excel et se détruit à la fermeture
du fichier.

Je voudrais mettre un nom à côté du bouton et non pas une
info bulle qui n'apparaît que quand la souris passe sur
le bouton. Je n'arrive vraiment pas à trouver le mot clé
à mettre dans la macro.

Voilà en gros ce que j'ai :

Set MyBO = CommandBars("Toto").Controls.Add
With MyBO
.Caption = "Essai"
.FaceId = 39
.OnAction = "Essai"
End With

Le mot Essai est dans l'info bulle (puisque j'ai
utilisé .Caption), mais comment faire pour que ce mot
soit affiché en permanence à côté du bouton ?

Merci pour votre aide - Sophie




Avatar
DJ9B
Bonjour Denis !
Il me semble que :
Dim MyBO As CommandBarControl
Set MyBO = CommandBars(1).Controls.Add
With MyBO
.Style = msoButtonIconAndCaption
.Caption = "Essai"
.FaceId = 39
.OnAction = "Essai"
.TooltipText = "Ok"
End With
fonctionne sans utiliser :
Dim LeStyle As MsoButtonStyle
LeStyle = msoButtonIconAndCaption
puis
.Style = LeStyle
ou me je trompe ?

--
@ tantôt !
DJ9B
email : http://www.cerbermail.com/?avOmkXbR4h
Site : http://www.dj9b.fr.st


"Denis Michon" <denis a écrit dans le message de
news:2hdXb.41373$
Correction :

Dim LeStyle As MsoButtonStyle
LeStyle = msoButtonIconAndCaption

Dim MyBO As CommandBarControl
Set MyBO = CommandBars(1).Controls.Add
With MyBO
.Style = LeStyle
.Caption = "Essai"
.FaceId = 39
.OnAction = "Essai"
.TooltipText = "Ok"
End With


Salutations!



"michdenis" a écrit dans le message de
news:%

Bonsoir Sophie,

Si tu prends l'habitude de déclarer tes variables, tu pourras vois
s'afficher la liste déroulante après la saisie du "."


Dim MyBO As CommandBarControl
Set MyBO = CommandBars("Toto").Controls.Add
With MyBO
.Caption = "Essai"
.FaceId = 39
.OnAction = "Essai"
.TooltipText = "Ok"
End With


Salutations!



"sophie" a écrit dans le message de
news:f94e01c3f27e$ddc98b00$

Bonjour,

J'ai créé une barre d'outil personnalisée qui se crée à
l'ouverture du fichier excel et se détruit à la fermeture
du fichier.

Je voudrais mettre un nom à côté du bouton et non pas une
info bulle qui n'apparaît que quand la souris passe sur
le bouton. Je n'arrive vraiment pas à trouver le mot clé
à mettre dans la macro.

Voilà en gros ce que j'ai :

Set MyBO = CommandBars("Toto").Controls.Add
With MyBO
.Caption = "Essai"
.FaceId = 39
.OnAction = "Essai"
End With

Le mot Essai est dans l'info bulle (puisque j'ai
utilisé .Caption), mais comment faire pour que ce mot
soit affiché en permanence à côté du bouton ?

Merci pour votre aide - Sophie





Avatar
michdenis
Bonsoir DJ9B,

Tu as raison. Mais ce n'est pas une raison pour ne pas vouloir utiliser les constantes.

Quand tu déclares ceci :

Dim LeStyle As MsoButtonStyle

Dès que tu vas inscrire le signe égal dans la ligne de code suivante ( LeStyle = msoButtonIconAndCaption ), Excel va te
proposer une liste déroulante de toutes les options disponibles. Comme je n'ai pas une bonne mémoire pour retenir toutes ces
constantes, je me sers des outils qu'excel met à ma disposition.


Salutations!







"DJ9B" <*%enleve_moi_ça%* a écrit dans le message de news:uk%23Q%
Bonjour Denis !
Il me semble que :
Dim MyBO As CommandBarControl
Set MyBO = CommandBars(1).Controls.Add
With MyBO
.Style = msoButtonIconAndCaption
.Caption = "Essai"
.FaceId = 39
.OnAction = "Essai"
.TooltipText = "Ok"
End With
fonctionne sans utiliser :
Dim LeStyle As MsoButtonStyle
LeStyle = msoButtonIconAndCaption
puis
.Style = LeStyle
ou me je trompe ?

--
@ tantôt !
DJ9B
email : http://www.cerbermail.com/?avOmkXbR4h
Site : http://www.dj9b.fr.st


"Denis Michon" <denis a écrit dans le message de
news:2hdXb.41373$
Correction :

Dim LeStyle As MsoButtonStyle
LeStyle = msoButtonIconAndCaption

Dim MyBO As CommandBarControl
Set MyBO = CommandBars(1).Controls.Add
With MyBO
.Style = LeStyle
.Caption = "Essai"
.FaceId = 39
.OnAction = "Essai"
.TooltipText = "Ok"
End With


Salutations!



"michdenis" a écrit dans le message de
news:%

Bonsoir Sophie,

Si tu prends l'habitude de déclarer tes variables, tu pourras vois
s'afficher la liste déroulante après la saisie du "."


Dim MyBO As CommandBarControl
Set MyBO = CommandBars("Toto").Controls.Add
With MyBO
.Caption = "Essai"
.FaceId = 39
.OnAction = "Essai"
.TooltipText = "Ok"
End With


Salutations!



"sophie" a écrit dans le message de
news:f94e01c3f27e$ddc98b00$

Bonjour,

J'ai créé une barre d'outil personnalisée qui se crée à
l'ouverture du fichier excel et se détruit à la fermeture
du fichier.

Je voudrais mettre un nom à côté du bouton et non pas une
info bulle qui n'apparaît que quand la souris passe sur
le bouton. Je n'arrive vraiment pas à trouver le mot clé
à mettre dans la macro.

Voilà en gros ce que j'ai :

Set MyBO = CommandBars("Toto").Controls.Add
With MyBO
.Caption = "Essai"
.FaceId = 39
.OnAction = "Essai"
End With

Le mot Essai est dans l'info bulle (puisque j'ai
utilisé .Caption), mais comment faire pour que ce mot
soit affiché en permanence à côté du bouton ?

Merci pour votre aide - Sophie





Avatar
sabatier
et toc : un uppercut quuébécois sous le menton lillois...
jps

michdenis a écrit:
Bonsoir DJ9B,

Tu as raison. Mais ce n'est pas une raison pour ne pas vouloir utiliser les constantes.

Quand tu déclares ceci :

Dim LeStyle As MsoButtonStyle

Dès que tu vas inscrire le signe égal dans la ligne de code suivante ( LeStyle = msoButtonIconAndCaption ), Excel va te
proposer une liste déroulante de toutes les options disponibles. Comme je n'ai pas une bonne mémoire pour retenir toutes ces
constantes, je me sers des outils qu'excel met à ma disposition.


Salutations!







"DJ9B" <*%enleve_moi_ça%* a écrit dans le message de news:uk%23Q%
Bonjour Denis !
Il me semble que :
Dim MyBO As CommandBarControl
Set MyBO = CommandBars(1).Controls.Add
With MyBO
.Style = msoButtonIconAndCaption
.Caption = "Essai"
.FaceId = 39
.OnAction = "Essai"
.TooltipText = "Ok"
End With
fonctionne sans utiliser :
Dim LeStyle As MsoButtonStyle
LeStyle = msoButtonIconAndCaption
puis
.Style = LeStyle
ou me je trompe ?



Avatar
sophie
Bonjour,

Je viens d'essayer. Le code ne plante pas, mais je n'ai
pas ce que je veux ...

Je continue de chercher en m'aidant des différentes
réponses obtenues.

Bonne journée - Sophie

-----Message d'origine-----
Bonsoir Sophie,

Si tu prends l'habitude de déclarer tes variables, tu
pourras vois s'afficher la liste déroulante après la

saisie du "."

Dim MyBO As CommandBarControl
Set MyBO = CommandBars("Toto").Controls.Add
With MyBO
.Caption = "Essai"
.FaceId = 39
.OnAction = "Essai"
.TooltipText = "Ok"
End With


Salutations!



"sophie" a écrit
dans le message de news:f94e01c3f27e$ddc98b00

$
Bonjour,

J'ai créé une barre d'outil personnalisée qui se crée à
l'ouverture du fichier excel et se détruit à la fermeture
du fichier.

Je voudrais mettre un nom à côté du bouton et non pas une
info bulle qui n'apparaît que quand la souris passe sur
le bouton. Je n'arrive vraiment pas à trouver le mot clé
à mettre dans la macro.

Voilà en gros ce que j'ai :

Set MyBO = CommandBars("Toto").Controls.Add
With MyBO
.Caption = "Essai"
.FaceId = 39
.OnAction = "Essai"
End With

Le mot Essai est dans l'info bulle (puisque j'ai
utilisé .Caption), mais comment faire pour que ce mot
soit affiché en permanence à côté du bouton ?

Merci pour votre aide - Sophie


.



Avatar
DJ9B
Je te remercie Denis pour cette astuce.

--
@ tantôt !
DJ9B
email : http://www.cerbermail.com/?avOmkXbR4h
Site : http://www.dj9b.fr.st


"michdenis" a écrit dans le message de
news:
Bonsoir DJ9B,

Tu as raison. Mais ce n'est pas une raison pour ne pas vouloir utiliser
les constantes.


Quand tu déclares ceci :

Dim LeStyle As MsoButtonStyle

Dès que tu vas inscrire le signe égal dans la ligne de code suivante (
LeStyle = msoButtonIconAndCaption ), Excel va te

proposer une liste déroulante de toutes les options disponibles. Comme je
n'ai pas une bonne mémoire pour retenir toutes ces

constantes, je me sers des outils qu'excel met à ma disposition.


Salutations!







"DJ9B" <*%enleve_moi_ça%* a écrit dans le message de
news:uk%23Q%

Bonjour Denis !
Il me semble que :
Dim MyBO As CommandBarControl
Set MyBO = CommandBars(1).Controls.Add
With MyBO
.Style = msoButtonIconAndCaption
.Caption = "Essai"
.FaceId = 39
.OnAction = "Essai"
.TooltipText = "Ok"
End With
fonctionne sans utiliser :
Dim LeStyle As MsoButtonStyle
LeStyle = msoButtonIconAndCaption
puis
.Style = LeStyle
ou me je trompe ?

--
@ tantôt !
DJ9B
email : http://www.cerbermail.com/?avOmkXbR4h
Site : http://www.dj9b.fr.st


"Denis Michon" <denis a écrit dans le message de
news:2hdXb.41373$
Correction :

Dim LeStyle As MsoButtonStyle
LeStyle = msoButtonIconAndCaption

Dim MyBO As CommandBarControl
Set MyBO = CommandBars(1).Controls.Add
With MyBO
.Style = LeStyle
.Caption = "Essai"
.FaceId = 39
.OnAction = "Essai"
.TooltipText = "Ok"
End With


Salutations!



"michdenis" a écrit dans le message de
news:%

Bonsoir Sophie,

Si tu prends l'habitude de déclarer tes variables, tu pourras vois
s'afficher la liste déroulante après la saisie du "."


Dim MyBO As CommandBarControl
Set MyBO = CommandBars("Toto").Controls.Add
With MyBO
.Caption = "Essai"
.FaceId = 39
.OnAction = "Essai"
.TooltipText = "Ok"
End With


Salutations!



"sophie" a écrit dans le message
de


news:f94e01c3f27e$ddc98b00$
Bonjour,

J'ai créé une barre d'outil personnalisée qui se crée à
l'ouverture du fichier excel et se détruit à la fermeture
du fichier.

Je voudrais mettre un nom à côté du bouton et non pas une
info bulle qui n'apparaît que quand la souris passe sur
le bouton. Je n'arrive vraiment pas à trouver le mot clé
à mettre dans la macro.

Voilà en gros ce que j'ai :

Set MyBO = CommandBars("Toto").Controls.Add
With MyBO
.Caption = "Essai"
.FaceId = 39
.OnAction = "Essai"
End With

Le mot Essai est dans l'info bulle (puisque j'ai
utilisé .Caption), mais comment faire pour que ce mot
soit affiché en permanence à côté du bouton ?

Merci pour votre aide - Sophie










1 2