filtre avec vba

[alessandro]

Bonjour a tous
je voudrai extraire seulement les items avec date inferieur a exemple 29072009
et reporter les items dans un nouveau feuil
ci-joint vous trouverez un petit exemple

merci de votre attention

Alessandro

 

[kjin]

Re : filtre avec vba

Bonsoir,
Par macro, résultat en feuille2

Sub Filtre()
For i = 2 To Range("N65000").End(xlUp).Row
    tDate = Cells(i, 14)
    If Not IsDate(tDate) Then
    sDate = Array(Mid(tDate, 1, Len(tDate) - 6), Mid(tDate, Len(tDate) - 5, 2), Right(tDate, 4))
    Cells(i, 14) = CDate(Join(sDate, "/"))
    End If
Next
Sheets(2).Cells.Clear
Sheets("Feuil1").Range("A1:N" & Range("A65000").End(xlUp).Row).AdvancedFilter Action:=xlFilterCopy, _
    CriteriaRange:=Sheets("Feuil1").Range("P1:P2"), CopyToRange:=Sheets(2).Range("A1"), Unique:=False

End Sub

Edit : je précise que j'ai pris la colonne N pour les dates, vu que l'on ne dispose d'aucune précision !
A+
kjin

 

[BOISGONTIER]

Re : filtre avec vba

Bonsoir,

Sans modifier la BD.

Critère:=DATE(DROITE(N2;4);STXT(N2;3;2);GAUCHE(N2;2))<$R$2

Sub extrait()
    Sheets("Foglio1").[A1:N10000].AdvancedFilter Action:=xlFilterCopy, _
        CriteriaRange:=Sheets("Foglio1").Range("P1:P2"), CopyToRange:=Sheets("Foglio2").Range("A1")
End Sub

JB
Formation Excel VBA JB

 

[alessandro]

Re : filtre avec vba

Bonsoir,
Par macro, résultat en feuille2

Sub Filtre()
For i = 2 To Range("N65000").End(xlUp).Row
    tDate = Cells(i, 14)
    If Not IsDate(tDate) Then
    sDate = Array(Mid(tDate, 1, Len(tDate) - 6), Mid(tDate, Len(tDate) - 5, 2), Right(tDate, 4))
    Cells(i, 14) = CDate(Join(sDate, "/"))
    End If
Next
Sheets(2).Cells.Clear
Sheets("Feuil1").Range("A1:N" & Range("A65000").End(xlUp).Row).AdvancedFilter Action:=xlFilterCopy, _
    CriteriaRange:=Sheets("Feuil1").Range("P1:P2"), CopyToRange:=Sheets(2).Range("A1"), Unique:=False

End Sub

Edit : je précise que j'ai pris la colonne N pour les dates, vu que l'on ne dispose d'aucune précision !
A+
kjin

BONSOIR
merci beaucoup vous etes genial
alessandro