Optimisation

[VINCE]

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

 

[Marmotte3]

Bonjour essaye ça :

Sheets("NATOPO51").Range(Cells(i, 4), Cells(i, 26)).Copy

Je ne sais pas si ça marche mais bon.

 

[VINCE]

Non ca ne marche pas....
Si tu as d'autres idées n'hésite pas !!!

 

[Sylvain]

bonjour,
il doit y avoir mieux, mais on doit pouvoir créer une variable texte :

plage="NATOPO51!D"+i+":Z"+i
il doit y avoir une fontion pour la concaténation de i qui n'est pas une variable texte (du style ctxt).

range(plage).copy

A+

 

[BERINGUE]

Comment faire en sorte qu'une feuille excel se cale sur la dernière cellule logiquement enregistrée et non sur une "loufoque" qui peut se situer à la 65 000ème ligne.

Les solution consistant à effacer ou à supprimer lignes et colonnes inutiles ne marchent pas toujours, loin s'en faut.

Merci d'avance.

 

[STéphane]

utiliser ma deuxième solution serait déjà mieux

Sub Cumul()
t1 = Time
For i = 1 To 20000
' On copie les données
With ActiveWorkbook
.Sheets("feuil1").Select: Range(Cells(i, 4), Cells(i, 26)).Copy
.Sheets("feuil2").Select: Range(Cells(i, 2), Cells(i, 24)).Select: Selection.PasteSpecial _
Operation:=xlPasteSpecialOperationAdd
End With
Next
MsgBox (Time - t1)
End Sub

Sub test()
Application.ScreenUpdating = False
With ActiveWorkbook
.Sheets("feuil1").Select: Range(Cells(1, 4), Cells(2000, 26)).Copy
.Sheets("feuil2").Select: Range(Cells(1, 2), Cells(2000, 24)).PasteSpecial _
Operation:=xlPasteSpecialOperationAdd
.Sheets("feuil2").Range("A1").Activate
End With
End Sub

hth

bye
stephane

 

[STéphane]

pour beringue


il y a ds solutions perdues dans les messages de ce forum, le mieux est de visiter cette FAQ <http://dj.joss.free.fr/faq.htm>

bye
stephane

 

[VINCE]

Sub Cumul()
t1 = Time
For i = 1 To 20000
' On copie les données
With ActiveWorkbook
.Sheets("feuil1").Select: Range(Cells(i, 4), Cells(i, 26)).Copy
.Sheets("feuil2").Select: Range(Cells(i, 2), Cells(i, 24)).Select: Selection.PasteSpecial _
Operation:=xlPasteSpecialOperationAdd
End With
Next
MsgBox (Time - t1)
End Sub

En fait j'aurai du mttre ca :
.Sheets("feuil2").Select: Range(Cells(j, 2), Cells(j, 24)).Select:
sachant que j est calculé dans une autre boucle...

 

[VINCE]

Grace à Application.ScreenUpdating = False, je suis quand même passé de 10minutes30 de traitement à 2minutes15 !!

MERCI

 

[STéphane]

mais ma deuxième méthode est quasi instantanée, ne te convient-elle pas ?

bye
stephane