Si cela ne va pas Changez .Resize(Target.Rows.Count) par .Resize(Selection.Rows.Count)
Et si cela ne va toujours pas et ben reste plus qu'à attendre patiemment que quelqu'un tape juste ou que vous joignez un fichier exemple avec la macro à modifier et tout le toutim
Si cela ne va pas Changez .Resize(Target.Rows.Count) par .Resize(Selection.Rows.Count)
Et si cela ne va toujours pas et ben reste plus qu'à attendre patiemment que quelqu'un tape juste ou que vous joignez un fichier exemple avec la macro à modifier et tout le toutim
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Tout As Range, Part As Range
Set Tout = Range("A2:N133")
If Not Intersect(Tout, Target) Is Nothing Then
Set Part = Range("A2:K133")
Part.Interior.ColorIndex = xlNone
Intersect(Part, Target.EntireRow).Interior.ColorIndex = 36
End If
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim champ As Range, a As Range
Set champ = Range("A2:K133")
If Intersect(champ, Target) Is Nothing Then Exit Sub
champ.Interior.ColorIndex = xlNone
For Each a In Intersect(Target.EntireRow, champ).Areas
a.Interior.ColorIndex = 36
Next
End Sub