Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

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

youns33

XLDnaute Nouveau
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
 

Pièces jointes

  • Supprimer toutes les lignes contenant au moins un des mots.xlsm
    10.3 KB · Affichages: 88

job75

XLDnaute Barbatruc
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+
 

Pièces jointes

  • Supprimer toutes les lignes contenant au moins un des mots(3 bis).xlsm
    3.9 MB · Affichages: 43

job75

XLDnaute Barbatruc
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.
 

job75

XLDnaute Barbatruc
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+
 

Pièces jointes

  • Supprimer toutes les lignes contenant au moins un des mots(4).xlsm
    5.1 MB · Affichages: 37

job75

XLDnaute Barbatruc
Re,

Bon sur le fichier (3) du post #13 VBA me dit qu'il y a 65530 liens :
Code:
Sub a()
MsgBox Me.Hyperlinks.Count
End Sub
Je ne cherche pas à savoir où ils sont...

Edit : pour les trouver :
Code:
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+
 
Dernière édition:

job75

XLDnaute Barbatruc
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+
 
Dernière édition:

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…