Colorier cellules

[JORDAN]

Bonjour à Toutes et Tous

Avec le code suivant, la ligne de la cellule sélectionnée est colorée en bleue.
Jusque là pas de problème. Seulement, est-il possible d'obtenir la même chose sans
changer la couleur des 5 premières lignes ?

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
    
    Cells.Interior.ColorIndex = xlNone
    Range(Cells(Target.Row, 1), Cells(Target.Row, 17)).Interior.ColorIndex = 37

End Sub

Merci pour tous vos conseils.
A+ et bonne journée

 

[Hervé]

Salut jordan

peut etre comme ceci :

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)

If Target.Row > 5 Then
Cells.Interior.ColorIndex = xlNone
Range(Cells(Target.Row, 1), Cells(Target.Row, 17)).Interior.ColorIndex = 37
End If
End Sub


salut

 

[JORDAN]

Bonjour Hervé,

Merci pour ta soluce, c'est presque ça

Les 5 premières lignes ne sont pas colorées mais par contre des que je clique sur une cellule à partir de la ligne 6, mes 5 premières lignes ne sont plus colorées (couleur rouge et noire)
Si tu a une autre idée, je suis preneur.
A+

 

[Hervé]

re

alors comme ceci :


Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)

If Target.Row > 5 Then
Range(Cells(6, 1), Cells(5000, 17)).Interior.ColorIndex = xlNone
Range(Cells(Target.Row, 1), Cells(Target.Row, 17)).Interior.ColorIndex = 37
End If
End Sub


salut

 

[JORDAN]

Re,

J'ai été pris par le boulot et n'ai pas pu te répondre plus vite.

Le 'alors comme ceci' me conviens parfaitement
Ca marche à merveilles.

Encore merci pour ton aide
Bonne soirée