Bonjour,
une âme charitable m'avait donné une formule de filtre avec la date et l'heure dans la même cellule.
Dans mon nouveau fichier, j'ai la date et l'heure dans des cellules séparées.
En gros je dois filtrer à J-1 19h00.
Je vous joins le fichier existant, si vous pouvez m'aider à modifier la formule.
https://www.excel-pratique.com/~files/doc/predator_v10.xls
Private Sub CommandButton2_Click()
With Sheets("données")
.Range("A1:AO" & .[A65000].End(xlUp).Row).Name = "base"
.[IV1] = "date"
.[IV2] = ">" & CDate(Format(Date - 1, "dd/mm/yyyy") & " 19:00")
End With
On Error Resume Next
Sheets(Format(Date, "dd_mm_yy")).Select
If Err <> 0 Then Sheets.Add after:=Sheets(Sheets.Count)
On Error GoTo 0
With ActiveSheet
.Name = Format(Date, "dd_mm_yy")
.[A1] = "bande": .[B1] = "slot": .[C1] = "serveur": .[D1] = "robot": .[E1] = "date": .[F1] = "heure"
Sheets("données").Range("base").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Sheets( _
"données").Range("IV1:IV2"), CopyToRange:=.Range("A1:F1"), Unique:=False
End With
Sheets("données").[IV1:IV2].ClearContents
Sheets("detail").Range("A2:E1000").ClearContents
Sheets(Format(Date, "dd_mm_yy")).Columns("A:F").Copy Sheets("Detail").Columns
End Sub