Couleur d'une linge

[Baigneur]

Salut,

Comment faire pour mettre une linge en couleur, pendant la saisie.

merci

 

[Rénato]

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

 

[Tonio]

Bonsoir le Forum

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

En experent que cela te conviennent.

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

 

[Tonio]

Oups le fichier!!!!!!!!

 

[Tonio]

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