[VBA E] copie de plage de cellule
bonjour à tous
Je n'arrive pas a faire une copie de plage de cellule d'une feuille à une autre, ça marche en utilisant les adresses de cellule mais pas avec les variables firstcell et lastcell de mon code.
J'ai essayé beaucoup de choses différentes mais sans aucun resultats. j'ai utilisé copy et paste qui fonctionne tres bien, mais j'ai lu quelque chose quelque part qui disait qu'il valait mieux passer par ce type de code:
Code:
Worksheets("nomdate").Range("b1:c8").Value = Worksheets("feuil1").Range("b1:c8").Value
Voici mon code:
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
| ActiveWorkbook.Sheets("feuil1").Activate
Dim firstCell As Range
Dim lastCell As Range
Dim zone As Range
Set firstCell = Range("A2")
Set lastCell = Range("C65536").End(xlUp)
Set zone = Range(firstCell, lastCell)
'Range(firstCell, lastCell).Copy
Worksheets(Worksheets.Count).Select
Worksheets.Add
With ActiveSheet
'.Paste
.Name = "NomDate"
End With
Worksheets("nomdate").Range("a2:c8").Value = Worksheets("feuil1").Range("a2:c8").Value |
Dans ce code je voudrais remplacer a2 par firstcell et c8 par lastcell.
Merci
