Microsoft 365 VBA Supprimer lignes en fonction des valeurs d'une cellule

[nikholas928]

Bonjour à tous,

Je souhaiterai supprimer des lignes dont les valeurs de la colonne E sont strictement inférieures à 511000 et strictement supérieure à 511999. En somme je souhaite conserver les lignes dont les valeurs sont 511***
Je vous joins mon fichier afin d'avoir une idée dans le sens où j'ai testé une macro assez basique (Module 1) mais le problème étant que le nombre de lignes est très conséquent (environ 90 000 lignes) donc c'est beaucoup trop long dans l’exécution.
Auriez-vous une macro adaptée à cette taille de fichier que je pourrai utiliser ?

Merci beaucoup pour votre aide,

Bonne journée,

 

[Oneida]

Bonjour,

Je vous joins mon fichier afin d'avoir une idée

Ce ne sont pas les idees qui manque mais votre fichier

 

[nikholas928]

Désolé, je n'ai pas fait attention au message d'erreur, le fichier était trop volumineux.
J'ai changé son format.

 

[sylvanu]

Bonjour Nikholas, Oneida,

strictement inférieures à 511000 et strictement supérieure à 511999.

J'ai traduit par un OU, et non un ET.
Un essai en PJ avec ce que j'ai compris. Sur mon PC cela met moins d'une seconde pour le fichier traité.

Sub SuppLignes()
T0 = Timer                                              ' A supprimer, juste pour mesurer le temps
    Application.ScreenUpdating = False                  ' On fige l'écran
    DL = [A1000000].End(xlUp).Row                       ' Dernière ligne de Résultat
    Columns("A:A").Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove ' Insertion colonne en A
    f = "=SI(OU(F2<511000;F2>511999);CAR(1);0)"         ' Formule utilisée. Attention ajouter 1 aux colonnes pour compenser nouvelle colonne en A.
    With Range("A2:A" & DL)                             ' Plage où coller la formule en colonne A qui sera triée
        .FormulaLocal = f                               ' Coller formule
        .EntireRow.Sort .Cells, xlDescending            ' Tri pour regrouper et accélérer
        .SpecialCells(xlCellTypeFormulas, 2).EntireRow.Delete  ' Suppression des lignes concernées
    End With
    [A:A].Delete Shift:=xlToLeft                        ' Effacement colonne A
    Columns.AutoFit                                     ' Ajustement largeurs colonnes
    With ActiveSheet.UsedRange: End With                ' Ajustement barres de défilement
MsgBox "Temps d'éxecution : " & Round(Timer - T0, 3) & "s"  ' A supprimer
End Sub

 

[Phil69970]

Bonjour à tous

Edit :Bonjour Sylvain ma solution est un peu plus lente que la tienne 2,2 s sur mon PC
Edit 2 : @sylvanu ton fichier fige excel sur mon PC

@

Je te propose ce fichier

Merci de ton retour

@Phil69970

 

[sylvanu]

Bonsoir Phil,
Vous êtes sous quelle version d' XL ?
Moi, je suis sous Win10 XL2007, et j'obtiens les résultats suivant :
Sylvanu

Phil

Par contre aviez vous enregistré ma PJ avant de l'exécuter ?
J'ai remarqué qu'une macro lancée d'un fichier directement issu d'internet sans être enregistré est plus lent que si ce fichier était enregistré avant de lancer la macro.

 

[Phil69970]

Sylvain

Je suis sur W10 et excel 2010 64 Bits

J'ai lancé ta macro du répertoire C:\Users\Phil\AppData\Local\Temp

Je l'ai fait 2 fois avec les mêmes résultats ~85 s et 2.2 s pour moi sur mon PC
J'ai mis mon fichier dans le même répertoire pour être dans des conditions identiques sur les 2 fichiers

@Phil69970

 

[sylvanu]

Phil,
Alors je ne comprends pas.
J'utilise une méthode qui est utilisée sur de nombreux exemples, et elle est censé être très rapide.
Quand Nikholas passera par là, il pourra vérifié sur son PC les résultats ... et nous les donner.
J'ai mis en PJ votre fichier avec la mesure de temps, Nihkolas pourra comparer.

 

[Phil69970]

Sylvain

Ce qui compte c'est que le demandeur est 2 solutions à lui de voir laquelle est la plus rapide sur son PC
Je ne doute pas un instant que sur ton PC ton fichier est très largement plus rapide que mon fichier

Je sors ce soir donc on en reparle demain éventuellement

@Phil69970

 

[sylvanu]

Phil,
Qu'importe qui est le plus rapide. Ce qui me chagrine c'est qu'on trouve des temps véritablement différent sans explications.
Si encore on trouvait 20 30% de plus, ce serait lié à la version XL ou à la bécane, mais là il y a un truc qui coince.
Et ne pas comprendre, cela revient demain à ce heurter au même écueil.
Bonne soirée.

 

[sylvanu]

D'ailleurs, en essayant de comprendre, j'ai trouvé une optimisation en évitant de créer une colonne.
Sur mon PC je gagne 20% du temps :

 

[Phil69970]

Sylvain

Avec ton fichier du post # 11 ta macro s’exécute en 0.688 s sur mon PC

Et la mienne toujours en 2.258 s sur mon PC

Et ta 1ere version toujours interminable en ~86 s sur mon PC

A priori c'est cette ligne qui rame sur mon PC (Sur ta 1ere version)

.EntireRow.Sort .Cells, xlDescending ' Tri pour regrouper et accélérer

@Phil69970