Colorier cellules

Hervé

XLDnaute Barbatruc

• 22 Mai 2006

• #2

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

 

Vote positif 0 Vote négatif

JORDAN

XLDnaute Impliqué

• 22 Mai 2006

• #3

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+

 

Vote positif 0 Vote négatif

Hervé

XLDnaute Barbatruc

• 22 Mai 2006

• #4

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

 

Vote positif 0 Vote négatif

JORDAN

XLDnaute Impliqué

• 22 Mai 2006

• #5

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

 

Vote positif 0 Vote négatif