Discussion :

[Zuthos]

Bonjour,

Je souhaite créer un bouton ActiveX et en changer certaines propriété tel que le caption.
Voici mon code:

Code :

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

1
2
3
4
5
6
 
Sub leTest()
    Dim monBouton As Object
    Set monBouton = ActiveSheet.OLEObjects.Add(ClassType:="Forms.CommandButton.1", Link:=False, DisplayAsIcon:=False, Left:=17, Top:=1, Width:=282, Height:=32).Select
    monBouton.Caption = "Test Pas concluant"
End Sub

j'ai essayé avec un Dim monBouton As OLEObject.

Tout cela me donne Objet requis (Erreur 424).

Si quelqu'un avait une idée ou une piste à suivre...

Cordialement

Zuthos

[Ericcool02]

Bonjour le forum
Bonjour Zuthos

Essais avec ceci :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
Sub CreerBouton()
'Chip Pearson, mpep
Dim OLEObj As OLEObject
Dim WS As Worksheet
 
  Set WS = Worksheets("Feuil1")
 
  With WS
    Set OLEObj = WS.OLEObjects.Add(ClassType:="Forms.CommandButton.1", _
        Left:=17, Top:=1, Height:=32, Width:=100)
  End With
  OLEObj.Object.Caption = "Test pas concluant"
 
 
End Sub

@+ Eric

[Zuthos]

Bonjour Zuthos

Bonjour,

Merci de votre aide, cela fonctionne. Mais, je n'arrive pas à voir la différence avec mon code précédent. Si ce n'est que l'un fonctionne et pas l'autre.

Edit: J'ai trouvé, c'est le select qui en empêchait le fonctionnement.

Merci encore

[patricktoulon]

bonjour
non c'est le .Object.Caption et non .Caption qui posait problème

[Zuthos]

bonjour
non c'est le .Object.Caption et non .Caption qui posait problème

Effectivement, merci de la précision

Edit: Pour les visiteurs, j'ai aussi ouvert cette question sur l'affectation d'une macro