Créer un Bouton perso et rappel du faceID

[Guigui]

Hello tous le monde.

Dans un fichier, à l'ouverture, je cache tous les choix du clic droit

Application.CommandBars('Cell').Controls('Couper').Visible = False
Application.CommandBars('Cell').Controls('Coller').Visible = False
Application.CommandBars('Cell').Controls('Copier').Visible = False

...
et les remplacent par des macros perso

With Application.CommandBars('Cell').Controls.Add(msoControlButton)
.Caption = 'REPOS'
.BeginGroup = False
.FaceId = 0
.OnAction = 'REPOS'
End With
With Application.CommandBars('Cell').Controls.Add(msoControlButton)
.Caption = 'CP'
.BeginGroup = False
.FaceId = 0
.OnAction = 'CP'
End With

...
Je souhaiterais mettre un bouton devant les noms, mais un bouton perso, pas un existant dans la liste de FaceID...
Est-il possible d'en créer un (par exemple un carré rouge) de l'enregistrer dans le fichier et de pouvoir le rapeller à l'ouverture du fichier par un numero de faceID ?

Merci d'avance pour votre aide.
A+
Guillaume

 

[jp14]

Bonjour

Des solutions à cette adresse

Ce lien n'existe plus

JP

 

[Temjeh]

Bonjour

Aussi un excellent site pour faire des boutons

http://www.flamingtext.com/net-fu/forms/alien-glow-anim-logo.html

Temjeh

 

[Guigui]

hello à tous,

Un grand merci à vous deux, j'ai réussi à faire ce que je voulais

Merci encore
A+
Guillaume