Discussion :

[Tartenpion]

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!

[ouskel'n'or]

Déjà pour que ça marche, il faudrait que ta dernière ligne soit incluse dans

With Worksheets("PipelineReport")
Set destcell = .Range("B8")
End With

destcell étant défini dans Worksheets("PipelineReport")

Je regarde mieux mais déjà, tu peux modifier ça...

A+

[Tartenpion]

Probleme resolu Merci!

[ouskel'n'or]

Si ton but est de déplacer des données d'une feuille dans l'autre, tu peux les couper avant de les coller

Code :

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

1
2
3
4
5
6
    Worksheets("Template").select
    Range("("B7:B10").Select
    Selection.Cut
    Worksheets("PipelineReport").select
    Range("B8").Select
    ActiveSheet.Paste

En VBA cette syntaxe suffit

Tu dis

A+

[SfJ5Rpw8]

pour la petite histoire...

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!

en fait pour résumer le probléme de ce code est que tu affecte destcell à ..."B8" ... cellule B8 que tu détruit par

Code :

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

1
2
ThisWorkbook.Sheets("PipelineReport").Range("B8:B20").Select
Selection.Rows.EntireRow.Delete

avant d'utiliser destcell ...qui ce trouve alors affecté à rien ..;

[Tartenpion]

Oui A priori le code etait correct mais pas dans le bon ordre

Merci bien pour l'analyse, much appreciated!