Microsoft 365 Affichage lignes masquées - temps de traitement

Usine à gaz

XLDnaute Barbatruc
Supporter XLD
Bonjour à toutes et à tous,

Je reviens sur un sujet déjà traité bien des fois.

Mais ma demande concerne mon "usine à gaz" comme dirait mon cher Gérard.
Je ne m'en sors pas et je me permets de vous exposer mon souci :

Dans mon fichier de travail, il y a environ 50 00 lignes et une 50 aine de colonnes.
Quand je veux afficher toutes les lignes, je ne sais pas pourquoi mais ça prend beaucoup de temps, 20 à 30 secondes en moyenne
et j'ai a le faire des dizaines de fois par jour. C'est beaucoup de temps perdu.


Dans un fichier vierge copié toutes mes lignes "uniquement les valeurs" pour tester si le problème est le même.
Dans ce fichier vierge, j'ai utilisé les codes suivants :
VB:
Sub haut_0()
Rows("3:35000").RowHeight = 0
End Sub
Sub haut_20()
Rows("3:35000").RowHeight = 15
End Sub

Sub Masquer()
Rows("3:35000").EntireRow.Hidden = True
End Sub
Sub Masquer1()
Rows("3:35000").EntireRow.Hidden = False
End Sub

Sub critere1()
Rows("2:2").Select
Selection.AutoFilter Field:=2, Criteria1:=Format(Range("a1"))
Exit Sub
End Sub

Sub Macro3()
Rows("2:2").Select
Selection.AutoFilter
End Sub

Et ces p'tits codes fonctionnent super ... c'est instantané !
(j'ai mis 22 colonnes colorées en vert clair)

Pourtant, dans mon fichier de travail
:
- pas de cellules fusionnées,
- pas de formatage spécial,
- pas de formules - que des valeurs
- 9 colonnes colorées en vert clair sur 45,
et quand je veux afficher toute les lignes, je désactive les codes avec :
Application.EnableEvents = False
Application.ScreenUpdating = False

J'ai fait un tas de tests ... de recherches ...
Je n'arrive pas à comprendre pourquoi c'est si long dans mon fichier de travail ?
Auriez-vous une idée sur ce qui pourrait occasionner un si long temps de traitement ?

Avec mes remerciements,
Je vous souhaite à tous et à toutes un beau dimanche,
Amicalement,
lionel,
 
Dernière édition:

James007

XLDnaute Barbatruc
Bonjour,

Pour info, le meilleur expert mondial dans ce domaine est : Charles Williams

et son site est truffé de milliers d'astuces pour gagner du temps ...


En espèrant que cela t'aide
 

Usine à gaz

XLDnaute Barbatruc
Supporter XLD
Bonsoir à tous ceux qui m'ont aidé,
Bonsoir à toutes et à tous,

J'ai enfin trouvé ce qui ralenti tant les tris dans mon fichier !
J'ai fait tant de recherches partout ainsi que dans mon fichier ...
En fait c'est simple, ce sont uniquement les formatages qui ralentissent.

Dans mon fichier, j'ai fait la copie "valeurs" de ma feuille en cause dans un autre feuille vierge ...
et ça fonctionne en instantané ... ça c'est fait :)

Voici ci-dessous l'image de ma feuille - 23 colonnes et évidemment, actuellement environ 60 000 lignes :
Sans titre.jpg


Le souci est que je suis obligé de formater mes cellules sinon elles ne seraient pas lisibles.
Je ne vois pas comment résoudre le problème !

Auriez-vous des pistes de solutions ?
Je vous remercie vivement,
Amicalement,
lionel,
 

sylvanu

XLDnaute Barbatruc
Supporter XLD
Bonsoir,
Donc soit c'est formaté et ça rame, soit c'est non formaté et c'est rapide ? Drole de choix !

Est ce que tous vos formats étaient utiles ? Si non, ne formater que le nécessaire.
Aviez vous des formatages "spéciaux", genre formats personnels ?
Ne formatter qu'une colonne et chaque fois rééssayer de masquer les lignes. Ce n'est peut être qu'un formatage qui pose problème. Mais commencer par mettre tout en format standard de façon à partir sur une base saine.
 

sylvanu

XLDnaute Barbatruc
Supporter XLD
Re,
Un petit script permettant de savoir combien de formats sont utilisés :

Il est possible qu'il y ait beaucoup trop de formats car dupliqués N fois, alors qu'on pourrait appliquer ce format sur toute la colonne par exemple.
 

eriiic

XLDnaute Barbatruc
Bonjour,

tu parles vraiment de formats et pas de MFC (mise en forme conditionnelle) comme demandé au post #3 ?

Pour les désactiver (les MFC) temporairement :
VB:
Worksheets("ta_feuille").EnableFormatConditionsCalculation = False
à partir d'excel 2013 seulement
eric
 

eriiic

XLDnaute Barbatruc
Inquire n’est disponible que dans les éditions Office professionnel plus et Office 365 ProPlus
Si tu as ça dans ton entourage.
Ou sinon le déposer sur un site de partage et donner le lien en MP si données personnelles.

Mais même si ça améliore, ça ne sera pas pérenne. Commence à envisager d'autres façons de faire.
Par exemple tu n'as peut-être pas besoin des 10000 lignes en même temps.
N'afficher qu'une partie d'une BDD.
eric
 

Discussions similaires

Réponses
3
Affichages
190

Statistiques des forums

Discussions
311 733
Messages
2 082 019
Membres
101 872
dernier inscrit
Colin T