Discussion :

[Progeric]

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

[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 :

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

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 :

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

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 :

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

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

[Tête de chat]

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

Code :

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

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

[deedolith]

Salut, on peut simplifier:

Code :

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

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

Ou sur plusieurs lignes, histoire que ce soit lisible:

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

[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.

[deedolith]

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.