V
VINCE
Guest
Voici ma procédure :
Sub Cumul()
For i = 1 To 20000
' On copie les données
Worksheets("NATOP051").Select
Range(Cells(i, 4), Cells(i, 26)).Copy
Worksheets("Cumul").Select
' On les colle dans "Cumul"
Range(Cells(i, 2), Cells(i, 24)).PasteSpecial _
Operation:=xlPasteSpecialOperationAdd
Next
End Sub
Le problème est que je voudrais éliminer l'instruction "Worksheets("NATOP051").Select" pour accélérer le traitement.
Je voudrai utiliser une instruction du genre :
Worksheets("NATOP051").Range(Cells(i, 4), Cells(i, 26)).Copy
Mais celle-ci ne fonctionne pas !! Donc si vous avez des idées pour cette optimisation elles seront les bienvenu.
MERCI
Sub Cumul()
For i = 1 To 20000
' On copie les données
Worksheets("NATOP051").Select
Range(Cells(i, 4), Cells(i, 26)).Copy
Worksheets("Cumul").Select
' On les colle dans "Cumul"
Range(Cells(i, 2), Cells(i, 24)).PasteSpecial _
Operation:=xlPasteSpecialOperationAdd
Next
End Sub
Le problème est que je voudrais éliminer l'instruction "Worksheets("NATOP051").Select" pour accélérer le traitement.
Je voudrai utiliser une instruction du genre :
Worksheets("NATOP051").Range(Cells(i, 4), Cells(i, 26)).Copy
Mais celle-ci ne fonctionne pas !! Donc si vous avez des idées pour cette optimisation elles seront les bienvenu.
MERCI