Discussion :

[jpclabaux]

Bonjour,

Je crée un bouton par macro dans ma feuille active mais quand je veux modifier la couleur de fond j'ai le message d'erreur suivant:

Erreur d'exécution '438': Propriété ou méthode non gérée par cet objet

Pareil pour caption et OnAction. Voici mon code:

Code :

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

1
2
3
ActiveSheet.OLEObjects.Add(ClassType:="Forms.CommandButton.1", Link:=False _
            , DisplayAsIcon:=False, Left:=757.5, Top:=70.5, Width:=72, Height:=24).Select
        ActiveSheet.CommandeButton1.BackColor = RGB(255, 0, 0)

Je ne vois pas ce qui peut géner.

Merci d'avance,
Jean

[Philippe Tulliez]

Bonjour,
Essaye ceci

Code :

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

1
2
3
4
With ActiveSheet.OLEObjects("CommandButton1").Object
.Caption = "Mon texte"
.BackColor = RGB(255, 0, 0)
End With

[EDIT]
Tu peux aussi utiliser ce code mais à condition d'être dans le module de l'objet feuille

Code :

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

1
2
3
4
With Me.CommandButton1
.Caption = "Toto"
.BackColor = RGB(255, 255, 0)
End With

[jpclabaux]

Bonjour Philippe,

Merci de t'intéresser à mon problème.
Ta solution fonctionne super pour Caption et Backcolor mais pas pour OnAction.
Auparavant j'avais un bouton de formulaire et je pouvais lui affecter une macro avec OnAction.
Maintenant on me demande de mettre le bouton en couleur, je dois donc utiliser un contrôle ActiveX et ça ne marche plus.
Sais-tu comment affecter une macro à ce bouton?

Jean

[Philippe Tulliez]

Bonjour,
Voir cette discussion sur le même sujet, il y a quelques jours

[jpclabaux]

Je me suis inspiré de la discussion en question pour appeler une procédure (sub) qui existe déjà dans une macro complémentaire (macro.xlam), mais ça ne marche pas.
Ça marche si la macro appelée par le bouton est directement dans la feuille.
Est-il possible d'appeler une sub dans une macro complémentaire?
Je précise que ça fonctionne avec les boutons de formulaire et OnAction.