vba copier plage de cellules

C@thy · 27 Août 2014

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é · 27 Août 2014

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

C@thy · 27 Août 2014

Re : vba copier plage de cellules

Pfiou!

Merci Efgé

Bizz

C@thy

Efgé · 27 Août 2014

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

C@thy · 27 Août 2014

Re : vba copier plage de cellules

En fait, l'instruction fonctionne, mais ça ne copie rien...

C@thy

C@thy · 27 Août 2014

Re : vba copier plage de cellules

Je joins un exemple

C@thy

Efgé · 27 Août 2014

Re : vba copier plage de cellules

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

C@thy · 27 Août 2014

Re : vba copier plage de cellules

Oups!! J'ai oublié le .value

Donc ça maaaaarche!

Merciiii

C@thy

vba copier plage de cellules

C@thy

XLDnaute Barbatruc

Efgé

XLDnaute Barbatruc

C@thy

XLDnaute Barbatruc

Efgé

XLDnaute Barbatruc

C@thy

XLDnaute Barbatruc

C@thy

XLDnaute Barbatruc

Pièces jointes

Efgé

XLDnaute Barbatruc

C@thy

XLDnaute Barbatruc

Discussions similaires