Incrémentation de 2 tableaux dans une listbox

Bonjour,

Je souhaite incrémenter mes 2 tableaux dans une listbox

With Sheets("R1")
Set F1 = Sheets("R1")
Dim Tablo1
NbLignes = Range("A65536").End(xlUp).Row
Tablo1 = F1.Range("A2:D" & NbLignes)
End With

With Sheets("R2")
Set F2 = Sheets("R2")
Dim Tablo2
NbLignes2 = Range("A65536").End(xlUp).Row
Tablo2 = F2.Range("A2:D" & NbLignes2)
End With

''''''''''''''''''''''''''''''''''''''''''''''''' c'est la ou ça coince''''''''''''''''''''''''''''''''''''''''''''''''''''
Me.ListBox1.List = (Tablo1 & Tablo2)

'''''''''''''''''''''''''''''Merci pour votre aide''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

Bonjour,

en utilisant une fonction du site de J. BOISGONTIER http://boisgontierjacques.free.fr/

.../...
Tablo1 =...
Tablo2 =...
Me.ListBox1.List = MergeArray2DVert(Tablo1, Tablo2)

Function MergeArray2DVert(a, b)
'http://boisgontierjacques.free.fr/pages_site/tableaux.htm
   maxtab1 = UBound(a)
   Dim Tbl(): ReDim Tbl(1 To UBound(a) + UBound(b), 1 To UBound(a, 2))
   For i = LBound(a) To UBound(a)
     For c = 1 To UBound(a, 2): Tbl(i, c) = a(i, c): Next
   Next i
   For i = 1 To UBound(b)
     For c = 1 To UBound(b, 2): Tbl(maxtab1 + i, c) = b(i, c): Next
   Next i
   MergeArray2DVert = Tbl
End Function

A+

Bonjour,

Voici un essai :

With Sheets("R1")
    dl1 = .Range("A65536").End(xlUp).Row
    Tablo1 = .Range("A2:D" & dl1)
End With

With Sheets("R2")
    dl2 = .Range("A65536").End(xlUp).Row
    Tablo2 = .Range("A2:D" & dl2)
End With

redim t(1 to ubound(tablo1) + ubound(tablo2), 1 to 4)

for i = 1 to ubound(t)
    for k = 1 to 4
        t(i, k) = iif(i <= ubound(tablo1), tablo1(i, k), tablo2(i - ubound(tablo1), k))
    next k
next i

Me.ListBox1.List = t

Cdlt,