recuperer l'object en tant que commandbutton

Version imprimable

Bonjour a tous
j'ai un petit soucis

je vous expose le probleme
j'ai une variable string "bout" qui contient le nom d'un commandbutton(activX)
je voudrais avec cette variable string ateindre un bouton dans le sheet et modifier sa couleur
j'ai essayé plein de chose mais visiblement ca ne match pas
Code:

1 2 3 4 5 activesheet.shapes(bout).backcolor=vbgreen ' marche pas non géré ' activesheet.OleObject(bout).backcolor.vbgreen ' marche pas non géré ' activesheet.Controls(bout).backcolor.vbgreen ' marche pas non géré
comment peut on atteindre ce bouton avec la variable string

je précise que j'aurais pu me servir d'une variable object qui aurais ete simple mais le bouton doit absolument etre memoriser dans une variable STRING

MERCI POUR LES RETOURS ;)

Salut Patrick,

L'explorateur l'objet de mon ide me donne une Property Object As Object aux objets de type OleObject.

Par conséquent (rien de plus facile) :

Code:

1
2
3
4
5
6
7
8
9
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim MyStr As String
    MyStr = "Bout"
    If Me.OLEObjects(MyStr).Object.BackColor = vbGreen Then
        Me.OLEObjects(MyStr).Object.BackColor = vbRed
    Else
        Me.OLEObjects(MyStr).Object.BackColor = vbGreen
    End If
End Sub

29/12/2017, 13h22
patricktoulon

re

Ok merci franck j'avais essayé et ca ne fonctionnait pas j'ai du faire une erreur de frappe :oops:
29/12/2017, 13h37
unparia

Bonjour Patrick
to erreur de frappe est double :

Code:

activesheet.OleObject(bout).backcolor.vbgreen ' marche pas non géré

était à écrire :

Code:

activesheet.OleObjectS(bout).Object.backcolor = vbgreen
29/12/2017, 17h24
patricktoulon

re

oui c'est vrai jacques:oops:
j'ai besoins d'une sieste:ptdr: