Discussion :

[luno37]

Bonjour le forum,


J’ai un fichier de suivi des litiges clients qui n’est pas encore fini. J’aimerais y intégrer un paramètre de couleurs pour faciliter la lecture. Dans l'onglet "recap", j'aimerais que toutes les lignes soient colorées en fonction du contenu de la colonne



Merci d’avance


Luno

Pièces jointes:

[Theze]

Bonjour,

Voir la réponse que je t'ai donné sur l'autre forum !

[Mr Poulpe]

Bonjour,

C'est un truc comme ça qu'il faudrait?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
 
Sub Coloriage()
    Dim rngSituation As Range
    Dim lngMaxRow As Long
    Dim i As Long
    Dim Status As String
 
    'A remplacer par la colonne situation
    Set rngSituation = ActiveSheet.Range("D:D")
 
    lngMaxRow = rngSituation.Parent.UsedRange.Rows.Count
 
    For i = 2 To lngMaxRow
        Status = rngSituation.Cells(i, 1).Value
 
        Select Case Status
            Case "En cours": rngSituation.Cells(i, 1).EntireRow.Interior.ColorIndex = 46
            Case "Litige clos": rngSituation.Cells(i, 1).EntireRow.Interior.ColorIndex = 5
            Case "Demande refusée": rngSituation.Cells(i, 1).EntireRow.Interior.ColorIndex = 3
            Case "Avoir à établir": rngSituation.Cells(i, 1).EntireRow.Interior.ColorIndex = 4
        End Select
    Next i
End Sub

Cordialement,

Poulpe