code couleur VBA sur ligne complète

[milaerdo]

Bonjour Excelent Excelien
Dans l'exemple en PJ j'envoie une fonction VBA récupérer sur le fil mais voilà je n'ai aucune connaissance et je voudrais que la colorisation soit de la ligne et non de la cellule si QQ peu m'aporter la solution

avec si possible le changement de couleur de police suivant couleur de fond

Merci par avance

Milaerdo

 

[léa]

Bonjour,

Il n'y a pas de pièce jointe
A+

Léa

 

[milaerdo]

Oups voilà ma PJ

 

[Hervé]

bonjour

essaye comme ceci :

Private Sub Worksheet_Change(ByVal Target As Range)

If Not Intersect(Target, Range("C838")) Is Nothing Then
For Each cell In Target
If cell.Value = "CB" Then
Rows(Target.Row).Interior.ColorIndex = 33
Target.Font.ColorIndex = 0
ElseIf cell.Value = "Ch" Then
Rows(Target.Row).Interior.ColorIndex = 41
Target.Font.ColorIndex = 0
ElseIf cell.Value = "Pr" Then
Rows(Target.Row).Interior.ColorIndex = 11
Target.Font.ColorIndex = 2
ElseIf cell.Value = "Vir" Then
Rows(Target.Row).Interior.ColorIndex = 50
Target.Font.ColorIndex = 0
ElseIf cell.Value = "Ent" Then
Rows(Target.Row).Interior.ColorIndex = 40
Target.Font.ColorIndex = 0
ElseIf cell.Value = "" Then
Rows(Target.Row).Interior.ColorIndex = 0
Target.Font.ColorIndex = 0
End If
Next
End If

End Sub

Salut
Hervé