Différencier la couleur des lignes dans une listview

[phileasdav]

bonjour à tous ;

j'ai une listview dans laquelle je siouhaiterai différencié la couleur des lignes selon une valeur .
Cela fonctionne mais pas comme je voudrai !!!; je souhaiterai sans avoir a cliquer sur une ligne que la couleur des lignes se mettent automatiquement a l'initialisation de mon userform.

ci joint mon code du module
Sub Colore_rouge()
Dim j As Byte, k As Long

With userform2.ListView1
For k = 1 To .ListItems.Count
.ListItems(k).ForeColor = &HFF&
.ListItems(k).Bold = True
For j = 1 To 8
.ListItems(k).ListSubItems(j).ForeColor = &HFF&
.ListItems(k).ListSubItems(j).Bold = True
Next
Next
End With
End Sub

.......et des criteres appelant la procédure
If Sheets("Data").Cells(Numlign, 14) = "" Then
Colore_rouge
End If

merci d'avance

 

[phileasdav]

Re : Différencier la couleur des lignes dans une listview

personne pour m'aider??

 

[youky(BJ)]

Re : Différencier la couleur des lignes dans une listview

.......et des criteres appelant la procédure
j'ai déplacé et modifié la macro celle ci je suppose est lors du remplissage de la listview

If Sheets("Data").Cells(Numlign, 14) = "" Then
With userform2.ListView1
' peut être mettre (Numlign+1)
.ListItems(Numlign).ForeColor = &HFF&
.ListItems(Nulign).Bold = True
For j = 1 To 8
.ListItems(Numlign).ListSubItems(j).ForeColor = &HFF&
.ListItems(Numlig).ListSubItems(j).Bold = True
Next
End With
End If

Bonne réussite
A +