afficher dans la listview les lignes qui sont supérieur à 90 jours

[petchy]

bonjour
à l'aide d'un USF j'envoi des données sur une feuille
colonne Aate
colonne B:Nom
colonne Crénom
colonne Divers
dans un autre USF j'ai une listview
comment faire pour afficher dans la listview les lignes qui sont supérieur à 90 jours par rapport à la date systeme.
merci

 

[jp14]

Re : afficher dans la listview les lignes qui sont supérieur à 90 jours

Bonjour

Une piste :
Dans une listview les dates sont sous la forme de chaîne de caractères donc le format n'a aucune importance.

Lors de l'écriture dans la listeview il faudrait reconstituer la date (en écrivant dans une variable de type "String" ) en utilisant les fonctions Day, Month et Year
date2(variable String) = Day(date) & "/" & month(date) & "/" & Yeat(date)
listview1. add , , date2

JP

 

[petchy]

Re : afficher dans la listview les lignes qui sont supérieur à 90 jours

RE

voila j'ai mis en pièces jointes le fichier,j'ai du supprimer des choses pour qu'il soit à la bonne taille.
merci

 

[jp14]

Re : afficher dans la listview les lignes qui sont supérieur à 90 jours

Bonjour


Il faut renommer dans le fichier Excel une feuille pour que la macro fonctionne.
La variable MaskEdBox1 n'est pas défini ?

On peut modifier les paramètres du contrôle DTpicker en cliquant sur personnalisé dans la boîte des propriétés afin d'avoir la date conforme.
Il en est de même pour la listview, on peut dans la boîte nommer les colonnes. Cela allège le programme.

Des données ( non confidentielle ) dans la feuille "database" permettrait d' enrichir la listview et de faire des tests.

JP

 

[jp14]

Re : afficher dans la listview les lignes qui sont supérieur à 90 jours

Bonjour (re)

J'ai utilisé cette formule il n'y a plus de problème pour l'écriture des données dans la feuille

.Range("a2").Value = CDate(DTPicker1)
lvreport est défini dans les propriétés
JP

Ci joint le fichier modifié.

 

[petchy]

Re : afficher dans la listview les lignes qui sont supérieur à 90 jours

Salut JP

un grand merci pour ton aide,
pour le format des dates àa fonctionne super bien,
j'ai modifier le code
If Cells(i, 1) < Date - 90 Then
donc je crois que c'est tout bon