Renomer un bouton apres sa creation par une macro

[Céline67]

Bonjour à tous,

J'ai fait une recherche dans le forum sur ce pb mais j'ai pas réussi à mettre une solution en pratique dans ma macro alors je repose le pb:

Voila, j'ai crée un bouton comme ca:
ActiveSheet.OLEObjects.Add(ClassType:="Forms.CommandButton.1", Link:=False _
, DisplayAsIcon:=False, Left:=680, Top:=148.5, Width:=72, Height:=24) _
.Select

Je souhaiterai qu'il s'appelle "Copier" à la place de CommandButton1
J'ai essayé ca mais ca n'a pas marché ... le debugger a hurlé!

CommandButton1.Caption = "Cop 1" et aussi CommandButton1.Name = "Copier 2"

Comment faire????
Merci d'avance!

 

[RICO1972]

Re : Renomer un bouton apres sa creation par une macro

Salut Céline67,
essaye ce code :

ActiveSheet.Shapes("CommandButton1").Select
Selection.Name = "copier"

@+
RICO

 

[Céline67]

Re : Renomer un bouton apres sa creation par une macro

bin ca marche pas ... mon bouton a toujours le nom de "CommandButton1"

 

[ziopizza]

Re : Renomer un bouton apres sa creation par une macro

Bonjour Céline67,rico1972,

Avec ce code.

Private Sub CommandButton1_Click()
Dim NouveauBouton As OLEObject
' Ajoute un bouton de Commande
Set NouveauBouton = ActiveSheet.OLEObjects.Add _
("Forms.CommandButton.1")
With NouveauBouton
.Left = 4
.Top = 4
.Width = 100
.Height = 30
.Object.Caption = "Copie"
End With
End Sub

Salut Yves

 

[Céline67]

Re : Renomer un bouton apres sa creation par une macro

Magnifique!
Merci Yves