Extraire Données de plusieurs feuil suivant date

[MuscatMimi]

Bonjour a tout le Forum

Je souhaite récupérer,les "Dates Anniversaires" du Jour,Dates en Col "C", et les Afficher dans ma ListView1

le Code ci-dessous me permet d'afficher,les données, a la Date du Jour,et supérieur, Date qui ce situe sur chaque ligne en Col J.

j'arrive pas a trouver la sintaxe pour ce que je désire faire ,en modifiant ce bout de Code

Private Sub UserForm_Initialize()
Dim dl As Long, i As Long, x As Long
Dim Ws_Source As Worksheet
Set Ws_Source = Worksheets("Feuil1") 'Ici le nom de la feuille
dl = Ws_Source.Range("A65000").End(xlUp).Row
 With UserForm4.ListView1
        With .ColumnHeaders
               .Add , , "Nom", 80
               .Add , , "Age", 50
               .Add , , "Date Naissance", 90
               .Add , , "Jour", 40
               .Add , , "Mois", 60
               .Add , , "Année", 50
        End With
               .FullRowSelect = True
               .Gridlines = True
               .View = lvwReport
    For i = 2 To dl
        If Date <= Ws_Source.Cells(i, 10) Then
               .ListItems.Add , , Ws_Source.Cells(i, 1)
               x = .ListItems.Count
               .ListItems(x).ListSubItems.Add , , Ws_Source.Cells(i, 2)
               .ListItems(x).ListSubItems.Add , , Ws_Source.Cells(i, 3)
               .ListItems(x).ListSubItems.Add , , Ws_Source.Cells(i, 4)
               .ListItems(x).ListSubItems.Add , , Ws_Source.Cells(i, 5)
               .ListItems(x).ListSubItems.Add , , Ws_Source.Cells(i, 6)
        End If
    Next
End With
End Sub

Cordialement

 

[MJ13]

Re : Extraire Données de plusieurs feuil suivant date

Bonjour Vaucluse

Essaye peut-être comme cela:

If Mid(Date, 1, 5) = Mid(Ws_Source.Cells(i, 10), 1, 5) Then

 

[MuscatMimi]

Re : Extraire Données de plusieurs feuil suivant date

Bonsoir Mj13
Merci de ta contribution
Ok ça fonctionne,
mais c'est pas cela que je désire faire
en fait il faut ignorer les données dans Col K
en col K, il n'y aura aucune données, c'était un exemple
que j'ai pris d'un de mes Fichiers

La date de Réf est la Date du Jour

a +++++++++++

 

[MJ13]

Re : Extraire Données de plusieurs feuil suivant date

Re

mais c'est pas cela que je désire faire
en fait il faut ignorer les données dans Col K
en col K, il n'y aura aucune données, c'était un exemple
que j'ai pris d'un de mes Fichiers

La date de Réf est la Date du Jour

Bon après, c'est a toi de te débrouiller en fonction de ton besoin que je n'avais pas bien compris, mais logiquement, tu peux y arriver tout seul .

 

[MuscatMimi]

Re : Extraire Données de plusieurs feuil suivant date

re

bon je vais essayer

merci quand même

Cordialement

 

[MuscatMimi]

Re : Extraire Données de plusieurs feuil suivant date

Bonsoir Mj13

Aprés pas mal d'essai,j'y arrive pas

pas grave

Bonne soirée