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
 

Créez un compte ou connectez vous pour répondre

Vous devez être membre afin de pouvoir répondre ici

Créer un compte

Créez un compte Excel Downloads. C'est simple!

Connexion

Vous avez déjà un compte? Connectez vous ici.

Haut Bas