harveyspecter
XLDnaute Occasionnel
Bonjour,
J'ai ci-joint un code vba permettant de colorier la colonne et la ligne des que je clique sur une cellule.
Le problème c'est que si je mets de la couleur en titre ou sur des autres étiquette, il me les effaces.
Comment lui dire de ne pas toucher au cellule déjà colorier ?
merci
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
'------------------------------------------------------------
Cells.Interior.ColorIndex = xlColorIndexNone
'------------------------------------------------------------
ActiveCell.EntireColumn.Interior.ColorIndex = 19 'Column Color
ActiveCell.EntireRow.Interior.ColorIndex = 19 ' Row Color
ActiveCell.Cells.Interior.ColorIndex = 44 ' Cell Color
'------------------------------------------------------------
J'ai ci-joint un code vba permettant de colorier la colonne et la ligne des que je clique sur une cellule.
Le problème c'est que si je mets de la couleur en titre ou sur des autres étiquette, il me les effaces.
Comment lui dire de ne pas toucher au cellule déjà colorier ?
merci
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
'------------------------------------------------------------
Cells.Interior.ColorIndex = xlColorIndexNone
'------------------------------------------------------------
ActiveCell.EntireColumn.Interior.ColorIndex = 19 'Column Color
ActiveCell.EntireRow.Interior.ColorIndex = 19 ' Row Color
ActiveCell.Cells.Interior.ColorIndex = 44 ' Cell Color
'------------------------------------------------------------