insérer une plage de cellules

[zoef747]

bonjour,

je voudrait insérer une plage de cellule dans une feuille mais rien ne se passe ...
ou est mon erreure?


Dim r1 As Range, r2 As Range, recap As Range
Set r1 = Sheets("feuil2").Range("A1:A" & j - 1)
Set r2 = Sheets("feuil2").Range("D1:G" & j - 1)
Set recap = Union(r1, r2)
Sheets("feuil3").Activate
Sheets("feuil3").Range("B9").Select
recap.Insert

merci

 

[SergiO]

Re : insérer une plage de cellules

Bonjour zoef747

Peut-être comme ceci...

Dim r1 As Range, r2 As Range, recap As Range
Set r1 = Sheets("feuil2").Range("A1:A" & j - 1)
Set r2 = Sheets("feuil2").Range("D1:G" & j - 1)
Set recap = Union(r1, r2)
recap.Copy Destination:=Sheets("feuil3").Range("B9")

@+