Re : Elements en couleur suivant une condition dans une listview
bonjour,
Essaie ce code en lieu et place :
Private Sub ajouteruneligne(£nomfeuil As String, £Li As Long, £colonne() As String)
Dim £i As Integer
With ListView1
.ListItems.Add , "K" & £Li, Sheets(£nomfeuil).Range(£colonne(LBound(£colonne)) & £Li)
For £i = LBound(£colonne) + 1 To UBound(£colonne)
.ListItems(.ListItems.Count).ListSubItems.Add = Sheets(£nomfeuil).Range(£colonne(£i) & £Li)
Next £i
End With
' Stop
Dim x As Long, y As Long
Dim item As Long
For x = 1 To ListView1.ListItems.Count 'lignes
If Val(ListView1.ListItems(x).ListSubItems(5)) < 0 Then
ListView1.ListItems(x).ListSubItems(5).ForeColor = &HFF& ' ou RGB(0, 200, 0)
ListView1.ListItems(x).ListSubItems(5).Bold = True
End If
Next