Couleur d'une linge

Salut Baigneur,

Avec une macro évenementielle.
Cliquer bouton droit sur l'onglet de la feuille en question, selectionner 'visualiser le code', dans la fenêtre de droite coller le script ci-dessous.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Cells.Interior.ColorIndex = 0
ActiveCell.EntireRow.Interior.ColorIndex = 7
End Sub

7 correspond à la couleur rose....c'est mon choix du soir, libre à toi d'en changer.

Bien cordialement

Bonsoir le Forum

Voici une autre appli. con mas conseiller sur c'et excellent forum.

En experent que cela te conviennent.

A+ Tonio.............

Oups le fichier!!!!!!!!

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.........