Macro Filtre date

[sircroco]

Bonjour,

Je cherche une macro toute simple qui permet, en indiquant les dates d'ordre de débuts et dates de fin dans l'userform (Cliquer sur le bouton), de copier et coller la feuille "vente" dans la feuille "ventefiltre" en prenant en compte ce filtre.

Par exemple j'écris dans l'userform
date de début : 09/07/2018
date de fin : 10/07/2018

J'aurai donc que trois lignes dans la feuille "Ventefiltre"
Le fichier est en PJ

Je vous adresse mes meilleurs salutations.

 

[BOISGONTIER]

Bonsoir,

Exemple

http://boisgontierjacques.free.fr/fichiers/Filtre/FiltreElaboreDate3b.xls

jb

 

[Lone-wolf]

Bonsoir sircroco, Jacques

Comme je travaillais dessus... ton fichier en retour.

EDIT: avec l'exemple que tu as donné, ce n'est pas 3 lignes mais 2; à moins que tu ais 9.5/07/2018.

 

[job75]

Bonjour sircroco, JB, Lone-wolf, le forum,

Une autre manière d'utiliser le filtre avancé :

Private Sub CommandButton1_Click()
If Not IsDate(TextBox1) Then TextBox1 = "": TextBox1.SetFocus: Exit Sub
If Not IsDate(TextBox2) Then TextBox2 = "": TextBox2.SetFocus: Exit Sub
ThisWorkbook.Names.Add "date1", CDbl(CDate(TextBox1)) 'nom défini
ThisWorkbook.Names.Add "date2", CDbl(CDate(TextBox2)) 'nom défini
With Sheets("Vente").[A1].CurrentRegion
    .Cells(2, .Columns.Count + 2) = "=AND(RC[-2]>=date1,RC[-2]<=date2)"
    .AdvancedFilter xlFilterCopy, .Cells(1, .Columns.Count + 2).Resize(2), Range(.Rows(1).Address)
    .Cells(2, .Columns.Count + 2) = ""
End With
End Sub

Bonne journée.

 

[job75]

Re,

Je préfère ceci :

Private Sub CommandButton1_Click()
If Not IsDate(TextBox1) Then TextBox1 = "": TextBox1.SetFocus: Exit Sub
If Not IsDate(TextBox2) Then TextBox2 = "": TextBox2.SetFocus: Exit Sub
ThisWorkbook.Names.Add "X", "={" & CDbl(CDate(TextBox1)) & ";" & CDbl(CDate(TextBox2)) & "}" 'nom défini"
With Sheets("Vente").[A1].CurrentRegion
    .Cells(2, .Columns.Count + 2) = "=AND(RC[-2]>=MIN(X),RC[-2]<=MAX(X))"
    .AdvancedFilter xlFilterCopy, .Cells(1, .Columns.Count + 2).Resize(2), Range(.Rows(1).Address)
    .Cells(2, .Columns.Count + 2) = ""
End With
End Sub

Les dates peuvent être interverties sans inconvénient.

A+

 

[Lone-wolf]

Bonjour job75

 

[sircroco]

Super merci à vous deux ! problème résolu

 

[job75]

Re,

merci à vous deux !

Y a comme un défaut

A+