code couleur VBA sur ligne complète

milaerdo · 13 Février 2005

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 · 13 Février 2005

Bonjour,

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

Léa

milaerdo · 13 Février 2005

Oups voilà ma PJ

Hervé · 13 Février 2005

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é

code couleur VBA sur ligne complète

milaerdo

Guest

léa

Guest

milaerdo

Guest

Pièces jointes

Hervé

Guest

Discussions similaires