Pb objet requis...

[BoB]

Bonjour,

VOila je voudrais colorer un commandbutton mais cela ne fonctionne pas pour un pb d'objet requis.

nomrack = Sheets('Data').Range('A' & Mid(ActiveCell.Address, 4)).Value & Sheets('Data').Range(Mid(ActiveCell.Address, 2, 1) & '1').Value

MsgBox (nomrack)
Sheets('Rack').Select
ActiveSheet.Shapes(nomrack).Select
nomrack.BackColor = &H8000000D


Mon Msgbox me renvoie bien R1D1 ( qui est le nom de mon commandButton)
Mais une erreur arrive sur la derniére ligne..
Ce qui est encore plus bizzare c'est que lorsque je mais la derniere ligne en dur comme ceci:
R1D1.BackColor = &H8000000D, cela fonctionne

D'ou viens le pb??

Merci d'avance

 

[PascalXLD]

Bonjour

et comme ceci ??

ActiveSheet.Shapes(nomrack).BackColor = &H8000000D

 

[Bob]

Merci pascal

Mais cela ne marche pas non plus
il me dit propriété ou methode non géré par cet objet

C'est dautant plus etrange que lors du debogage si je pointe la souris sur nomrack je vois bien R1D1

Vois tu une autre solution

Merci pour ton aide

 

[_Thierry]

Bonjour Pascal, Bob, le Forum

Comment vas-tu cher Pascal, un moment que je ne te suis pas rentré dedans dans un Fil 😉

Sinon, si Bob parle d'ActiveX 'CommandButton', je conseille un truc dans ce style :

Private Sub CommandButton2_Click()
Dim OLEObj As OLEObject
Dim NomRack As String

NomRack = 'CommandButton1'

   
    For Each OLEObj In Me.OLEObjects
        If OLEObj.Name = NomRack Then OLEObj.Object.BackColor = &H8000000D
    Next
End Sub

Bonne Journée
[ol]@+Thierry[/ol]

 

[PascalXLD]

Re

Juste pour saluer Thierry

En effet ça fait un bout de temps qu'on ne s'était croisé. Tu as l'air d'avoir un peu moins de job en ce moment ça se calme enfin par chez toi ??

A bientôt