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

Staple1600

XLDnaute Barbatruc

• 13 Décembre 2017

• #16

Re,

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

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 13 Décembre 2017

• #17

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

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 14 Décembre 2017

• #18

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.

 

Vote positif 0 Vote négatif

L

laetitia90

XLDnaute Barbatruc

• 14 Décembre 2017

• #19

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

post 17
1.86 seconde

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 14 Décembre 2017

• #20

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

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 14 Décembre 2017

• #21

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: 14 Décembre 2017

Vote positif 0 Vote négatif

DoubleZero

XLDnaute Barbatruc

• 14 Décembre 2017

• #22

Bonjour à toutes et à tous,

job75 à dit:

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

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 14 Décembre 2017

• #23

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: 14 Décembre 2017

Vote positif 0 Vote négatif