code couleur VBA sur ligne complète

M

milaerdo

Guest
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
 
H

Hervé

Guest
bonjour

essaye comme ceci :

Private Sub Worksheet_Change(ByVal Target As Range)

If Not Intersect(Target, Range("C8:D38")) 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é
 

Discussions similaires

Réponses
17
Affichages
611

Statistiques des forums

Discussions
311 725
Messages
2 081 940
Membres
101 845
dernier inscrit
annesof