Desidement il ne veut pas passer
voici le code a placer dans ta feuil:
Public Lig As Integer
Dim Coul(256) As Integer
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
PremLig! = 6 'ici on declare a partir de quel ligne on commence le coloriage
MaxCol! = 10 'la on declare le nombre de colonnes a colorier -(cells(lig,2)
If Target.Row <> Lig And Target.Rows.Count = 1 Then
If Target.Row >= PremLig Then
If Lig > 0 Then
For Col = 1 To MaxCol
Cells(Lig, Col).Interior.ColorIndex = Coul(Col)
Next Col
End If
Lig = Target.Row
For Col = 1 To MaxCol
Coul(Col) = Cells(Lig, Col).Interior.ColorIndex
Next Col
'ici on declare a partir de quel colonne on commence le coloriage
Range(Cells(Lig, 2), Cells(Lig, MaxCol)).Interior.ColorIndex = 3
Else
For Col = 1 To MaxCol
Cells(Lig, Col).Interior.ColorIndex = Coul(Col)
Next Col
End If
End If
End Sub
A placer dans ThisWorkbook:
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Cells.Interior.ColorIndex = xlNone
End Sub
Bonne soirée
A+ Tonio.........