vba copier plage de cellules

C@thy

XLDnaute Barbatruc
Bonjour le forum,

ceci :
Code:
Sub Copier()
Set ws1 = ThisWorkbook.Sheets("Cpte2014")
Set ws2 = ThisWorkbook.Sheets("TEST")
ws2.Range("A1") = ws1.Cells(10, 1)
End Sub
fonctionne, mais pas ceci :
Code:
ws2.Range("A1") = ws1.Range(Cells(10, 1), Cells(10, 10))
Comment fait-on pour copier la plage sans changer de feuille?
Merci à vous.

Bizz:)

C@thy
 

Efgé

XLDnaute Barbatruc
Re : vba copier plage de cellules

Bonjour Cathy
En agrandissant la cellule A1 avec Resize:
ws2.Range("A1").Resize(1, 10) = ws1.Range(ws1.Cells(10, 1), ws1.Cells(10, 10))
Cordialement

EDIT
Il faut également préciser la feuille pour chaque Cell
 

Efgé

XLDnaute Barbatruc
Re : vba copier plage de cellules

Re
J'oubliai, comme il ne s'agit pas d'une "copie" au sens Copy, il faut préciser .Value:
Ws2.Range("A1").Resize(1, 10).Value = Ws1.Range(Ws1.Cells(10, 1), Ws1.Cells(10, 10)).Value

Cordialement
 

Efgé

XLDnaute Barbatruc
Re : vba copier plage de cellules

Re
Tu as du rater mon post 4 au sujet des .value ;-)
Cordialement
 

Discussions similaires


Haut Bas