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

9 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
DJ9B
Salut JPS !
De mieux en mieux !
Comme je n'ai pas une bonne mémoire
On en a un qui a la mémoire qui flanche

et toc : un uppercut quuébécois
et un autre dont l'index tremble ;o)))

A hospice les vieux, on vous attend pour la farandole ( celle qui fait 12
mètres de long et qui sent l'urine ) ;o)))

Low kick, low kick, direct, high kick, KO !!!
--
@ tantôt !
DJ9B
email : http://www.cerbermail.com/?avOmkXbR4h
Site : http://www.dj9b.fr.st


"sabatier" a écrit dans le message de
news:
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
Hello,

La solution ci-dessous marche à merveille.

Merci beaucoup !

Sophie


-----Message d'origine-----
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
c'est bien ce qu'il me semblait....poor sophie
jps

sophie a écrit:
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
sabatier
:-))))))
le plus fort, c'est que denis avait la bonne réponse avec son
LeStyle...il doit être un peu comme Aldo Macione, notre québécois (sans
l'index qui tremble), qui disait toujours "la classe? non, lé style"
jps

DJ9B a écrit:
Salut JPS !
De mieux en mieux !

Comme je n'ai pas une bonne mémoire


On en a un qui a la mémoire qui flanche

et toc : un uppercut quuébécois


et un autre dont l'index tremble ;o)))
A hospice les vieux, on vous attend pour la farandole ( celle qui fait 12
mètres de long et qui sent l'urine ) ;o)))

Low kick, low kick, direct, high kick, KO !!!



Avatar
popi
Salut sabatier,
...il doit être un peu comme Aldo Macione,...
Maccione me susurre-t-on à l'oreille... ;-)



--
@+ popi

Avatar
sabatier
ah! je suis bien content alors...c'est vrai que j'avais perdu de vue le
"Texte et Image du bouton" proposé pour les icônes...ça se comprend car
si je devais mettre en plus de l'image, le texte de mes boutons, je
devrais faire un scroll d'une page avant d'atteindre les premières
lignes du classeur...
jps

Sophie a écrit:
Hello,

La solution ci-dessous marche à merveille.

Merci beaucoup !

Sophie



-----Message d'origine-----
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
DJ9B
Comme je suis en plein dans la création de barre ( pour une xla que je viens
de faire ) et que j'utilise du texte avec les boutons, ça intéressait de
savoir pourquoi Denis utilisait cette technique alors qu'on peut y arriver
directement.
Maintenant je sais et j'utiliserai sa technique non pas par manque de
mémoire ( je suis encore jeune, moi ) mais par manque de connaissance ( car
je suis loin d'en connaître autant que lui ) ;o))) !

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


"sabatier" a écrit dans le message de
news:
:-))))))
le plus fort, c'est que denis avait la bonne réponse avec son
LeStyle...il doit être un peu comme Aldo Macione, notre québécois (sans
l'index qui tremble), qui disait toujours "la classe? non, lé style"
jps

DJ9B a écrit:
Salut JPS !
De mieux en mieux !

Comme je n'ai pas une bonne mémoire


On en a un qui a la mémoire qui flanche

et toc : un uppercut quuébécois


et un autre dont l'index tremble ;o)))
A hospice les vieux, on vous attend pour la farandole ( celle qui fait
12


mètres de long et qui sent l'urine ) ;o)))

Low kick, low kick, direct, high kick, KO !!!






Avatar
sabatier
oui oui, popi, deux "c" comme dans pomme de terre...
jps

popi a écrit:
Salut sabatier,

...il doit être un peu comme Aldo Macione,...


Maccione me susurre-t-on à l'oreille... ;-)





Avatar
sabatier
dont acte!
jps

DJ9B a écrit:
Comme je suis en plein dans la création de barre ( pour une xla que je viens
de faire ) et que j'utilise du texte avec les boutons, ça intéressait de
savoir pourquoi Denis utilisait cette technique alors qu'on peut y arriver
directement.
Maintenant je sais et j'utiliserai sa technique non pas par manque de
mémoire ( je suis encore jeune, moi ) mais par manque de connaissance ( car
je suis loin d'en connaître autant que lui ) ;o))) !



1 2