Découper tableau si trop long

Bonjour à tous !!!

Je voulais savoir si il y avait une macro qui permet de scinder un tableau si il y a trop de ligne et de le reporter sur plusieurs colonne.

En gros, dans mon exemple, j'ai sur la feuille 1 une un tableau, et je voulais via une macro que celui-ci soit recopier sur la feuille 2 (final)

et que toutes les 20 lignes il coupe le tableau et continu la copie sur la colonne d'après et ainsi de suite.

Faut de manquer d'explicité je vous joins un fichier d'exemple ^^

Merci d'avance,

Bruno

30table.xlsm (10.95 Ko)

Bonsoir,

combien de colonne pour ton tableau ?

as tu des lignes vides ?

Bonsoir Pierre,

Dans mon exemple je suis à deux colonnes et non, il n'y aura pas de ligne vide

Merci pour ton aide

Bonsoir pierre.jy, nunos31, le forum

Essaie ceci :

Sub test()
Dim i As Long, n As Long
    n = 1
    With Sheets("Feuil1").Cells(1).CurrentRegion
        For i = 2 To .Rows.Count Step 19
            Union(.Rows(1), .Rows(i).Resize(19)).Copy
            Sheets("Final").Cells(1, n).PasteSpecial
            n = n + 2
        Next
    End With
    Application.CutCopyMode = False
End Sub

klin89

Bonsoir Klin

Merci, ton script marche parfaitement. Je connaissais pas la syntaxe "CurrentRegion", merci beaucoup votre aide

Bonne soirée à vous !!!

Re nunos31,

La propriété CurrentRegion est l'équivalent du raccourci clavier manuel Ctrl + *

Dans ton cas, place toi en A1 et appuie sur Ctrl + * pour voir ta sélection.

Attention toutefois à son utilisation., voir l'aide à coups de F1

klin89

Rechercher des sujets similaires à "decouper tableau trop long"