1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23
| Function ArrayPlusNew(ArrDep As Variant, Plus As Variant)
'ajoute l'array Plus à l'array ArrDep
'l'array d'arrivée est un nouvel Array
Dim ArrFinal
Dim i As Integer, j As Integer, k As Integer
k = 1
ReDim ArrFinal(1 To UBound(ArrDep, 1), 1 To UBound(ArrDep, 2) + UBound(Plus, 2))
For i = 1 To UBound(ArrDep, 1)
For j = 1 To UBound(ArrDep, 2)
ArrFinal(i, j) = ArrDep(i, j)
Next j
For j = UBound(ArrDep, 2) + 1 To UBound(ArrFinal, 2)
ArrFinal(i, j) = Plus(i, k)
k = k + 1
Next j
k = 1
Next i
ArrayPlusNew = ArrFinal
End Function |
Partager