XL 2016 Comment supprimer toutes les lignes contenant au moins un des mots

[youns33]

Bonjour,

Alors j'ai trouvé des post pour supprimer les lignes contenant un mot, mais mon souci est que j'aimerais supprimer d'un coup toutes les lignes contenant au moins un des mots d'une liste que l'on pourrait modifier ou allonger à souhait.

J'ai mis un fichier en PJ pour que se soit plus parlant.

En feuil1 j'ai mon tableaux avec les lignes à supprimer et en feuil2 colonne A j'ai ma liste (customisable) avec les suite de caractères à rechercher pour supprimer les lignes correspondantes en feuil1.

Donc si un expert à une petite macro qui irai bien je suis preneur.

Merci d'avance à tous

 

[Staple1600]

Re,

Je posais justement la question pour savoir si cela valait la peine de tenter la chose.
Maintenant j'ai la réponse.

 

[job75]

Re,

Dans ce fichier (3 bis) j'ai supprimé tous les liens hypertextes.

Le fichier s'ouvre maintenant rapidement et la macro s'exécute en 8 secondes.

J'espère qu'avec ça c'est clair.

A+

 

[job75]

Bonjour le forum,

J'aimerais bien savoir ce que donnent mes fichiers (3) et (3 bis) posts #13 et #17 sur un ordi "de course".

Le mien est lambda : 1,7 GHz et 4,00 Go de RAM - Win 10 Excel 2013.

Bonne journée.

 

[laetitia90]

bonjour tous
par curiosité j'ai testé
post 13
56 secondes ....temps ouverture fichier trés long

post 17
1.86 seconde

 

[job75]

Re,

Bonjour Laetitia et merci beaucoup

Bah je n'avais pas fait attention, sur mon fichier (3) post #13 à partir de A26 ce ne sont plus des liens hypertextes, le copier-coller de la plage A2: D19 ne les avait pas créés !

J'ai donc voulu les créer par une boucle mais on ne va pas plus loin que A65531 : il ne peut pas y avoir plus de 65530 liens hypertextes dans une feuille de calcul (Microsoft indique une limite de 66530 mais c'est une erreur).

Ce fichier (4) avec donc 65530 liens ne change rien : quasiment le même poids et quasiment la même durée d'exécution de la macro.

A+

 

[job75]

Re,

Bon sur le fichier (3) du post #13 VBA me dit qu'il y a 65530 liens :

Sub a()
MsgBox Me.Hyperlinks.Count
End Sub

Je ne cherche pas à savoir où ils sont...

Edit : pour les trouver :

Sub b()
Dim i&
For i = 26 To 199999
If Cells(i, 1).Hyperlinks.Count Then Cells(i, 5) = 1
Next
End Sub

Ils sont groupés pas paquets de 6 à partir de la ligne 38.

A+

 

[DoubleZero]

Bonjour à toutes et à tous,

...J'aimerais bien savoir ce que donnent mes fichiers (3) et (3 bis) posts #13 et #17 sur un ordi "de course"...

jb75, je ne sais dire si mon PC est "de course" : 3,19 GHz, 4,00 Go de RAM - Win 10 Excel 2013.

Tout comme Fée Laetitia , le fichier déposé en # 13 s'ouvre trèèèès lentement.

A bientôt

 

[job75]

Bonsoir chère ânesse,

Heureux de te revoir, ça faisait un bout de temps, merci pour tes tests.

La durée d'exécution dépend beaucoup de la fréquence du processeur, mais aussi de la version Excel.

Sur mon ancien ordi 2,4 GHz 4,00 Go RAM - Win 10 Excel 2010 j'obtiens 153 s et 9 s.

A+