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
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
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
4
28 janv. 2008 à 09:46
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
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
bigfish_le vrai
Messages postés
1835
Date d'inscription
vendredi 13 mai 2005
Statut
Membre
Dernière intervention
20 novembre 2013
15
27 janv. 2008 à 22:00
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+
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+
bigfish_le vrai
Messages postés
1835
Date d'inscription
vendredi 13 mai 2005
Statut
Membre
Dernière intervention
20 novembre 2013
15
28 janv. 2008 à 06:05
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+
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+