ListView et application conditionnelle de couleur a des lignes

[belerofon]

Bonjour à tous, aujourd'hui nouvelle problematique qui me fait mal au crane...
Tout est expliqué dans le fichier exemple ci joint ...
Bon courage et merci beaucoup,
J.

 

[jp14]

Re : ListView et application conditionnelle de couleur a des lignes

Bonjour

Ci dessous le code à rajouter

'-----------------------------------------------------------------------------
' 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

A modifier en fonction des couleurs

JP

 

[belerofon]

Re : ListView et application conditionnelle de couleur a des lignes

lut JP,
je viens de rentrer, je vais potasser ca et je te tiens au courant
Merci pour tout
J.

 

[belerofon]

Re : ListView et application conditionnelle de couleur a des lignes

Re JP,
ton code marche à merveille.. Bon coté lisibilité c'est pas ce à quoi je m'attendais... Ca fait limite mal aux yeux...
Alors en fin de compte une meilleure idée serait de colorier le "background" de la ligne plutot que la "font"...
je sais pas si ca c est possible...