Modification formule, date et heure sur 2 cellules

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

C'est si compliqué que ça ou tout le monde est en vacances

En attendant d'avoir une solution plus élégante, j'ai fais la somme de la date + heure dans une autre cellule et j'utilise celle ci pour faire le filtre.

Salut le forum

Ta macro adaptée pour deux cellules

Private Sub CommandButton2_Click()
With Sheets("données")
.Range("A1:AO" & .[A65000].End(xlUp).Row).Name = "base"
.[IU1] = "date"
.[IU2] = ">" & CDate(Format(Date - 1, "dd/mm/yyyy"))
.[IV1] = "heure"
.[IV2] = ">19:00: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("IU1:IV2"), CopyToRange:=.Range("A1:F1"), Unique:=False

End With
Sheets("données").[IU1:IV2].ClearContents
Sheets("detail").Range("A2:E1000").ClearContents
Sheets(Format(Date, "dd_mm_yy")).Columns("A:F").Copy Sheets("Detail").Columns
End Sub

Mytå

Merci, je vais regarder ça.