Renommer un bouton

[maval]

Bonjour,

J'ai code pour ajouter un bouton qui fonctionne très bien et j'aimerais le renommer "Test"

Mon code

ActiveSheet.Buttons.Add(127, 42, 90, 20).Select
Selection.OnAction="Test"

Je vous remercie d'avance

 

[Pierrot93]

Re : Renommer un bouton

Bonjour,

essaye ceci :

Option Explicit
Sub tes()
Dim s As Object
Set s = ActiveSheet.Buttons.Add(127, 42, 90, 20)
With s
    .OnAction = "Test"
    .Name = "test"
End With
End Sub

bonne journée
@+

 

[maval]

Re : Renommer un bouton

Re,

J'ai trouver.....

Selection.Characters.Text = "Test"

Merci

 

[Pierrot93]

Re : Renommer un bouton

Re,

si tu parlais de la propriété "caption" et non de la propriété "name" :

Option Explicit
Sub tes()
Dim s As Object
Set s = ActiveSheet.Buttons.Add(127, 42, 90, 20)
With s
    .OnAction = "Test"
    .Name = "test"
    .Caption = "test"
End With
End Sub

 

[maval]

Re : Renommer un bouton

Bonjour Pierrot

Je te remercie ton code est peut être mieux que le mien

Bonne journée