Copier Coller des bases de donnees

**violet2410** · 24/07/2009, 14h04

Bonjour,

Je dois ecrire seulement un code de Copy Paste, c'est pas difficile je sais mais en fait, je ne sais pas pourquoi il y a tjs des erreurs et je n'arrive pas a corriger. Pourriez vous m'aider ???

En fait, je dois utiliser les variables differents et aussi les formules, parce qu'il y a bc de bases de donnees (plus de 4000 lignes). C'est pour ca que les cellules, colonnes pour Copy, Paste ne sont pas fixes mais bases sur des variables, formules. Je pense ca a cause des erreurs que je n'arrive pas a resoudre.

Je voudrais copier les bases de donnees de "data Geo" a "Power Summary" (colonne 50 - 55). C'est simplement comme ca.

Je viens de changer les codes plus simple, mais en fait ca marche toujours pas. C'est toujours l'erreur 1004 (Application defined or object defined error). Voila les codes:

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
17
Sub PowerActivities()
 
Act = Worksheets("Data Power").Cells(3, 2).Value
If Act = 1 Then Exit Sub Else
 
Geo = Worksheets("Data Power").Cells(7, 2).Value
If Geo = 0 Then Exit Sub Else
 
'CCO
Worksheets("Data Geo").Range(Cells(Geo, (Act - 1) * 3 + 3), Cells(Geo + 29, (Act - 1) * 3 + 5)).Copy
Worksheets("Power Summary").Range(Cells(13, 50), Cells(41, 52)).Paste
 
'Conso
Worksheets("Data Geo").Range(Cells(Geo + 2164, (Act - 1) * 3 + 3), Cells(Geo + 29 + 2164, (Act - 1) * 3 + 5)).Copy
Worksheets("Power Summary").Range(Cells(13, 53), Cells(41, 55)).Paste
 
End Sub

Vous pouvez voir plus détails dans la pièce jointe

Merci beaucoup si vous pouvez m'aider.

Je commence a etre decu de ne pas resoudre ca.

**aalex_38** · 27/07/2009, 11h11

Bonjour,

Peux-tu nous dire sur quelle ligne se situe l'erreur, en utilisant le débogueur pas à pas, ce sera plus simple pour te réponder.

C'est toujours l'erreur 1004

**violet2410** · 27/07/2009, 12h14

C'est toujours erreur 1004 pour les lignes de "Paste"

Code :

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

1
2
3
Worksheets("Power Summary").Range(Cells(13, 50), Cells(41, 52)).Paste
 
Worksheets("Power Summary").Range(Cells(13, 53), Cells(41, 55)).Paste

Je pense peut etre parce que le Range pour Paste ne convient pas au Range pour Copy. J'ai deja essaye de modifier plusieurs fois cette code pour Paste : soit utiliser des formules, soit des variables mais ca marche toujours pas

je suis toujours bloquée avec cette petite code.

Merci bc de m'aider

**aalex_38** · 27/07/2009, 13h20

Effectivement, là tu ne peux faire qu'un pastespecial.

La solution :

Code :

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

Worksheets("Data Geo").Range(Cells(Geo, (Act - 1) * 3 + 3), Cells(Geo + 29, (Act - 1) * 3 + 5)).Copy Destination:=Worksheets("Power Summary").Range(Cells(13, 50), Cells(41, 52))