Discussion :

[kernkraft]

Bonsoir et meilleurs voeux.

J'ai un petit soucis, je n'arrive pas à trouver le paramètre pour changer le nom d'un bouton créé au démarrage par macro.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Sub Creation_bout_maj()
 
    ActiveWindow.SmallScroll Down:=-39
    ActiveSheet.OLEObjects.Add(ClassType:="Forms.CommandButton.1", Link:=False _
        , DisplayAsIcon:=False, Left:=723, Top:=22.5, Width:=140.25, Height:= _
        22.5).Select    
End Sub
 
Private Sub Workbook_Open()
 
Creation_bout_maj()
 
End Sub

Merci d'avance!

[Pierrot93]

Bonsoir,

essaye peut être ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Dim c As OLEObject
Set c = ActiveSheet.OLEObjects.Add(ClassType:="Forms.CommandButton.1", _
    Left:=723, Top:=22.5, Width:=140.25, Height:=22.5)
c.Object.Caption = "test"

Edition, si c'est vraimenet le nom de l'objet que tu veux modifier...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

c.Name = "test"

Bonne soirée
@+

[kernkraft]

Cela fonctionne parfaitement.

Merci beaucoup,

Kernkraft