Copy Cells to variant array

[Jean-Pierre Bidon]

Hie,
I think this question is rather banal but I'm stucked on it.
I would like to copy a range (or a collection of cells) in a variant array.
Using this syntax doesn't work:
---> vaRst = rgCurr(Cells(2, 1), Cells(iRow, iCol))
Need help.
Thanks.

Jean-Pierre Bidon

[Bob Phillips]

This works for me

Dim rgCurr As Range
Dim vaRst
Dim iRow As Long, iCol As Long

iRow = 3: iCol = 6
Set rgCurr = Range("A1:H10")
vaRst = rgCurr.Cells(2, 1).Resize(iRow - 1, iCol)

--
HTH

Bob Phillips

(remove nothere from email address if mailing direct)

"Jean-Pierre Bidon" <can_369@laposte.net> wrote in message
news:u4b$a5tXGHA.1204@TK2MSFTNGP04.phx.gbl...
> Hie,
> I think this question is rather banal but I'm stucked on it.
> I would like to copy a range (or a collection of cells) in a variant
array.
> Using this syntax doesn't work:
> ---> vaRst = rgCurr(Cells(2, 1), Cells(iRow, iCol))
> Need help.
> Thanks.
>
> Jean-Pierre Bidon
>
>

[Jean-Pierre Bidon]

Thanks, this works for me to.

"Bob Phillips" <bob.phillips@notheretiscali.co.uk> a écrit dans le message
de news: Oj6wKbuXGHA.4388@TK2MSFTNGP03.phx.gbl...
> This works for me
>
> Dim rgCurr As Range
> Dim vaRst
> Dim iRow As Long, iCol As Long
>
> iRow = 3: iCol = 6
> Set rgCurr = Range("A1:H10")
> vaRst = rgCurr.Cells(2, 1).Resize(iRow - 1, iCol)
>
> --
> HTH
>
> Bob Phillips
>
> (remove nothere from email address if mailing direct)
>
> "Jean-Pierre Bidon" <can_369@laposte.net> wrote in message
> news:u4b$a5tXGHA.1204@TK2MSFTNGP04.phx.gbl...
>> Hie,
>> I think this question is rather banal but I'm stucked on it.
>> I would like to copy a range (or a collection of cells) in a variant
> array.
>> Using this syntax doesn't work:
>> ---> vaRst = rgCurr(Cells(2, 1), Cells(iRow, iCol))
>> Need help.
>> Thanks.
>>
>> Jean-Pierre Bidon
>>
>>
>
>