B
BoB
Guest
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
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