Bonjour,
Bonjour,
Je galère pour trouver comment mettre les lignes de ma listeview en couleur rouge lors la valeur dans la colonne 10 inférieur à zéro.
Voici le code de début
---------------------
Private Sub actualisation()
Dim Item As ListItem
Dim Moncritere As Variant
Dim derli As Integer
Dim i As Integer
Dim Couleur As Variant
Couleur = vbRed
ListView1.ListItems.Clear
derli = ThisWorkbook.Sheets("COMPTES").Range("A" & Rows.Count).End(xlUp).Row
For i = 2 To derli
Set Item = ListView1.ListItems.Add(Text:=ThisWorkbook.Sheets("COMPTES").Cells(i, 2))
Item.ForeColor = vbRed
Item.SubItems(1) = ThisWorkbook.Sheets("COMPTES").Cells(i, 3)
Item.ListSubItems(2).ForeColor = Couleur
Item.SubItems(2) = ThisWorkbook.Sheets("COMPTES").Cells(i, 4)
Item.ListSubItems(2).ForeColor = Couleur
Item.SubItems(3) = ThisWorkbook.Sheets("COMPTES").Cells(i, 5)
Item.ListSubItems(3).ForeColor = Couleur
Item.SubItems(4) = ThisWorkbook.Sheets("COMPTES").Cells(i, 6)
Item.ListSubItems(4).ForeColor = Couleur
Item.SubItems(5) = ThisWorkbook.Sheets("COMPTES").Cells(i, 7)
Item.ListSubItems(5).ForeColor = Couleur
Item.SubItems(6) = ThisWorkbook.Sheets("COMPTES").Cells(i, 8)
Item.ListSubItems(5).ForeColor = Couleur
Item.SubItems(7) = ThisWorkbook.Sheets("COMPTES").Cells(i, 10)
Item.ListSubItems(5).ForeColor = Couleur
Next i
End sub
-----
Merci d'avance pour votre aide précieuse!