Barre d'outils personnalisée

[Cousinhub]

Bonsoir,
pour une fois, je pose une question......😀
J'ai un petit souci, j'ai développé un fichier pour mes collègues de boulot, mais je voudrais maintenant y insérer une barre d'outils personnalisée afin de remplacer les boutons de commande placés dans la 1ère ligne.
Je recherche donc un code fiable pour créer cette barre d'outils, j'ai fait de multiples essais, mais à un moment ou à un autre, ça buggue....😡
Sur cette barre, uniquement six appels de procédures.
J'ai fait pas mal de recherche dans le site, mais tous les essais....😎
Si vous avez un code fiable, je suis preneur.

PS : jeanpierre, mon fichier même zippé fait plus de 48 Ko.....😀

 

[Brigitte]

Re : Barre d'outils personnalisée

Bonsoir,

Si t'es supporter, tu peux poster un fichier de 250 Ko, ca le fait pas ?

Sinon tu as vu que nous t'avons fêté dans le salon, comme il se doit ?

Bises

 

[Cousinhub]

Re : Barre d'outils personnalisée

Bonsoir brigitte,
Oui, merci pour ton post dans le salon
le fichier de 48 Ko était juste un clin d'oeuil vers jeanpierre, mon fichier n'apportant rien dans la demande....😉
Bonne soirée

 

[JCGL]

Re : Barre d'outils personnalisée

Bonsoir à tous,
Salut BH*2,
Salut T'ites Couettes,

Un fichier de John Walkenbach...

A+

 

[Cousinhub]

Re : Barre d'outils personnalisée

Bonsoir JC,
Merci pour le fichier
En ce moment, je travaille sur un fichier que brigitte (merci à elle, et rebonsoir...😉) sur ce fil
Un exemple de Ti
Je donne des nouvelles

 

[Cousinhub]

Re : Barre d'outils personnalisée

Je donne des nouvelles

Re-,
effectivement, le lien était bon, après un peu de travail, on fait ce qu'on veut...😛
Cependant, un petit plus....
A la création, le barre se met en haut (après modif) :

  Set LBar = CommandBars.Add(Name:=BarrePerso, _
      Position:=[COLOR="Red"]msoBarTop[/COLOR], temporary:=True)

Comment centrer la barre en haut? (c'est juste pour le fun...😉)