Copier ligne différence date

Bonjour,

Je souhaiterai copier les tous les lignes d'un tableau dont la date est 14 jours et plus après la date d'aujourd'hui.

Dans mon Code E1 est la date d'aujourdhui et 14 est l'écart

J'ai du code qui me permet de copier en recherchant un mot, mais je n'ai aucun idée en fonction d'une date.

Sub Copie()
    Dim bL As Integer
    Dim x As Integer
    bL = Sheets("feuil1").Range("B" & Rows.Count).End(xlUp).Row: x = 1

    Dim c As Range
    For Each c In Sheets("feuil1").Range("B1:B" & bL)
        If c.Value < "E1-G1" Then
            c.EntireRow.Copy Worksheets("feuil2").Range("A" & x)
            x = x + 1
        End If
    Next c

End Sub  

Merci de votre aide

Bonjour,

Tu peux utiliser un filtre avancé

A+

Merci, C'est exactement ce que je cherche

Je ne connaissais pas les filtres avancés.

Bonne jourée

Bonsoir à tous,

Comme ceci :

Sub test()
Dim r As Range, x As Range
    With Sheets("Feuil1")
        y = .Range("e1").Value - .Range("g1").Value
        For Each r In .Range("a2", .Range("a" & Rows.Count).End(xlUp))
            If r.Offset(, 1).Value < y Then
                If x Is Nothing Then
                    Set x = r.Resize(, 2)
                Else
                    Set x = Union(x, r.Resize(, 2))
                End If
            End If
        Next
        If Not x Is Nothing Then
            x.Copy .Range("h1")
        Else
            MsgBox "Aucune date"
        End If
    End With
    Set x = Nothing
End Sub

klin89

Merci de votre aide,

Vous êtes super

Rechercher des sujets similaires à "copier ligne difference date"