BO perso

[Tial]

Bonjour à toutes et tous.

J'ai une BO personnaliseé. Dans cette dernière, comment puis je ajouter
un bouton qui actionnerait ma macro "toto".

Par avance merci


Sub CreateBO()
'Création de la barre d'outils "Forme Libre"
With Application
.ScreenUpdating = False
.CommandBars.Add(Name:="Forme libre").Visible = True
.CommandBars("Forme libre").Controls.Add Type:=msoControlButton, Id:=21, Before:=1
.CommandBars("Forme libre").Controls.Add Type:=msoControlButton, Id:=22, Before:=2
.CommandBars("Forme libre").Controls.Add Type:=msoControlButton, Id:=206, Before:=1
.CommandBars("Forme libre").Controls.Add Type:=msoControlButton, Id:=200, Before:=1
End With
ActiveSheet.Shapes.AddShape(msoShapeRectangle, 1, 1, 1, 1). _
Select
With Selection.ShapeRange
.Fill.Visible = msoFalse
.Line.Weight = 0.5
.Line.ForeColor.SchemeColor = 48
.SetShapesDefaultProperties
End With
Selection.Delete
End Sub

 

[Roland]

salut tial

Affichage barreoutils Boite à outilscontroles
Prendre " bouton de commande " dans la liste
le dessiner sur la feuille
Clic droit sur le bouton Visualiser le code
Bye

 

[le CH'TI160]

Salut Tial
re le FORUM

je pense (si j'ai bien compris la question)qu'il te suffit dans le menu personnalisation de faire Macro de prendre le bouton de le glisser dans ta barre puis clic droit sur le bouton affecter une macro et selectionner toto
A+++
Jean Marie

 

[Tial]

Merci à vous, je vais tester

 

[Dan]

Bonsoir Trial,

Voici un fichier qui peut surement t'intéresser.

Si pb n'hésite pas

@+

Dan