Discussion :

[zoumzoum59]

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 :

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

Worksheets("nomdate").Range("b1:c8").Value = Worksheets("feuil1").Range("b1:c8").Value

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

[SfJ5Rpw8]

voir :

Code :

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

1
2
3
4
5
6
7
8
9
10
 
Sub test()
 
Set firstCell = Worksheets("feuil1").Range("A2")
Set LastCell = Worksheets("feuil1").Range("C65536").End(xlUp)
Dim source As Range
Set source = Worksheets("feuil1").Range(firstCell, LastCell)
Worksheets("nomdate").Range(source.Address).Value = source.Value
 
End Sub

[zoumzoum59]

Merci bbil

C'est tout a fait ça.