Erreur d'exécution d'une macro

[steve]

BONSOIR LE FORUM

J'ai un petit probleme je veux faire une copie de 5 graphs + leur base de la feuille 3 a la feuille 505
mais j'ai une erreur d'execution
"la methode 'paste' de l'objet'_Worksheet' a échoué"
la macro ralentie avant d'avoir le message d'erreur

Quelqu'un a t'il une idee,je pense qu'il y a une histoire de mémoire.

je fonctionne avec excel2000 , win98se et 765 de ram

merci pour vos réponses

For i = 3 To 505
Sheets("1").Select
Range("A1:W387").Copy
Sheets(i).Select
Range("A1:W387").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Next i

End Sub

 

[Zon]

Salut,

500 feuilles ça fait beaucoup d'autant plus que tu veux mettre la même chose dedans, tu peux éviter le copier coller: Créer tes graphes dans une nouvelle feuille

For i = 3 To 505
Sheets(i).Range("A1:W387")=Sheets(1).Range("A1:W387").value
Next i

A+++

 

[steve]

merci pour ta reponse

mais j'ai essayé ta solution et j'ai

Erreur d'execution '1004'
La méthode copy de la classe range a échoué

merci pour toutes vos suggestions

 

[steve]

bonjour a tous

En faite ce que j'avais essayer c'etait ce code
Worksheets("1").Range("A1:z73").Copy Destination:=Worksheets(i).Range("A1:z73")

qui generais

Erreur d'execution '1004'
La méthode copy de la classe range a échoué

par contre ton code copie bien la base de donnée mes pas les grahs ,qui seront different car avec une autre macro je change les bases de chaque feuilles.C'est pour quoi je veux avoir les graphs aussi.

merci pour toutes vos suggestions

 

[Zon]

Salut,

Perso j'évite le copier coller, pourquoi ne pas créer à la volée chaque feuille pour chaque feuille(puisque tu as beaucoup de feuille j'ai une autre soltution en tête), par contre il faudrait en savoir un peu plus avec un fichier exemple avec le résultat attendu...

A+++

 

[Bernard]

Bonsoir Steve

J'ai essayé ta macro et modifié la plage en Range("A1").Select et elle marche très bien. Je suis avec XP et office Pro.
Sub recopier()
For i = 2 To 3
Sheets("feuil1").Select
Range("A1:B4").Copy
Sheets(i).Select
Range("A1").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Next i

End Sub

Salut

Bernard