Comptabiliser le nombre de ligne qui sont en rouge

[petchy]

bonjour
grace à bqtr,j'ai résolu mon probleme de ligne rouge dans la listview
maintenant je voudrais comptabiliser le nombre de ligne qui sont en rouge tous en sachant que la listview n'aur pas que des lignes en rouges.
voila le code pour mettre le lignes en rouge
' mise en couleur (rouge) des données sup à 6 mois
For x = 1 To List.ListItems.Count
If CDate(Format(List.ListItems(x).ListSubItems(2).Text, "dd/mm/yyyy")) < Date - 180 Then
List.ListItems(x).ForeColor = RGB(255, 0, 0)
For j = 1 To 4
List.ListItems(x).ListSubItems(j).ForeColor = RGB(255, 0, 0)
Frame4.Width = 391



Next
End If
Next
merci àvous

 

[bqtr]

Re : Comptabiliser le nombre de ligne qui sont en rouge

Bonjour petchy,

Avant de partir, teste ceci par exemple :
Rajoute un label en dessous de la Listwiew, puis modifie le code comme ceci.

Il faut rajouter une variable Tt déclarée en Integer

' mise en couleur (rouge) des données sup à 6 mois
            For x = 1 To List.ListItems.Count
               If CDate(Format(List.ListItems(x).ListSubItems(2).Tex  t, "dd/mm/yyyy")) < Date - 180 Then
                  List.ListItems(x).ForeColor = RGB(255, 0, 0)
                  [COLOR=Blue]Tt = Tt + 1[/COLOR]
                     For j = 1 To 4
                      List.ListItems(x).ListSubItems(j).ForeColor = RGB(255, 0, 0)
                      Frame4.Width = 391

Ensuite avant le End Sub par exemple (ou ailleurs dans le code après les boucles) :

Label1.Caption = "Il y a " & Tt & " linge(s) rouge(s)"

A+

 

[petchy]

Re : Comptabiliser le nombre de ligne qui sont en rouge

bonjour bqtr
trop classe ton code,il fonctionne super bien
un grand merci