1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38
| Sub testAffectation()
Dim plage As Range, tmp
'Affectation d'une matrice dim 1 à un range
tmp = Split("1,2,3,4,5,6,7,8,9", ",")
' range non formaté en fct du tableau => réplication verticale
Set plage = [Feuil1!A1:D10]
plage = tmp
'range formaté
Dim a As Long
a = UBound(tmp) + 1
Set plage = Worksheets("Feuil1").Range("A20").Offset(0, 0).Resize(1, a)
plage = tmp
'transposition d'un tableau à 1 dimension
Set plage = Worksheets("Feuil1").Range("F1").Offset(0, 0).Resize(a, 1)
plage = Application.WorksheetFunction.Transpose(tmp)
'Affectation direct d'un tableau à un tableau
Dim temp
temp = tmp
Set plage = Worksheets("Feuil1").Range("A30").Offset(0, 0).Resize(1, a)
plage = temp
' Affectation d'une matrice à 2 dim à un range
Dim x As Long
ReDim temp(1 To a, 1 To 1)
For x = 1 To a
temp(x, 1) = tmp(x - 1)
Next
Set plage = Worksheets("Feuil1").Range("H1").Offset(0, 0).Resize(a, 1)
plage = temp
' si range non formaté en fct du tableau => réplication horizontale
Set plage = [Feuil1!J1:M10]
plage = temp
End Sub |
Partager