Mettre des tableaux les uns sous les autres

Bonjour !

J'ai plusieurs feuilles, dans chacune d'elles un tableau, ils ont tous le meme nombre de colonnes, mais le nombre de lignes varie,

J'aime les affichier tous sur une meme feuille, les uns sous les autres, en continuité,

est ce que c'est possible en VBA ?

Merci

Bonsoir à tous !

Avec des tableaux structurés et une convention de nommages de ceux-ci, Power Query vous retournera un tableau "cumulatif".

Bonjour,

Voici une possibilité en supposant qu'il y ait une feuille nommée "Recap" qui accueille les données et que toutes les feuilles autres que la feuille Recap soient à inclure dans le code. Il faut aussi que les feuilles n'ait pas d'autre contenu que les tableaux à récupérer :

Sub test()
dim t()
for each ws in worksheets
    if ws.name <> "Recap" then
        n = n + 1: redim preserve t(1 to n): t(n) = ws.usedrange.value
    end if
next ws
tbl = Convert3Dto2D(t)
with sheets("Recap").cells
    .clearcontents
    .resize(ubound(tbl), ubound(tbl, 2)).value = tbl
end with
end sub

function Convert3Dto2D(ArrSrc)
dim temp()
for i = lbound(ArrSrc) to ubound(ArrSrc)
    for j = lbound(ArrSrc(i)) to ubound(ArrSrc(i))
        n = n + 1: redim preserve temp(1 to ubound(ArrSrc(i), 2), 1 to n)
        for k = lbound(ArrSrc(i), 2) to ubound(ArrSrc(i), 2)
            temp(k, n) = ArrSrc(i)(j, k)
        next k
    next j
next i
Convert3Dto2D = application.transpose(temp)
end function

Cdlt,

Edit : Bonjour JFL,

Merciiii pour votre contribution !

La méthode du power querry est géniale, j'ai deja utilisé le power querry mais différemment, cette methode est plus efficace !

Merciii