Erreur 1004 sur un code simple

Version imprimable

06/12/2022, 16h12
Progeric

Erreur 1004 sur un code simple

Bonjour,

Quelqu'un pourrait-il me dire pourquoi j'ai une erreur 1004 pour ce code :

Sheets("Feuil2").Range(Cells(1, 1), Cells(1, 10)).Copy Sheets("Feuil3").Range(Cells(2, 1), Cells(2, 10))

un simple code pour copier les cellules de la feuil2 vers la feuil3 sans faire de .select lorsque la feuille active est la feuil3
Sachant que ce code fonctionne
Range(Cells(1, 1), Cells(1, 10)).Copy Range(Cells(2, 1), Cells(2, 10))

mais du coup c'est dans la même feuille...

Par contre ce code fonctionne : Sheets("Feuil2").Rows(1).Copy Sheets("Feuil3").Rows(2)

mais si on remplace Rows par Range cela ne fonctionne plus...

Merci pour votre aide
06/12/2022, 17h11
Tête de chat
Bonjour,

Attention les expressions Range ou Cells non rattachées explicitement à un objet sont implicitement rattachées à ActiveSheet. Tu as donc écrit en fait

Code:

Sheets("Feuil2").Range(ActiveSheet.Cells(1, 1), ActiveSheet.Cells(1, 10)).Copy Sheets("Feuil3").Range(ActiveSheet.Cells(2, 1), ActiveSheet.Cells(2, 10))

Comme ActiveSheet ne peut être égal à la fois à Feuil2 ET à Feuil3, ça ne va pas le faire.

En fait tu voulais probablement écrire :

Code:

Sheets("Feuil2").Range(Sheets("Feuil2").Cells(1, 1), Sheets("Feuil2").Cells(1, 10)).Copy Sheets("Feuil3").Range(Sheets("Feuil2").Cells(2, 1), Sheets("Feuil2").Cells(2, 10))

En passant Sheets a le même biais et est relative à Activeworkbook ; donc pour éviter tout problème ultérieur, et comme ça commence à être verbeux, je suggère :
Code:

1 2 3 4 5 6 With ThisWorkBook.Sheets("Feuil2") .Range(.Cells(1, 1), .Cells(1, 10)).Copy End With With Sheets("Feuil3") .Range(.Cells(2, 1), .Cells(2, 10)).PasteSpecial xlPasteAll End With
06/12/2022, 17h14
Tête de chat

Oups j'ai oublié de remplacer les 2 par 3 ...

Code:

Sheets("Feuil2").Range(Sheets("Feuil2").Cells(1, 1), Sheets("Feuil2").Cells(1, 10)).Copy Sheets("Feuil3").Range(Sheets("Feuil3").Cells(2, 1), Sheets("Feuil3").Cells(2, 10))

Salut, on peut simplifier:

Code:

Sheets("Feuil2").Range("A1:A10").Copy Sheet("Feuil3").Range("B1:B10")

Ou sur plusieurs lignes, histoire que ce soit lisible:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Dim Source As Excel.Worksheet
Set Source = Sheets("Feuil2")
 
Dim Top1 As Excel.Range
Set Top1 = Source.Cells(1, 1)
 
Dim Bottom1 As Excel.Range
Set Bottom1 = Source.Cells(1, 10)
 
Dim Target As Excel.Worksheet
Set Target = Sheets("Feuil3")
 
Dim Top2 As Excel.Range
Set Top2 = Target.Cells(2, 1)
 
Dim Bottom2 As Excel.Range
Set Bottom2 = Target.Cells(2, 10)
 
Source.Range(Top1, Bottom1).Copy Target(Top2, Bottom2)

06/12/2022, 17h59
Progeric

Merci, ton premier code répond parfaitement à mon besoin.
Ayant une quinzaine de copier/coller c'est mieux sur une seule ligne de code.
06/12/2022, 19h15
deedolith

Citation:

Envoyé par Progeric

Ayant une quinzaine de copier/coller c'est mieux sur une seule ligne de code.

Bof,
un code source avant d'être fonctionnel doit être lisible.

Et rien ne t'interdit d'encapsuler un morceau de code dans une fonction.