Comptabiliser le nombre de ligne qui sont en rouge

petchy · 28 Janvier 2008

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 · 28 Janvier 2008

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

Code:

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

Code:

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

A+

petchy · 28 Janvier 2008

Re : Comptabiliser le nombre de ligne qui sont en rouge

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

Comptabiliser le nombre de ligne qui sont en rouge

petchy

XLDnaute Occasionnel

bqtr

XLDnaute Accro

petchy

XLDnaute Occasionnel

Discussions similaires