Sub Ini_lvw5()
Dim i As Long, X As Byte, plage As Range, C As Range, j As Integer, y As Integer
Dim anciennevaleur As String
Dim couleur As String
On Error Resume Next
With Sheets("dépenses")
Set plage = .Range("A3:A" & .Range("A65536").End(xlUp).Row)
End With
With ListView5
.ListItems.Clear
.Sorted = False
For Each C In plage
.ListItems.Add , , C.Value
'X = .ListItems.Count
For j = 1 To 4
.ListItems(.ListItems.Count).ListSubItems.Add , , C.Offset(0, j).Value
Next
'For y = 4 To 4
'.ListItems(.ListItems.Count).ListSubItems.Add , , C.Offset(0, y).Text
'Next
.ListItems(.ListItems.Count).ListSubItems.Add , , C.Row
Next C
'
Tri ListView5, 1 'to sort listview
' couleur
couleur = vbBlue
'Boucle sur toutes les lignes
For i = 1 To ListView5.ListItems.Count
With .ListItems(i)
If .ListSubItems(1).Text = anciennevaleur Then
.ForeColor = couleur
For j = 1 To 4
.ListSubItems(j).ForeColor = couleur
Next
Else
anciennevaleur = .ListSubItems(1).Text
Select Case couleur
Case vbBlue
couleur = vbRed
Case vbRed
couleur = vbBlue
End Select
.ForeColor = couleur
For j = 1 To 4
.ListSubItems(j).ForeColor = couleur
Next
End If
End With
Next i
End With
End Sub