Filtrer selon une date

[msingle]

Bonjour,

Pouvez-vous m'aider à filtrer un tableau selon une date introduite via un userform?

Voici mon fichier.

Merci d'avance.

 

[mapomme]

Re : Filtrer selon une date

Bonjour msingle,

Voir essai dans le fichier joint (dure semaine )

Le code (inspiré du site www.ozgrid.com):

Option Explicit

Private Sub CommandButton1_Click() 'impression du planning d'une journée
Application.ScreenUpdating = False
Dim djour As Date, ljour As Long
On Error GoTo Erreur_Date
  djour = CDate(TextBox1)
  ljour = DateSerial(Year(djour), Month(djour), Day(djour))
  ActiveSheet.ListObjects("Tableau1").Range.AutoFilter Field:=1, Criteria1:=">=" & ljour, _
      Operator:=xlAnd, Field:=1, Criteria2:="<" & ljour + 1
  Unload Me
  ActiveWindow.SelectedSheets.PrintPreview
  ActiveSheet.ListObjects("Tableau1").Range.AutoFilter Field:=1
  Exit Sub
  
Erreur_Date:
  MsgBox "Erreur de date"
  TextBox1.SetFocus
  TextBox1.SelStart = Len(TextBox1)
  Exit Sub
End Sub

 

[msingle]

Re : Filtrer selon une date

Bonjour mapomme,

Effectivement, dure semaine

La solution était dans la transformation correcte de la date.

A présent, je vais pouvoir me reposer puisque cela fonctionne à merveille!

Merci et bon we