Private Sub Worksheet_SelectionChange(ByVal Target As range)
Cells.Interior.ColorIndex = xlNone
If Not Intersect(Target, range("A10:IV500")) Is Nothing Then
With ActiveCell
.EntireRow.Interior.ColorIndex = 36
.EntireColumn.Interior.ColorIndex = 36
End With
End If
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As range)
Cells.Interior.ColorIndex = xlNone
If Not Intersect(Target, range("A10:IV500")) Is Nothing Then
With ActiveCell
.EntireRow.Interior.ColorIndex = 36
.EntireColumn.Interior.ColorIndex = 36
End With
End If
End Sub
Pour le faire seulement dans une plage déterminée (et sans effacer les couleurs des cellules hors plage), tu peux faire selon fichier joint. La plage du tableau doit être nommée (voir fichier).
Bonjour,
Dans ce cas, le code était seulement ce qui suit, semblable à ce qui t'a été donné par ailleurs mais en nommant la plage (pour ne rien avoir à modifier dans le code si ajout/suppr. lignes et/ou colonnes)
Code:
Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim PlgAtrait As Range
Const CouleurLig = 35 ' vert clair
Const CouleurCol = 36 ' jaune clair
Set PlgAtrait = Range("PlageAtraiter")
ActiveSheet.Cells.Interior.ColorIndex = xlNone
If Not Intersect(Target, PlgAtrait) Is Nothing Then
Target.EntireColumn.Interior.ColorIndex = CouleurCol
Target.EntireRow.Interior.ColorIndex = CouleurLig
End If
End Sub
Attention à un point : dans tous les cas cas, ce code interdit tout copier/coller dans la feuille (ou bien il faut prévoir une action qui inhibe cette procédure avant de faire l'opération)
Bonjour,
Dans ce cas, le code était seulement ce qui suit, semblable à ce qui t'a été donné par ailleurs mais en nommant la plage (pour ne rien avoir à modifier dans le code si ajout/suppr. lignes et/ou colonnes)
Code:
Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim PlgAtrait As Range
Const CouleurLig = 35 ' vert clair
Const CouleurCol = 36 ' jaune clair
Set PlgAtrait = Range("PlageAtraiter")
ActiveSheet.Cells.Interior.ColorIndex = xlNone
If Not Intersect(Target, PlgAtrait) Is Nothing Then
Target.EntireColumn.Interior.ColorIndex = CouleurCol
Target.EntireRow.Interior.ColorIndex = CouleurLig
End If
End Sub
Attention à un point : dans tous les cas cas, ce code interdit tout copier/coller dans la feuille (ou bien il faut prévoir une action qui inhibe cette procédure avant de faire l'opération)