Ajouter un bouton en VBA ?

[Eric D]

Bonjour à toutes et à tous,

j'essaye d'ajouter un Commandboutton en VBA, mais la création ne se fait pas.

Set Monbouton = Controls.Add('MSForms.CommandButton.1', 'bouton1', Visible)
Monbouton.Left = 37
Monbouton.Top = 25
Monbouton.Width = 175
Monbouton.Height = 20

Pourtant un indicateur m'indique que la procedure est active. Voyez vous quelque chose qui manquerais? merci pour votre aide
Eric D

 

[Papaye]

Bonjour Eric,

Lorsque j'enregistre une macro pour crée un bouton, voilà ce que cela me donne :

ActiveSheet.Buttons.Add(273, 42, 177.75, 75).Select
Selection.OnAction = 'toto' 'le nom de ma macro
'pour un bouton simple crée par formulaire
ActiveSheet.OLEObjects.Add(ClassType:='Forms.CommandButton.1', Link:=False _
, DisplayAsIcon:=False, Left:=489, Top:=164.25, Width:=111, Height:= _
42.75).Select

'Pour un bouton crée par outil boîte de contrôle


Papaye

 

[Flyonets]

Bonjour,
tu places ce code dans un module
Sub CréerBouton()
'Défini l'emplacement et la taille du bouton
ActiveSheet.Buttons.Add(60, 0, 60, 12.75).Select
Application.screenupdating=false
Selection.OnAction = 'AffecterMaMacro'
Selection.Characters.Text = 'Mon bouton'
With Selection.Characters(Start:=1, Length:=10).Font
.Name = 'Arial'
.FontStyle = 'Normal'
.Size = 10
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlNone
.ColorIndex = xlAutomatic
End With
Range('A1').Select
End Sub

 

[Eric D]

Bonjour Flyonets,

Merci pour ta solution, c Nickel. Cependant, j'aurai aimé mettre de la couleur mais sans succès (.Backcolor et .Forecolor). Comment dois je m'y prendre?
Merci pour ton complément d'information et bonne journée.
Eric D

 

[Pierrot93]

Bonjour à tous

en vba ca peut aussi donner ce

ActiveSheet.OLEObjects.Add ClassType:='Forms.CommandButton.1', _
Left:=40, Top:=40, Width:=100, Height:=40

bonne journée

@+