Copier Coller des bases de donnees

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:

---

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.

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.

Citation:

---

C'est toujours l'erreur 1004

---

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

Code:

---

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

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

La solution :

Code:

---

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

---

J'ai deja essaye ce code mais toujours cet erreur 1004

ET si avant ce code tu mets :

Code:

---

Worksheets("Power Summary").select

---

C'est pareil, ca change pas, tjs erreur 1004 :?

Non, ce que je voulais dire c'est est-ce que le nom de la feuille est le bon ? :aie:

En gros est-ce que si tu selectionne cette feuille ça marche ou pas ?

Si j'ai fait :

Code:

---

Worksheets("Power Summary").Select

---

ca marche bien. ca selectionne le bon Sheet

Mais quand j'ai ajoute le Paste:

Code:

---

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

---

Ca marche pas, tjs cet erreur 1004.

Donc, je pense mon code est deja bien. Mais un souci, je ne sais pas s'il y a l'erreur pour le Range ou non. C'est a dire : est ce Range(Cells(13, 50), Cells(41, 52)) correspond a Range(Cells(Geo, (Act - 1) * 3 + 3), Cells(Geo + 29, (Act - 1) * 3 + 5)) ou pas parce que l'un est le range pour les variables, l'autre c'est pour les cellules fixes????

Bonjour

J'ai essayé de remplacer ça:

Code:

---

1 2 3

'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

---

par ça :

Code:

---

1 2 3 4 5

Worksheets("Data Geo").Select Worksheets("Data Geo").Range(Cells(Geo, (Act - 1) * 3 + 3), Cells(Geo + 29, (Act - 1) * 3 + 5)).Copy Worksheets("Power Summary").Select Cells(13, 50).Select ActiveSheet.Paste

---

et à priori ça passe

WOW, so great!!!!!!!!!!!!

Ca marche

Merci beaucoup. tu m'aides beaucoup

Bonjour à tous,

J'étais en train de penser à ça mais fgiambelluco a été plus rapide :ccool:
En effet ça peut coincer quand on essai de copier une plage dans une autre plage de taille différente, la solution est de diriger la copie vers la cellule en haut à gauche de la plage de destination, ainsi on évite cette erreur.

Avec la correcition peut être que mon code fonctionne aussi ?

Code:

---

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

---

Bonjour,

Il m'arrive d'utiliser cette commande pour faire des plages de cellules :

Code:

---

Range("E1:G10").Value = Range("A1:C10").Value

---

Après il faut jusque rajouter le nom des feuilles source et destination.
Attention : il faut que les plages de cellules aient le même format.

A+

Christophe

Merci beaucoup pour les solutions.

en fait, on pense tjs a type de range pour les plages determinees par exemple :

Code:

---

Range (A1:B2).Value = Range(C1:D2).Value

---

mais ce code n'est pas toujours convenable quand on fait avec les cellules qui varient selon les variables, les formules. C'est pour ca moi, je prefere les code de type

Code:

---

Cells (a,b) ou Range(cells(a,b), Cells(c,d))

---

dans ce cas la.

Une petite question, normalement si on veut utiliser ce code de Range.Value au dessus, mais avec les variables, comment on peut faire?????

C'est comme ca????

Code:

---

Range(A&"i" &": B&"j").Value = Range(A&"x" &": B&"y").Value

---

A,B : les colonnes
i,j,x,y : les lignes

Merci

Plutôt ça

Code:

---

Range("A" & i, "B" & j).Value= Range("A" & x, "B" & y).Value

---

ou

Code:

---

Range(cells(i,1),cells(j,2)).value=range(cells(x,1),cells(y,2)).value

---