Discussion :

[patricktoulon]

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 :

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

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

[pijaku]

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 :

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

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

[patricktoulon]

Ok merci franck j'avais essayé et ca ne fonctionnait pas j'ai du faire une erreur de frappe

[unparia]

Bonjour Patrick
to erreur de frappe est double :

Code :

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

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

était à écrire :

Code :

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

activesheet.OleObjectS(bout).Object.backcolor = vbgreen

[patricktoulon]

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