Microsoft 365 Suppression lignes par rapport à une date

[pierrof]

Bonjour à tous,

Dans un nouveau projet j'aimerais mettre en forme un tableau en supprimant des lignes par rapport à une date.

En effet j'aimerais supprimer toutes les lignes du tableau si la date dans la colonne L est inférieur ou égale à la date de la cellule U2.

Je laisse un petit fichier exemple.

Merci de votre aide

Bonne journée

 

[job75]

Peut-être à cause d'une mise à jour tordue, Microsoft en fait assez souvent...

Non ce n'est pas ça car je viens de tester le fichier de ce post sur 156 000 lignes :

https://excel-downloads.com/threads...e-vba-pour-actualiser.20072893/#post-20557046

Le tri avec .EntireRow est très rapide.

 

[sylvanu]

Bonsoir Job,
Mais alors, d'où vient le souci ?

 

[mapomme]

Bonjour à tous 🙂,

Moi aussi, je veux participer et jouer🚴‍♀️.

Je n'ai pas examiné les autres méthodes (et c'est volontaire).
Le code est dans module1 et il est commenté.

Pour l'utiliser :
1) il faut initialiser les lignes sources

• en V6, choisir le nombre de lignes sources
• en V7, choisir le pourcentage des lignes sources à conserver à la fin du traitement
• cliquer sur le bouton Init pour lancer la création des lignes

2) lancer la suppression des lignes

• cliquer sur le bouton Hop!

Les résultats s'affichent dans le tableau structuré en U10

nota 1 : les résultats doivent selon les méthodes dépendre (ou non) du nombre de lignes initiales et du nombre de lignes à supprimer.

Sur ma bécane, on obtient :

 

[job75]

Bonsoir Job,
Mais alors, d'où vient le souci ?

Tout ce que je peux te dire c'est que si l'on n'insère pas de colonne il n'y a plus de problème :

Sub Supp_Lignes()
T0 = Timer  ' pour mesure du temps
 Application.ScreenUpdating = False
    Dim DL&
    Formule = "=IF(OR(L2<=$T$1,COUNTIF(Liste_Org!$A$2:$A$50,D2)=0),CHAR(1),0)"
    DL = Cells(Cells.Rows.Count, "L").End(xlUp).Row
    With Range("U2:U" & DL)
        .Formula = Formule
        .Value = .Value
        .EntireRow.Sort .Cells, xlAscending, Header:=xlNo
        On Error Resume Next
        .SpecialCells(xlCellTypeConstants, 2).EntireRow.Delete
    End With
    Columns("U").ClearContents
MsgBox Timer - T0 ' pour afficher temps d'execution
End Sub

s'exécute chez moi en 0,58 seconde.

 

[sylvanu]

Re,

Tout ce que je peux te dire c'est que si l'on n'insère pas de colonne il n'y a plus de problème :

Encore un truc qui restera incompréhensible.
Que les formules se mettent en A ou en U, en quoi cela ferait une différence.
( Le pb c'est qu'en U le fichier final pourrait avoir des datas, c'est pour ça que je préfère insérer ça en A )

Moi aussi, je veux participer et jouer🚴‍♀️.

Bien joué. 🙂
Sur mon 2007, j'obtiens les mêmes temps que sur les PJ précédentes.

 

[pierrof]

Je me sers de la colonne L pour trouver la dernière ligne à traiter.
Si cette cellule est vide alors il prend la dernière remplie ( donc N-1 ) et ne traite pas cette dernière ligne.

OK c'est clair merci encore