Microsoft 365 Affichage lignes masquées - temps de traitement

[Usine à gaz]

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 :

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,

 

[James007]

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

Advanced Microsoft Excel Consultancy and Solution Development -Decision Models

Decision Models Advanced Excel Consultancy Services specialise in Market Planning, Forecasting, Sizing and Segmentation, Product or Service Launch, Introductions and Pricing.

www.decisionmodels.com

En espèrant que cela t'aide

 

[Usine à gaz]

Bonjjour James007,
Merci pour cette info
lionel,

 

[Usine à gaz]

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 :

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]

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]

Re,
Un petit script permettant de savoir combien de formats sont utilisés :

Nombre de formats de cellule trop élevé Excel 2010

Bonjour, depuis plusieurs semaines, je suis franchement handicapé par le message d'erreur "Nombre de formats de cellules trop élevé" qui apparaît comme suit...

forum.excel-pratique.com

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.

 

[Usine à gaz]

Bonsoir Sylvanu,

Merci d'être encore là et merci pour ton lien, je vais voir ça
lionel,

 

[sylvanu]

oups ! Le script compte le nombre de styles et non le nombre de format. Donc inutile. Sorry.

 

[Usine à gaz]

Pas de souci, je n'y étais pas encore allé

 

[eriiic]

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 :

Worksheets("ta_feuille").EnableFormatConditionsCalculation = False

à partir d'excel 2013 seulement
eric

 

[Usine à gaz]

Bonsoir eriiiic,
OUI, je parle de formats

 

[eriiic]

sur 2019 et sans doute 365 (2016 ?) tu peux activer un module optionnel Inquire :

à voir si ça améliore

 

[Usine à gaz]

Merci eriiiic, je vais regarder

 

[eriiic]

Garde une copie de l'original bien planquée, des fois ça fait pire que mieux...

 

[Usine à gaz]

Malheureusement il me semble que "inquire" n'est pas dispo en office 365 sur excel 2016 sniff.

 

[eriiic]

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