Discussion :

[zootman]

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 :

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

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

[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 ?

[Commodore]

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

Code :

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

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

[jveudvacances]

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

[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à ) .

[ouskel'n'or]

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