Ligne en rouge dans listview (excel)

[Résolu]
Signaler
Messages postés
710
Date d'inscription
jeudi 20 février 2003
Statut
Membre
Dernière intervention
19 mai 2015
-
Messages postés
710
Date d'inscription
jeudi 20 février 2003
Statut
Membre
Dernière intervention
19 mai 2015
-
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

Messages postés
710
Date d'inscription
jeudi 20 février 2003
Statut
Membre
Dernière intervention
19 mai 2015
3
 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
Messages postés
1835
Date d'inscription
vendredi 13 mai 2005
Statut
Membre
Dernière intervention
20 novembre 2013
10
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+
Messages postés
1835
Date d'inscription
vendredi 13 mai 2005
Statut
Membre
Dernière intervention
20 novembre 2013
10
...

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+