Discussion :

[retraite83]

Bonjour,

j'ai écrit une petite macro (ma première !) pour supprimer les lignes dans une feuille excel 2016 ayant un X en colonne AN (39)

ma macro marche très bien mais il faut plus de 7 minutes pour qu'elle s'exécute, il y a 5000 lignes mais cela me semble très long, y-a-t-il un moyen de faire mieux ?
Merci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Sub supprlineam()
Dim i As Integer
For i = 5000 To 1 Step -1
If Cells(i, 39).Value = "X" Then
Cells(i, 39).EntireRow.Delete
End If
Next i
End Sub

[Pierre Fauconnier]

Salut.

Ajouter en début de macro

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
application.screenupdating = false
application.calculation = xlcalculationmanual

et en fin de macro

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
application.screenupdating = true
application.calculation = xlcalculationautomatic

Ca devrait déjà aller beaucoup plus vite, car le rafraîchissement d'écran prend du temps, et le calcul automatique aussi.
Idéalement, il faudrait ajouter une gestion d'erreur, mais teste déjà si ta macro est plus performante ainsi.

[retraite83]

oui merci cela va déjà beaucoup plus vite, 2 mn au lieu de 7, c'est parfait

ai-je mis les lignes au bon endroit ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Sub supprlineam()
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
Dim i As Integer
For i = 5000 To 1 Step -1
If Cells(i, 39).Value = "X" Then
Cells(i, 39).EntireRow.Delete
End If
Next i
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
End Sub

[Pierre Fauconnier]

D'habitude, on les met après les Dim... mais ça n'a guère d'importance ici.

2 minutes, c'est encore un peu long. Si le traitement ne doit pas être effectué trop souvent (à l'appréciation de l'utilisateur), c'est ok. Si ce délai devient pénalisant, on pourrait trier sur la colonne qui contient X, repérer le premier X, les compter, et supprimer en une seule passe. Ce serait alors quasi instantané.

NB: Merci de penser aux balises de code...

[retraite83]

Merci, 2 mn ça peut convenir d'autant que je ne peux pas trier sur les X puisque le but est de supprimer les lignes qui ont ce X en gardant la séquence des lignes
je vais mettre les lignes après le DIM

[joe.levrai]

Bonjour,

en ajoutant une colonne qui numérote tes lignes, tu peux ensuite trier la colonne qui contient les "X", faire la suppression d'un seul bloc, et retrier tes lignes sur la colonne de numérotation pour retrouver l'agencement initial

[retraite83]

Oui bonne idée,
je vais tester et prendre la meilleure solution
je ferme la discussion comme résolue

[NVCfrm]

Merci, 2 mn ça peut convenir d'autant que je ne peux pas trier sur les X puisque le but est de supprimer les lignes qui ont ce X en gardant la séquence des lignes
je vais mettre les lignes après le DIM

2 mn, rien que pour 5000 lignes à traiter, si le pc n'est pas en cause, la méthode l'est.

Petite piste avec l'outil Filtre : via interface graphique, il est possible de réalise l'opération en quelques secondes. Via macro en 1 seconde ou moins.

[Invité]

Comme j'ai dit tout à l'heure faut voir et je rejoins NVCfrm le contexte peut exiger une autre approche!

[Invité]

Bonjour,
sur des feuille de cette taille, j’applique un filtre actif ou élabore <>"x" vers une nouvelle feuille! ensuite je supprime la feuille et je renomme la nouvelle feuille avec l’ancien nom!

[joe.levrai]

Je le filtre avancé avec paramètre d'export !

[retraite83]

Merci de toutes vos remarques d'expert, mais c'est ma première macro ! un peu du chinois pour moi, déjà faire cette macro n'a pas été évident, rappelez vous la 1ere que vous avez écrite!
Alors sans plus d'aide je vais me contenter de 2 mn
Merci à tous quand même

[Invité]

C'est moi mais dans une autre discutions ou en plus j'ai été tout simplement censuré j'avais prévenu!

Non seulement mais remarque était constructive, pertinente et argumentées!

[Marc-L]

Bonjour, bonjour !

Avis non pas d'expert mais juste un retour d'expérience …
Hier j'ai effacé mon post sur ce fil car Joe dans le post #6 avait déjà émis une idée proche.
Mais suite aux différentes remarques, je me dois de l'appuyer !

Au lieu d'offrir des solutions techniques à un niveau que souvent le demandeur ne pourra maintenir,
quand le B-A-BA d'Excel dispose déjà de tout le nécessaire pour solutionner le besoin exprimé
donc le demandeur pouvant déjà être à même de le réaliser manuellement - le cas ici - et dans un temps satisfaisant,
je préfère cette voie de débutant au lieu d'une autre dite experte.

En utilisant une colonne supplémentaire pour différencier les lignes à conserver de celles à supprimer
via une simple formule de calculs (souvent niveau débutant) retournant respectivement 0 ou 1 ou bien FAUX ou VRAI,
il suffit juste de trier la plage sur cette colonne, alors les lignes à supprimer sont regroupées en fin de tableau
et peuvent être donc supprimées en un bloc en une seule opération et donc sans recourir à une boucle lente !

Quand j'ai vu un stagiaire réaliser cette manipulation en moins d'une minute sur une grosse base de données
alors que l'usine à gaz d'un pompeux personnage effectuait la même procédure via une boucle en plus de dix minutes,
je me suis dit que la voie du stagiaire ne prendrait alors pas trente secondes par code
et qu'à l'avenir je devrais ne pas oublier de « Penser Excel avant VBA » !

Il y a déjà eu démonstration de cette simple voie dans des discussions de ce forum.

Et même si une méthode avancée / experte est plus efficace,
faut-il encore ne pas oublier la capacité du client à maintenir une telle procédure …

Et si nous ne travaillons pas pour GDF, évitons alors les productions gazières !

Voilà, voilà !

___________________________________________________________________________________________________________

Je suis Paris, Barcelone, London, Manchester, Egypte, Stockholm, Istanbul, Berlin, Nice, Bruxelles, Charlie, …

[Pierre Fauconnier]

[INDENT=2][...]

Je ne peux que plussoier...

[Invité]

Bonjour,
Si ta feuille Excel ne dispose pas de formules tu peux utiliser un filtre élaboré.

Il collera tous ce que tu veux garder dans un autre onglet. Il ne te restera qu'à remplacer l'existant par le nouveau.

C'est quasi instantané.

[retraite83]

Il y a beaucoup de formule dans cette feuille (mise en page pour être éditée)

[Pierre Fauconnier]

Bonjour,
sur des feuille de cette taille, j’applique un filtre actif ou élabore <>"x" vers une nouvelle feuille! ensuite je supprime la feuille et je renomme la nouvelle feuille avec l’ancien nom!

Je doute que ces manipulations dans Excel prennent moins de deux minutes...

Après, on peut le faire en VBA mais honnêtement, devoir créer la plage de critères, copier les entêtes sur une autre feuille, extraire, supprimer (sans tenir compte que de façon générique, on peut avoir autre chose sur la feuille, bouton, tableau décalé par rapport à a1, ...), renommer... Ca me semble prendre la Grosse Bertha pour tuer une mouche, non?

Si vraiment on veut aller plus vite, ma solution par tri sur les x couplée à celle de Joe pour retrouver l'ordre après suppression me semble un peu moins tordue et un peu plus accessible...

Je rejoins assez notre ami retraité sur la sagesse de ses propos. Ca fonctionne, ca ne va pas aussi vite que ça pourrait mais c'est ok pour l'utilisateur? Nickel, il n'y a rien à changer.

Avec un traitement qui passerait de 2 minutes à 1 seconde, et si son traitement est réalisé une fois par semaine et qu'il passe une heure à essayer de mettre en place les solutions plus rapides proposées, il ne sera gagnant que dans 30 semaines... S'il passe deux heures, il lui faudra plus d'un an pour rentabiliser son investissement... Restons pragmatiques...

[Invité]

http://philippetulliez.developpez.co...dvancedfilter/

[Invité]

bonjour Pierre,
faut voire!