Bonjour,

Je souhaiterais copier une serie de cellules a partir d'une feuille dans une autre feuille a un endroit bien precis.

Voici mon code

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 CellsToDell As Integer
Dim destcell As Range
Dim rngtocopy As Range
 
    With Worksheets("Template")
        Set rngtocopy = .Range("B7:B10")
    End With
 
    With Worksheets("PipelineReport")
        Set destcell = .Range("B8")
    End With
 
 
ThisWorkbook.Sheets("PipelineReport").Select
ThisWorkbook.Sheets("PipelineReport").Range("B8:B20").Select
Selection.Rows.EntireRow.Delete
 
ThisWorkbook.Sheets("Template").Select
rngtocopy.Copy Destination:=destcell
En fait la dernier ligne me genere une erreur:


Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
rngtocopy.Copy Destination:=destcell
 
"Run-time error 1004 copy method of range class failed"
J'ai essaye plein de methodes differentes mais unsuccesful!