Ajouter un bouton en VBA ?

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

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

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

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

@+