VBA Userform Filtre entre 2 date

[xvella]

Bonjour à tous,
Bonjour Forum,

Voilà mon souci:
Depuis 18 ans j'utilise dans un userform un filtre élaboré qui marchait très bien
mais depuis le début du mois il refuse de fonctionner de la sorte.

Je peux le lancer manuellement mais plus de manière auto.

Est ce que le code aurait changer?
Bref je me casse les dents.

Grand besoin de votre aide pour comprendre?

Merci d'avance

PS: Le fichier contient une toute petite parcelle de la réalité mais le code que j'utilise depuis si longtemps est dedans.

 

[ChTi160]

Bonjour
voilà ce que j'ai modifié et semble répondre à ta demande
je crois que le Format des dates (pour le filtre )doit être ainsi "mm/dd/yyyy"
Voir Code modifié:

With Sheets("Donnée")
    .Range("B2:D2").ClearContents
    .Range("B2").Value = ">=" & Format(Me.txtDay1, "mm/dd/yyyy") 'Ici
    .Range("C2").Value = "<=" & Format(Me.txtDay2, "mm/dd/yyyy")'Ici
    .Range("D2").Value = Me.cboProd.Text
    .Range("G5:J57").ClearContents
    Set List = .Range("B4:E57")
    Set Cri = .Range("B1:D2")
    Set copy = .Range("G4:J57")
    List.AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Cri, Copytorange:=copy, Unique:=False
End With

jean marie

 

[xvella]

Merci Jean Marie,

Je test cette Nuit sur mon vieux fichier.
Mais pour ce qui est du petit sa roule sans problème.

Encore Merci et bonne fin de journée.

 

[ChTi160]

Re
Ok ! n'hésite pas .
jean marie

 

[xvella]

Donc le test de la nuit, à été positif.
C'était donc juste le format.
Merci encore et bonne journée.

 

[ChTi160]

Bonjour xvella
Ok !
n'hésite pas si besoin .
jean marie