Ligne en rouge dans listview (excel)

Résolu
cs_petchy Messages postés 710 Date d'inscription jeudi 20 février 2003 Statut Membre Dernière intervention 19 mai 2015 - 27 janv. 2008 à 13:57
cs_petchy Messages postés 710 Date d'inscription jeudi 20 février 2003 Statut Membre Dernière intervention 19 mai 2015 - 28 janv. 2008 à 09:46
bonjour
dans une listview j'ai 5 colonnes
1 : nom
2 : prenom
3 : date
4 : titre
5  :descriptif
comment faire pour mettre la ligne en rouge si la date (colonne 3) est superieur à 6 mois par rapport à la date system.
merci


<!-- / message -->
<!-- sig -->petchy

3 réponses

cs_petchy Messages postés 710 Date d'inscription jeudi 20 février 2003 Statut Membre Dernière intervention 19 mai 2015 3
28 janv. 2008 à 09:46
 salut
merci pour ta réponse,mais il me marque erreur 35600
"index hors limites"
j'ai une autre solution elle fonctionne
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 encore
Petchy
3
bigfish_le vrai Messages postés 1835 Date d'inscription vendredi 13 mai 2005 Statut Membre Dernière intervention 20 novembre 2013 12
27 janv. 2008 à 22:00
Salut,

tu ne donnes pas suffisament d' info pour comprendre ce qui te manque pour  y arriver. Mais peut etre quelque chose comme ceci(non verifie) :

Dim DiferencielMois As Integer
DiferencielMois = (DateValue(Now) - DateValue(ListView1.listitems(2).text)) / 30 '
If DateValue(Now) > 6 Then
   ListView1.listitems(2).ForeColor = RGB(255, 0, 0) ' rouge
End If

A+
0
bigfish_le vrai Messages postés 1835 Date d'inscription vendredi 13 mai 2005 Statut Membre Dernière intervention 20 novembre 2013 12
28 janv. 2008 à 06:05
...

version corrigée(toujours pas testé)

Dim DifferencielMois As Integer
DifferencielMois = (DateValue(Now) - DateValue(ListView1.listitems(2).text)) / 30 ' la soustraction renvoie un nombre de jour que je divise par 30 (mois calendaire)
If DifferencielMois > 6 Then
   ListView1.listitems(2).ForeColor = RGB(255, 0, 0) ' rouge
End If

A+
0