1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17
| Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
' Vérifier si la feuille est protégée
If Sh.ProtectContents Then
' Si la feuille est protégée, sortir de la macro
Exit Sub
End If
' Effacer les mises en surbrillance précédentes
Cells.Interior.ColorIndex = xlNone
' Vérifier si une seule cellule est sélectionnée
If Target.Cells.Count = 1 Then
' Surbriller la ligne et la colonne de la cellule active
Rows(Target.Row).Interior.Color = RGB(255, 255, 235) ' Jaune pâle
Columns(Target.Column).Interior.Color = RGB(255, 255, 235)
End If
End Sub |
Partager