Dim i As Integer, j As Integer
Dim tablo(1 To 8, 0 To 1960)
For i = 1 To 8
For j = 0 To 1960
tablo(i, j) = CStr(i) & "|" & CStr(j)
Next
Next
Range("A1").Resize(UBound(tablo, 1), UBound(tablo, 2) + 1).Value = tablo
bonjour,
Roland, Pierre-Jean (ravi de vous croiser)
@tik: si tu ne veux pas perdre une colonne sur la deuxième dimension (0 to 1960) :
Resize(UBound(tablo, 1), UBound(tablo, 2) + 1).Value
Ceci chez moi(xl 2010), fonctionne:Code:Dim i As Integer, j As Integer Dim tablo(1 To 8, 0 To 1960) For i = 1 To 8 For j = 0 To 1960 tablo(i, j) = CStr(i) & "|" & CStr(j) Next Next Range("A1").Resize(UBound(tablo, 1), UBound(tablo, 2) + 1).Value = tablo
A+
Sheets("ADV Powa").Range("B3").Resize(UBound(Tablo, 1), UBound(Tablo, 2)).Value = Tablo
Dim C as range
Set C = Range("a" & i)
'Ou
Set C = Cells(i,1) ' ligne i colonne 1)
Range("a" & i).Select