XL 2016 Filtrer avancé entre deux Dates

[KTM]

Bonjour Chers tous
Je voudrais par macro trier ma plage sur place pour afficher que les Données comprises entre deux dates données .
Merci

 

[soan]

Bonjour KTM,

ton fichier en retour.

fais Ctrl e ➯ travail effectué, pour les 2 dates qui sont en D1 et D2 ;
bien sûr, il va de soi que tu peux mettre 2 autres dates.

soan

 

[KTM]

Bonjour Chers tous
Je voudrais par macro trier ma plage sur place pour afficher que les Données comprises entre deux dates données .
Merci

Merci
Mais je me suis mal expliqué.
En fait je voudrais supprimer les données non concernées
Encore Merci !!

 

[job75]

Bonjour KTM, soan, JM,

Quand on veut supprimer des lignes les filtres automatique ou avancé ne vont pas s'il y a beaucoup de plages disjointes.

Il faut utiliser la méthode formule + tri, voyez le fichier joint :

Sub Supprimer()
Application.ScreenUpdating = False
With Feuil1 'CodeName à adapter
    If .FilterMode Then .ShowAllData 'si la feuille est filtrée
    With .[A4].CurrentRegion
        .Columns(4).Insert xlToRight 'insère une colonne auxiliaire
        .Columns(4) = "=1/OR(RC[1]<R1C4,N(RC[1])>R2C4)" 'formule des critères
        .Columns(4) = .Columns(4).Value 'supprime les formules
        .Sort .Columns(4), xlDescending 'tri pur regrouper les 1 et accélérer
        On Error Resume Next 'si aucune SpecialCell
        Intersect(.Columns(4).SpecialCells(xlCellTypeConstants, 1).EntireRow, .Cells).Delete xlUp
        .Columns(4).Delete xlToLeft 'supprime la colonne auxiliaire
    End With
    With .UsedRange: End With 'actualise les barres de défilement
End With
End Sub

Bien noter que les formats sont conservés.

A+

 

[job75]

Pour tester j'ai recopié la plage A5: D27 sur 92 000 lignes.

La macro s'exécute chez moi en 0,62 seconde.

 

[KTM]

Pour tester j'ai recopié la plage A5: D27 sur 92 000 lignes.

La macro s'exécute chez moi en 0,62 seconde.

SUPPER!!!