Bonjour,

je n'arrive pas a me sortir de ce problème
toute mes lignes de texte sont de la même couleur
Je contrôle le contenue de ma colonne 15 et si c'est "ouvert" une couleur si c'est "En cours" une autre
j'ai vérifié je passe bien dans les boucle If

si vous auriez une idée merci d'avance

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
With ListView1                  'Rempli la ListView1 des demandes
    .ListItems.Clear
    For PLig = 2 To NbrLig
        .ListItems.Add , , VarGet(PLig, 1)
        If VarGet(PLig, 15) = "Ouvert" Then CodeColor = RGB(255, 0, 0)  '&HC00000
        If VarGet(PLig, 15) = "En cours" Then CodeColor = RGB(0, 0, 255)  '&H80000012
        For PCol = 2 To NbrCol
            .ListItems(.ListItems.Count).ListSubItems.Add , , VarGet(PLig, PCol)
            .ForeColor = CodeColor
        Next
    Next
    .Refresh
End With