Macro Intervalle de date et heure qui ne fonctionne pas

[F2T]

Bonjour,

j'ai la macro suivante qui ne fonctionne pas :

elle retourne un tableau vide, cependant quand je retourne dans le champ tout est bien renseigné et lorsque je clique ok, le filtre fonctionne avec les données bien renseignés par la macro?
Vraiment l'intrigue.
Quelqu'un aurait il deja rencontré ce probleme.

ci apres la ligne de code :

Sub Macro3()
'
' Macro3 Macro

    Range("E35").Select
    Sheets("TB").Select
    ActiveSheet.Range("$A$10:$CD$33").AutoFilter Field:=25, Criteria1:= _
        ">=" & Format(Date, "dd/mm/yy") & "06:00", Operator:=xlAnd, Criteria2:="<=" & Format(Date, "dd/mm/yy") & "10:00"
  
      
End Sub

Merci pour l'aide.

 

[Dranreb]

Bonjour.
À tout hasard essayez ça :

    ActiveSheet.Range("$A$10:$CD$33").AutoFilter Field:=25, Criteria1:= _
        ">=" & Date + 6 / 24, Operator:=xlAnd, Criteria2:="<=" & Date + 10 / 24

Remarque: n'aura des chances de marcher qu'à condition que les cellules vaillent bien des durées en jours (les parties fractionnaires étant des heures) écoulées depuis le 1er janvier 1900, restitués à l'affichage par un format de cellule date et heure. Si elles valent des textes, je ne crois même pas que ce soit possible de filtrer comme ça.

 

[F2T]

Merci Dranreb, j'ai réessayer le code premier et maintenant il fonctionne directement... donc plus de soucis... merci pour le message