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