'-----------------------------------------------------------------------------
' Initialisation de ListView1
Sub Inilvw1()
' Remise à zéro de la ListView1
ListView1.ListItems.Clear
' Remplissage des cellule du tableau ListView1
.............................................................
End With
Call MiseEnForme(1, 3, "MEMBRE")
End Sub
'-------------------------------------------------------------------------------------
' Utilisation :mettre en couleur les données en fonction d'une valeur
' attention la numérotation des colonnes commence à 0
'call MiseEnForme(1,2, "X")
'-------------------------------------------------------------------------------------
Private Sub MiseEnForme(£numerolist As Integer, £nucolo As Integer, £valeur As String)
Dim £i As Long
Dim £j As Long
With Me.Controls("ListView" & (£numerolist))
For £i = 1 To .ListItems.Count
If .ListItems(£i).ListSubItems(£nucolo) = £valeur Then
.ListItems(£i).ForeColor = &HFF00&
For £j = 1 To .ColumnHeaders.Count - 1
.ListItems(£i).ListSubItems(£j).ForeColor = &HFF00&
Next
Else
.ListItems(£i).ForeColor = &HFF&
For £j = 1 To .ColumnHeaders.Count - 1
.ListItems(£i).ListSubItems(£j).ForeColor = &HFF&
Next £j
End If
Next £i
End With
End Sub