Microsoft 365 filtrages temps exécution très long

[Usine à gaz]

Bonjour à toutes et à tous,
J'ai un gros problème de tris que je ne parviens pas à résoudre malgré mes recherches et mes tentatives.
Je me permets de me tourner une fois de plus vers vous pour demander de l'aide.

Procédure
Mon fichier de travail contient beaucoup de lignes (environ 60.000 actuellement) que je dois classer ,en fonction des urgences de rappels.
Si mon souci retient votre attention, vous le verrez dans le classeur test joint, il y a 5 types de classements des appels (+ Afficher toutes les lignes).
A appeler URGENT :
- aujourd’hui,

A appeler BIENTÔT :
- dép. A Rapp (dates dépassées sur rappels à faire),
- dép. Rép. (dates dépassées sur Répondeurs),
- OK RdV (vendeurs ayant donné le OK RdV au Rappel),
- les autres (s/A Rapp. et Repond.).

J'ai 5 boutons pour les tris permettant d'afficher UNIQUEMENT les lignes de rappels.
Bien évidemment les lignes des rappels URGENTS sont priorisées.

Pour afficher les lignes voulues, j'ai codé en filtrage avec classement (macros AffichageSuivisAppels).

Si je supprime les formatages de toutes les lignes à partir de la ligne 7 ... plus de problème les filtrages sont instantanés.

Mais, afin de pouvoir avoir une visibilité minimum pour consulter une ligne avant appel, , je dois conserver le formatage des lignes pour les colonnes :
- J N° Client,
- S commentaires après appels,
- T et V Dates de rappels,
- X situation au dernier appel,

Et là, ça ne va plus du tout, les filtrages sont très longs et cela me cause une perte de temps très importante.
Je me suis permis de joindre un fichier test "un peu gros" environ 6.500 lignes.
Si vous testez, vous pourrez constater les temps de filtrages pour 6.500 lignes.
Alors vous pourrez imaginer pour 60.000 et plus.

En espérant avoir été clair (il m'arrive souvent de ne pas l'être LOL), je joins le fichier test dans l'espoir d'une solution
Un grand merci déjà pour m'avoir lu.

Je vous souhaite une bonne fin de dimanche.
Amicalement,
lionel,

 

[job75]

Bonjour Lionel,

En déclarant Public la variable P ce fichier (3) fera gagner quelques dixièmes de seconde :

Public lig&, P As Range, t 'mémorise les variables
'---'
    If P Is Nothing Then Rows("7:" & Rows.Count).ClearFormats Else P.ClearFormats 'RAZ
    Set P = Intersect(ActiveWindow.VisibleRange.EntireRow, Range("A7:A" & Rows.Count)).SpecialCells(xlCellTypeVisible).EntireRow

A+

 

[Usine à gaz]

Bjr Gérard,
LOL tjrs égal dans la précision ... et la moindre seconde gagnée est importante pour moi !
Encore un gros merci
lionel,

 

[Usine à gaz]

lol, je ne dirai pas que je vois vraiment la différence sur un test ou 2 mais ça me semble rapide et sur le nombre de répétitions des actions dans une journée, ce sera certainement un précieux temps d'exécution de gagné.
Encore un grand MERCI à toi
lionel,

 

[job75]

Comme je l'ai dit la différence est de quelques dixièmes de seconde sur 60 000 lignes.

Pour tester téléchargez les fichiers zippés déposés sur cjoint.com en cliquant sur ce lien :

https://cjoint.com/c/JBAoCI0UdyQ

 

[Usine à gaz]

Bonjour Gérard, Le Forum,
Encore merci Gérard c'est fait. Je testerai ce soir et je reviendrai
lionel

 

[Usine à gaz]

Bjr Gérard, le Forum,
lol "vieux motard que j'aimais",
Je viens de m'apercevoir que je ne suis pas revenu comme promis au poste 20.
Plates excuses, je croyais l'avoir fait;
Effectivement même avec 60.000 lignes c'est très rapide et c'est super pour moi.
Encore un grand merci
Bonne journée à toutes et à tous,
lionel,