Extraire des lignes en fonction d'une date et d'un nom

Bonjour,

Je recherche une formule pour extraire des lignes en fonction d'une date et d'un nom

L'extraction doit se faire sur une autre feuille.

Je mets un fichier pour donner une idée, dans la feuille CONTR plusieurs colonnes avec des données (dates, nom, etc...)

L'extraction doit se faire dans autre feuille PV en fonction d'une date et d'un nom (sélectionnable dans la feuille PV), plusieurs lignes seront extraites, puisque plusieurs lignes correspondent aux critères.

Merci

Cdlt

Bonjour ,

à tester,

Sub copy_filtre_Date()
Dim sh1, sh2
Set sh1 = Sheets("CONTR")
Set sh2 = Sheets("PV")
Sheets("PV").Range("A3:E" & Cells(Rows.Count, 1).End(xlUp).Row + 1).Clear
dt = CDate(Format(sh2.Range("C1").Value, 0))
x = DateSerial(Year(dt), Month(dt), Day(dt))
With sh1.Range("A1")
    If Not sh1.FilterMode Then
      .AutoFilter
    End If
    .AutoFilter Field:=2, Criteria1:="=" & x
    .AutoFilter Field:=1, Criteria1:=sh2.Range("B1")
    .Range("_FilterDatabase").SpecialCells(xlCellTypeVisible).Copy sh2.Range("A2")
    .AutoFilter
End With

Set sh1 = Nothing
Set sh2 = Nothing
End Sub

édit: ajout du fichier

Bonjour

Une proposition par formules matricielles

Cordialement

Merci, les 2 solutions fonctionnent parfaitement,

Bonne journée

Merci pour ce retour, au plaisir!

pour clôturer le fil, cliquer sur le bouton V vert du post à coté du bouton EDITER, merci!