Discussion :

[GSFBC]

Bonjour,

En exécutant une de mes macros en mode pas-à-pas j'ai pu trouver qu'une instruction de "révélation de ligne" (masquer <> révéler) prenait énormément de temps.

Là ou ça devient vraiment étrange, c'est que j'ai exactement la même instruction pour le même nombre de lignes sur une autre feuille mais là le traitement se fait en quelques millisecondes !

Ci-dessous le bout de code qui pose problème :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
Sheets("MaFeuille").Columns(1).Cells.EntireRow.Hidden = False

Et le bout de code identique mais dont le traitement est beaucoup plus rapide

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
Sheets("MonAutreFeuille").Columns(1).Cells.EntireRow.Hidden = False

A titre de comparaison, la première instruction prend 6,16 s pour s’exécuter alors que la seconde ne prend que 7,8 ms, c'est mille fois plus rapide !

J'ai essayé de voir si une ligne en particulier posait problème en les révélant une par une et en mesurant le temps d'exécution, et j'ai mesuré que sur "MaFeuille" la révélation de chaque ligne indépendamment des autres prenait cent fois plus de temps que sur "MonAutreFeuille".



D'après vous, quelle peut-être la raison de ce temps anormalement long ? Si vous avez une autre solution pour révéler une ligne entière, je suis aussi ouvert à toute suggestion.

[issoram]

Bonjour,

Tu as un filtre activé sur la feuille qui présente des lenteurs?

[GSFBC]

Nope, rien du tout. La seule différence entre les deux feuilles réside dans le fait qu'il y'a un peu plus de colonnes non vides sur la feuille lente (16 contre 3 sur la feuille qui fonctionne normalement) mais je ne vois pas en quoi ça pourrait occasionner un ralentissement significatif.

J'ai trouvé un moyen de contourner le problème en copiant-collant toutes les données et références de ma feuille lente sur une nouvelle feuille et là ça fonctionne correctement.

Mais il n'empêche que j'aimerais bien savoir d'où ça peut venir !

D'après tout ce que j'ai testé je peux déjà dire que ça ne vient pas du format des cellules, de la protection de la feuille ou du nombre de lignes à cacher. En fait j'ai juste l'impression que cette feuille en particulier était boguée parce que sur toutes les autres ça fonctionne normalement.

[illight]

Tu as des formules présentes dans une de tes 2 feuilles ?

[GSFBC]

Ah alors là oui, sur celle qui rame justement. Et ce sont des formules assez balèzes du type triple SI avec OU/ET en prime. Ca peut perturber excel ? Mais même si c'est le cas ça n'explique pas pourquoi les fonctions masquer/révéler fonctionnent normalement sur une nouvelle feuille dans laquelle j'ai copié ces mêmes formules.

[illight]

Oui c'est ça qui fait ramer Dès que tu fais une opération sur des lignes, même si tu caches juste des lignes, Excel va recalculer.

Essaye, par curiosité, 2 choses :
- quand tu caches une lignes, normalement,d ans Excel, en bas à droite, tu as un truc où il y a écrit recalcul en cours
- dans un 2e temps, ce que tu peux tester pour voir si ce sont effectivement les recalculs qui prennent du temps, tu désactives le recalcul automatique. Pour cela, tu vas dans options > formules, et là tu as une option recalcul automatique ou manuel => mets-le en manuel pour faire tes tests voir si ça améliore ton temps de réaction

Si c'est effectivement ces recalculs qui prennent du temps, je te conseille de désactiver les recalculs le temps de l'exécution de tes macros, et n'oublie pas de réactiver à la fin.

Lorsque j'ai des fichiers avec beaucoup de formules, j'utilises ces fonctions, qui me permettent de passer du mode manuel à l'auto quand je veux :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Function StopCalc()
'fonction arret de calcul
With Application
    .Calculation = xlManual
    .MaxChange = 0.001
End With
ActiveWorkbook.PrecisionAsDisplayed = False
End Function
 
Function StartCalc()
'fonction de reprise des calculs
With Application
    .Calculation = xlAutomatic
    .MaxChange = 0.001
End With
ActiveWorkbook.PrecisionAsDisplayed = False
End Function