Discussion :

[wyzer]

Bonjour,

Suite à mon sujet (lien : http://www.developpez.net/forums/d10...lutot-feuille/ )

J'essaie d'améliorer la rapidité des sous-totaux car je n'en peux plus d'attendre des heures (pour un fichier de 71 137 lignes il est arrivé à 20% au bout de... 30min )

Voici ce que j'ai fait :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub ooooo()
Application.ScreenUpdating = False
 
Dim tb
 
With ActiveWorkbook.ActiveSheet
    tb = .Range("a1:t70137")
    .Cells.Delete
    tb.Subtotal GroupBy:=1, Function:=xlSum, TotalList:=Array(12, 13, 15, 16, 17, 18, 19, 20), Replace:=True, PageBreaks:=False, SummaryBelowData:=True
    .Range("a1") = tb
End With
 
Application.ScreenUpdating = True
End Sub

Mais ça ne fonctionne pas car il me dit "Objet Requis" à la ligne Subtotal

Merci par avance pour votre aide

[casefayere]

Sans avoir etudié le reste :

Code :

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

1
2
3
4
Dim tb as range
 
With ActiveWorkbook.ActiveSheet
    set tb = .Range("a1:t70137").....

[wyzer]

Ca me donne le même message

[mercatog]

Bonsoir
Il ne faut surtout pas se mélanger les pinceaux.
Tu ne peux pas appliquer les méthodes d'un Range à une variable tableau.
Exemple Subtotal pour ton cas.

Cette méthode crée les sous-totaux de la plage (ou de la zone active si la plage ne comporte qu'une seule cellule).
Syntaxe

expression.Subtotal(GroupBy, Function, TotalList, Replace, PageBreaks, SummaryBelowData)

expression Variable qui représente un objet Range.

[wyzer]

Ok donc si je mets tb.Subtotal... il ne comprends pas car il attends une variable Range

Alors comment je pourrais écrire mon code stp ?

[mercatog]

Améliorons ton code qui fais 30 minutes pour 20% du travail
Je propose que tu mettes ce code en entier ici pour pouvoir améliorer ses performances.
Il y a des choix à faire quand à l'utilisation des variables tableaux ou des fonctions innées d'Excel.

[wyzer]

C'est mon code en entier au dessus

Mon seul but c'est d'ameliorer la rapidité des sous-totaux d'Excel

J'ai été voir l'Admin de ma boite pour lui exposer mon soucis, alors il m'a mis tout seul sur un serveur pour bénéficier de toute la puissance disponible, mais c'est toujours aussi long

Donc c'est bien la fonction Sous-total qui pose problème, car elle travaille directement sur la feuille

Alors je me suis dit qu'il fallait ordonner à cette fonction de travailler sur des données stocké en memoire

[wyzer]

Je viens de lire dans mon livre qu'il existait les matrices multidimensionnelles

Je vais faire des tests pour voir si c'est ça la clé