insérer une plage de cellules

zoef747 · 21 Septembre 2007

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 · 21 Septembre 2007

Re : insérer une plage de cellules

Bonjour zoef747

Peut-être comme ceci...

Code:

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")

@+

insérer une plage de cellules

zoef747

Guest

SergiO

XLDnaute Accro

Discussions similaires

insérer une plage de cellules

zoef747

Guest

SergiO

XLDnaute Accro

Discussions similaires

Privacy & Transparency

Privacy & Transparency