Sub Chargement_Listview()
Dim D As New dictionary, item As Variant
For i = 0 To UBound(Jours)
For j = 2 To UBound(tbl) 'NumSem
If tbl(j, 3) = Jours(i) Then D(tbl(j, 2)) = tbl(j, 2) ': Exit For
Next j
Next i
ListView1.ListItems.Clear
'--------------------------------------------------------------------------------------------------------------
With ListView1
'Définit le nombre de colonnes et Entêtes
With .ColumnHeaders
.Clear
.Add , , "Nom", 80
For i = 0 To 6
.Add , , Jours(i), 80
Next i
End With
couleurref = &H0& '&H40C0&
For Each item In D.Items
.ListItems.Add , , item
.ListItems.Add , , item
x = .ListItems.Count
If x = 2 Then
couleur = couleurref 'couleur = .ListItems(x - 2).ListSubItems(4).ForeColor
ElseIf couleur = couleurref Then
couleur = &HFF00&
Else
couleur = couleurref
End If
.ListItems(x - 1).ForeColor = couleur
.ListItems(x).ForeColor = couleur
For i = 2 To UBound(tbl)
If tbl(i, 2) = item Then
For j = 2 To .ColumnHeaders.Count
If tbl(i, 3) = .ColumnHeaders(j) Then
.ListItems(x - 1).ListSubItems.Add , , Mid(tbl(i, 4), 1, 12)
.ListItems(x).ListSubItems.Add , , Mid(tbl(i, 4), 14)
c = c + 1
.ListItems(x - 1).ListSubItems(c).ForeColor = couleur
.ListItems(x).ListSubItems(c).ForeColor = couleur
Exit For
End If
Next j
End If
Next i
c = 0
Next item
.View = lvwReport
.LabelWrap = True
End With
'----------------------------------------------------------------------------------------
0
'----------------------------------------------------------------------------------------
End Sub