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

 

[petchy]

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

colonne A: Date
colonne B: Nom
colonne C: Prénom
colonne D: Divers

 

[bqtr]

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

Bonjour petchy

Je m'essaye aux ListView

Teste ceci :

Private Sub UserForm_Initialize()

Dim i As Long, k As Byte
With ListView1
    With .ColumnHeaders
      .Clear
      .Add , , Range("A1"), Range("A1").Width
      .Add , , Range("B1"), Range("B1").Width, lvwColumnCenter
      .Add , , Range("C1"), Range("C1").Width, lvwColumnCenter
      .Add , , Range("D1"), Range("D1").Width, lvwColumnCenter
    End With
End With
ListView1.View = lvwReport

For i = 2 To Range("A65536").End(xlUp).Row
    If Cells(i, 1) > Date + 90 Then
      ListView1.ListItems.Add , , Cells(i, 1)
            For k = 2 To 4
             ListView1.ListItems(ListView1.ListItems.Count).ListSubItems.Add , , Cells(i, k)
            Next
    End If
Next

End Sub

Bonne soirée

 

[petchy]

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

bonjour
merci pour ta réponses,mais il y a un probleme
tous est afficher dans la listview
dans la colonne A j'ai une date et c'est par rapport à cette date que je veut faire afficher tous se qui est superieur à 90 jours
@ plus

 

[bqtr]

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

Re Bonjour,

Dans ton premier message tu parlais de Date système, d'où la présence du code Date + 90.

Peux tu mettre un bout de fichier avec une quinzaine de lignes et ton USF avec ta listView, surligne les lignes qui doivent être reprises dans la ListView.

dans la colonne A j'ai une date et c'est par rapport à cette date que je veut faire afficher tous se qui est superieur à 90 jours

là je ne comprends pas trop ce que tu souhaites. Quelle date faut-il prendre pour déterminer le point de départ du calcul.


A+

 

[petchy]

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

Re

désolé,mais c'est à partir de la date qui se trouve dans la colonne A
merci pour ton aide

 

[excalibur]

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

bonjour bqtr petchy peut etre un truc dans ce genre
If Cells(i + 90, 1) < Date And Cells(i, 1) < Date Then

 

[jp14]

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

bonjour

Une piste
Ajouter 90 à la date système

datep90=dateadd("d",90,Now)
Lire la date dans la colonne A : date1
If date1 >= datep90 then .....

JP

 

[petchy]

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

bonjour

jean pierrre merci pour ta réponse mais ça ne fonctionne pas,il n'y à rien dans la listview
JP merci aussi mais ça ne fonctionne pas non plus
@ plus

 

[excalibur]

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

bonjour le fil j ai cree une listView puis teste avec le code de l ami bqtr
son code marche j ai change la condition comme j ai cru comprendre
recuperer toutes les dates inferieur a 90 jours par apport a now
Private Sub UserForm_Initialize()
Dim i As Long, k As Byte
With ListView1
With .ColumnHeaders
.Clear
.Add , , Range("A1"), Range("A1").Width
.Add , , Range("B1"), Range("B1").Width, lvwColumnCenter
.Add , , Range("C1"), Range("C1").Width, lvwColumnCenter
.Add , , Range("D1"), Range("D1").Width, lvwColumnCenter
End With
End With
ListView1.View = lvwReport
For i = 2 To Range("A65536").End(xlUp).Row
If Cells(i + 90, 1) < Date And Cells(i, 1) < Date Then
ListView1.ListItems.Add , , Cells(i, 1)
For k = 2 To 4
ListView1.ListItems(ListView1.ListItems.Count).ListSubItems.Add , , Cells(i, k)
Next
End If
Next
End Sub

 

[petchy]

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

bonsoir

merci pour ta patience,mais il n'y à rien qui s'affiche dans la listview,le code de bqtr
fonctionne il affiche tous les items de ma liste,mais se qui m'interesse c'est celle qui sont supérieur à 90 jours et la rien,je ne comprends pas.

 

[jp14]

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

Bonsoir

IL faut verifier en utilisant le pas à pas si le test concernant la comparaison des dates fonctionne.
Se positionner sur la ligne du test et appuyer sur F9
If Cells(i + 90, 1) < Date And Cells(i, 1) < Date Then
mettre des espions sur Cells et Date.
Lancer l'USF et vérifier les valeurs.

JP

 

[bqtr]

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

Re, Bonsoir JP, Jean Pierre,

Je mettrais plutôt ceci:

If Cells(i, 1) + 90 < Date Then

If Cells(i + 90,1) < Date And Cells(i, 1) < Date
Pour i = 2, on compare si la cellule A92 est inférieure au 19/01 et si la cellule A2 est inférieure au 19/01.

Bonne soirée

 

[petchy]

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

bqtr avec ton code j'ai l'erreur 13 "incompatibilité de type"

JP j'ai mis des espions sur Cells et Date,mais je ne sait pas quoi faire ?

 

[petchy]

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

Re

je suis vraiment désolé,mais je viens de comprendre pourquoi ça ne fonctionnait pas,c'est à cause de la date
elle s'écrivait ainsi
samedi 19 janvier 2008
voila le probleme
maintenant je l'écris ainsi
18/01/08
et la ça fonctionne,pour l'instant
avec se code
If Cells(i + 90, 1) < Date And Cells(i, 1) < Date Then
encore une fois désolé
et un grand merci pour votre aide