Commencer le code a partir de la ligne 8

Bonsoir ,

Cela fait longtemps que j'ai pratiqué le VBA et c'est pas comme le vélo , ça s'oublie .Pourriez vous m'aider ?

J'ai ce code pour colorer des lignes en jaune :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Set isect = Application.Intersect(Range("A:M"), Target)
If Not isect Is Nothing Then
   Cells.Interior.ColorIndex = xlNone
   Range("A" & Target.Row & ":M" & Target.Row).Interior.ColorIndex = 6
End If
End Sub

Je ne voudrais pas qu'il s'applique aux lignes 1 à 8

Merci par avance pour vos solutions.

bonjour,

If Not isect Is Nothing and target.row >8 Then

Bonjour,

Un peu à l'aveugle

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Set isect = Application.Intersect(Range("A:M"), Target)
If Not isect and target.row()<7 Is Nothing  Then
   Cells.Interior.ColorIndex = xlNone
   Range("A" & Target.Row & ":M" & Target.Row).Interior.ColorIndex = 6
End If
End Sub

A tester leakim

Super la réponse rapide. Tout le monde n'est pas en vacances

La question a bien été comprise et j'ai mis ça :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Set isect = Application.Intersect(Range("A:M"), Target)

If Not isect Is Nothing And Target.Row > 8 Then

   Cells.Interior.ColorIndex = xlNone
   Range("A" & Target.Row & ":M" & Target.Row).Interior.ColorIndex = 6
End If
End Sub

Merci à vous

Bonsoir je reviens vers vous.

Sur mon fichier test , je n'avais pas vu que les couleurs disparaissaient sur les lignes 1 à 7

Comment conserver les couleurs sur des cellules ?

Bonsoir à tous!

ascal44, comme ceci peut-être

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Set isect = Application.Intersect(Range("A:M"), Target)
If Not isect Is Nothing And Target.Row >= 8 Then
   Cells.Interior.ColorIndex = xlNone
   Range("A" & Target.Row & ":M" & Target.Row).Interior.ColorIndex = 6
End If
Range("A1:M7").Interior.ColorIndex = 4
End Sub

Bonne soirée !

bonjour,

avec des couleurs conditionnels et une ligne dans ce "Worksheet_SelectionChange"

https://www.exceldemy.com/highlight-active-row-in-excel/