Discussion :

[violet2410]

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]

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]

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]

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

[violet2410]

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

[aalex_38]

ET si avant ce code tu mets :

Code :

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

Worksheets("Power Summary").select

[violet2410]

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

[aalex_38]

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

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

[violet2410]

Si j'ai fait :

Code :

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

Worksheets("Power Summary").Select

ca marche bien. ca selectionne le bon Sheet

Mais quand j'ai ajoute le Paste:

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

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

[fgiambelluco]

Bonjour

J'ai essayé de remplacer ça:

Code :

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

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 :

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

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

[violet2410]

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

Ca marche

Merci beaucoup. tu m'aides beaucoup

[aalex_38]

Bonjour à tous,

J'étais en train de penser à ça mais fgiambelluco a été plus rapide
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 :

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").Cells(13, 50)

[toffe25]

Bonjour,

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

Code :

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

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

[violet2410]

Merci beaucoup pour les solutions.

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

Code :

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

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 :

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

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 :

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

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

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

Merci

[fgiambelluco]

Plutôt ça

Code :

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

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

ou

Code :

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

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