Script vba excel trop lent

Version imprimable

Voici une partie d'un script vba fait avec excel 2003. Il copie les lignes d'une feuille vers d'autres feuilles selon un critère. Le nom contenu dans la colone A correspond à une feuille ex:A1=Zootman alors la ligne complète est copiée dans une feuille dont l'onglet s'appelle Zootman. Le problème c'est qu'il est très long à executer. Je l'ai fait avec une boucle imbriquée. Ca prend presque 2h pour copier 16 500 lignes. Quelqu'un aurait une suggestion pour que ce soit plus rapide? Merci.
Code:

1 2 3 4 5 6 7 8 9 10 For i = 1 To Sheets.Count - 1 k = 1 For j = 1 To nbCell + 1 If Sheets(i).Name = Sheets("Zootman").Cells(j, 1).Value Then Worksheets("Zootman").Range("A" & j & ":" & "IV" & j).Copy Worksheets(i).Range("A" & k & ":" & "IV" & k).PasteSpecial k = k + 1 End If Next j Next i
dans mon cas précis: Sheets.Count = 112 feuilles et nbCell=16500

[Edit] bbil : Penser à rajouter les balises de codes, utiliser le bouton http://www.developpez.net/forums/images/editor/code.gif

05/07/2006, 08h24
illight

Il y a des formules qui trainent dans tes feuilles ?

En gros, est-ce qu'il fait des calculs pendant que tu fais les copies, d'ou un temps d'éxécution relativement long ?

essaie déjà de voir si ça arrange les choses de faire un
Code:

1 2 3 4 5 6 7 8 'au debut du prog Application.ScreenUpdating=False ... 'fin du prog Application.ScreenUpdating.True

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
dim xlwksZoot as excel.worksheet
dim xlwksDest as excel.worksheet
 
set xlwksZoot = sheets("Zootman")
for each xlwksDest in sheets
    k = 1
    for j=1 to nbCell+1
         if xlwksDest.name = xlwksZoot.Cells(j, 1).Value Then
             xlwksZoot.rows(j).Copy
             xlwksDest.cells(k,1) PasteSpecial
             k = k + 1
        End If
    next
 
next

Ce programme t'évite a chaque fois de "rechercher" la feuille Zootman. Mais je ne sais pas si ca va te faire gagner des masses de tp. mais on sait jms.
Perso je ne comprend pas trop ton incrémentation du k

10/07/2006, 08h54
Clad3

C'est une impression ou "k" à la même valeur que "j" ? ( si c'est le cas, tu peux te séparer de "k" ... bon ca ne va pas significativement booster tes perf mais ca sera un poil + clair déjà ) .
10/07/2006, 14h27
ouskel'n'or

Je ne comprends pas l'utilisation de pastespecial sans un paramètre. Pourquoi ne pas utiliser Paste tout court ?