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 [VBA] changement faceid d'un bouton

[VBA] changement faceid d'un bouton

22 réponses
Avatar
Microsoft VBA Excel
Bonjour,

je souhaite modifier le faceid d'un bouton d'une barre d'outils fraîchement
créée.

Qu'est-ce qui ne va pas dans mon code ?
CommandBars("nombarreoutils").nombouton.FaceId = 343

Merci d'avance !
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 3
Avatar
Modeste
Bonsour® Microsoft VBA Excel avec ferveur ;o))) vous nous disiez :

mais il me semble qu'il n'y a pas de changement de faceid, mais que le
faceid est déterminé dès la création du bouton. Comment, après coup,
modifier le faceID d'un bouton "toto" ?


en effet l'image est associée lors de la création...

Rien ne t'empeches ensuite de supprimmer le bouton,
puis aussitot de le recreer en changeant l'image ;o)))
la difference en terme de temps d'éxécution est imperceptible...

plus de procs Barres d'outils là :
http://frederic.sigonneau.free.fr/BO.htm

--
@+
;o)))

Avatar
jps
bonjour mon ange
tu es dans le quartier?
bisous
jps

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

bonjour,

comme jps l'a dit :

CommandBars("nombarreoutils").Controls("nombouton").FaceID = 343

isabelle

Toutes ces histoires d'apéro me donnent envie d'un bon cocktail bien
frais au bord d'une plage...

MAIS MON PROBLEME DE BARRE D'OUTILS N'EST PAS REGLE...

Quelqu'un a-t-il une idée ?

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

Bonsour® jps avec ferveur ;o))) vous nous disiez :


bon je fonce à l'apéro donc pas trop le temps!!! !!!


'tain t'es vachement en retard, d'hab tu commences à 11:30
;o)))

--
--
@+
;o)))











Avatar
isabelle
oui, mais pas trop loin de l'apéro, car il fait 32 c en ce moment ;-)
bisou
isabelle

bonjour mon ange
tu es dans le quartier?
bisous
jps

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


bonjour,

comme jps l'a dit :

CommandBars("nombarreoutils").Controls("nombouton").FaceID = 343

isabelle


Toutes ces histoires d'apéro me donnent envie d'un bon cocktail bien
frais au bord d'une plage...

MAIS MON PROBLEME DE BARRE D'OUTILS N'EST PAS REGLE...

Quelqu'un a-t-il une idée ?

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

Bonsour® jps avec ferveur ;o))) vous nous disiez :


bon je fonce à l'apéro donc pas trop le temps!!! !!!



'tain t'es vachement en retard, d'hab tu commences à 11:30
;o)))

--
--
@+
;o)))













Avatar
isabelle
même si tu mets public les variables, si le classeur est fermer entre temps les variables seront = à vide.
ça serait peut être mieux de mettre cette information en dur sur une feuille cachée.
tout dépend de quel facon et à quel moment chaque macro est exécuté.

isabelle


Mais Isabelle, si je travaille sur une barre d'outils créée dans un autre
module, est-ce que je dois rendre publiques mes variables de boutons ?
"isabelle" a écrit dans le message de news:


bonjour,

comme jps l'a dit :

CommandBars("nombarreoutils").Controls("nombouton").FaceID = 343

isabelle


Toutes ces histoires d'apéro me donnent envie d'un bon cocktail bien
frais au bord d'une plage...

MAIS MON PROBLEME DE BARRE D'OUTILS N'EST PAS REGLE...

Quelqu'un a-t-il une idée ?

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


Bonsour® jps avec ferveur ;o))) vous nous disiez :



bon je fonce à l'apéro donc pas trop le temps!!! !!!


'tain t'es vachement en retard, d'hab tu commences à 11:30
;o)))

--
--
@+
;o)))














Avatar
jps
ben ici, c'est exactement la même chose mais... en fahrenheit, isabelle ;
même sarkozy est dépassé dans cette affaire...
jps


"isabelle" a écrit dans le message de news:
uIT1%
oui, mais pas trop loin de l'apéro, car il fait 32 c en ce moment ;-)
bisou
isabelle

bonjour mon ange
tu es dans le quartier?
bisous
jps

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


bonjour,

comme jps l'a dit :

CommandBars("nombarreoutils").Controls("nombouton").FaceID = 343

isabelle


Toutes ces histoires d'apéro me donnent envie d'un bon cocktail bien
frais au bord d'une plage...

MAIS MON PROBLEME DE BARRE D'OUTILS N'EST PAS REGLE...

Quelqu'un a-t-il une idée ?

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

Bonsour® jps avec ferveur ;o))) vous nous disiez :


bon je fonce à l'apéro donc pas trop le temps!!! !!!



'tain t'es vachement en retard, d'hab tu commences à 11:30
;o)))

--
--
@+
;o)))















Avatar
J
Salutatousse
32, c'est pas du get27, c'est pas du porto, c'est pas du vin (blanc,
rose ou rouge) c'est pas du 51, un punch un peu amélioré? une eau de
coco au whisky, au pastis ???
Manquent des informations, si on suit ce forum ce n'est pas pour rien,
m'enfin ;-)
amicalement
J@@ (une fillette* à la main, c'est l'heure par ici)

* lecteur mal intentionné, cette fillette se siffle, rien de racaille là
dessous! ;-)


ben ici, c'est exactement la même chose mais... en fahrenheit, isabelle ;
même sarkozy est dépassé dans cette affaire...
jps


"isabelle"
oui, mais pas trop loin de l'apéro, car il fait 32 c en ce moment ;-)
bisou
isabelle





Avatar
jps
tes fillettes, J@@, c'est un peu comme mes canons : quand j'étais petit, je
les chantais, maintenant, je les siffle
jps

"J@@" a écrit dans le message de news:
%
J@@ (une fillette* à la main, c'est l'heure par ici)

* lecteur mal intentionné, cette fillette se siffle, rien de racaille là
dessous! ;-)


Avatar
Microsoft VBA Excel
Ok Isabelle, je vais tester la solution de mettre en dur les infos sur une
feuille cachée (ça tombe bien, je dois avoir une feuille config qui traine
quelque part...). Merci à toi.


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

même si tu mets public les variables, si le classeur est fermer entre
temps les variables seront = à vide.
ça serait peut être mieux de mettre cette information en dur sur une
feuille cachée.
tout dépend de quel facon et à quel moment chaque macro est exécuté.

isabelle


Mais Isabelle, si je travaille sur une barre d'outils créée dans un autre
module, est-ce que je dois rendre publiques mes variables de boutons ?
"isabelle" a écrit dans le message de news:


bonjour,

comme jps l'a dit :

CommandBars("nombarreoutils").Controls("nombouton").FaceID = 343

isabelle


Toutes ces histoires d'apéro me donnent envie d'un bon cocktail bien
frais au bord d'une plage...

MAIS MON PROBLEME DE BARRE D'OUTILS N'EST PAS REGLE...

Quelqu'un a-t-il une idée ?

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


Bonsour® jps avec ferveur ;o))) vous nous disiez :



bon je fonce à l'apéro donc pas trop le temps!!! !!!


'tain t'es vachement en retard, d'hab tu commences à 11:30
;o)))

--
--
@+
;o)))
















Avatar
Microsoft VBA Excel
JPA, J@@ et Isabelle : d'où écrivez-vous vos messages ? Les 32°
m'inspirent... Ici à Paris, ce matin, c'était 6°, et cet après-midi il est
annoncé 14 tout petits degrés... mais comment pouvons-nous encore rester à
Paris...


"J@@" a écrit dans le message de news:
%

Salutatousse
32, c'est pas du get27, c'est pas du porto, c'est pas du vin (blanc, rose
ou rouge) c'est pas du 51, un punch un peu amélioré? une eau de coco au
whisky, au pastis ???
Manquent des informations, si on suit ce forum ce n'est pas pour rien,
m'enfin ;-)
amicalement
J@@ (une fillette* à la main, c'est l'heure par ici)

* lecteur mal intentionné, cette fillette se siffle, rien de racaille là
dessous! ;-)


ben ici, c'est exactement la même chose mais... en fahrenheit, isabelle ;
même sarkozy est dépassé dans cette affaire...
jps


"isabelle"
oui, mais pas trop loin de l'apéro, car il fait 32 c en ce moment ;-)
bisou
isabelle







Avatar
Microsoft VBA Excel
Je vais tenter d'être plus précis : Dans le module 1 voici mon code :


Set vmabarre = CommandBars.Add(Name:="toto", Position:=msoBarTop,
temporary:úlse)
vmabarre.Visible = True

'puis on y insère les boutons :
'bouton 1
Set newbouton1 =
CommandBars("toto").Controls.Add(Type:=msoControlButton)
With newbouton1
.Caption = "macro 1"
.FaceId = 342 'image
.BeginGroup = True
.OnAction = "'monfichier.xls'!macro1.macro1"
.Style = msoButtonIconAndCaptionBelow
.TooltipText = "import"
End With

'pour avoir un traite de séparation entre les boutons 1 et 2
BeginGroup = True

'bouton 2
Set newbouton2 =
CommandBars("toto").Controls.Add(Type:=msoControlButton)
With newbouton2
.Caption = "macro 2"
.FaceId = 342 'image
.BeginGroup = True
.OnAction = "'aa outils de ventilation.xls'!macro2.macro2"
.Style = msoButtonIconAndCaptionBelow
.TooltipText = "calculs"
End With


Donc lors de la création, mes deux boutons ont le faceID = 342.


A la fin de mon module 2, après que plein de choses se soient passées dans
le fichier Excel, (il est toujorus ouvert, il n'a pas été fermé et la barre
d'outils est toujours affichée), je souhaite modifier le FaeceID du bouton
2.

Voici mon code (enfin ce que j'essaye de développer...) :

Set MonBtn2 = CommandBars.FindControl(ID:= _
CommandBars("toto").Controls("macro 2").ID)
MonBtn2.FaceId = 343

Malheureusement, ce code ne détecte pas le bouton et modifie le faceID du
premier bouton qu'il trouve dans la barre toto, c'est à dire le premier. Et
je ne sais pas bien comment lui indiquer de modifier le bouton 2...

voilà, j'espère avoir été plus clair, désolé si mes premiers messages ne
l'ont pas été et merci d'avance aux âmes charitables qui m'aideront...





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

même si tu mets public les variables, si le classeur est fermer entre
temps les variables seront = à vide.
ça serait peut être mieux de mettre cette information en dur sur une
feuille cachée.
tout dépend de quel facon et à quel moment chaque macro est exécuté.

isabelle


Mais Isabelle, si je travaille sur une barre d'outils créée dans un autre
module, est-ce que je dois rendre publiques mes variables de boutons ?
"isabelle" a écrit dans le message de news:


bonjour,

comme jps l'a dit :

CommandBars("nombarreoutils").Controls("nombouton").FaceID = 343

isabelle


Toutes ces histoires d'apéro me donnent envie d'un bon cocktail bien
frais au bord d'une plage...

MAIS MON PROBLEME DE BARRE D'OUTILS N'EST PAS REGLE...

Quelqu'un a-t-il une idée ?

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


Bonsour® jps avec ferveur ;o))) vous nous disiez :



bon je fonce à l'apéro donc pas trop le temps!!! !!!


'tain t'es vachement en retard, d'hab tu commences à 11:30
;o)))

--
--
@+
;o)))
















1 2 3