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

vba copier plage de cellules

XLDnaute Barbatruc

XLDnaute Barbatruc

XLDnaute Barbatruc

XLDnaute Barbatruc

XLDnaute Barbatruc

XLDnaute Barbatruc

Pièces jointes

XLDnaute Barbatruc

XLDnaute Barbatruc

Discussions similaires

Privacy & Transparency

Privacy & Transparency