XL 2013 VBA : Insertion ligne à la fin d'un tableau avec bouton

[Yuby]

Bonjour,

Je viens vers vous car j'ai un problème. J'ai un tableau et je souhaite copier la partie A2:AT11 en bas de mon tableau à chaque fois que j'appuie sur un bouton. Je n'arrive pas à faire ce codage VBA. Auriez vous une idée de ce code ?

 

[sylvanu]

Bonjour Yuby,

Auriez vous une idée de ce code ?

Auriez vous un petit fichier test ? Ne serait ce que pour comprendre et tester .

 

[Yuby]

Bonjour Yuby,

Auriez vous un petit fichier test ? Ne serait ce que pour comprendre et tester .

Bonjour

Je vous transmet un Excel où par exemple je veux copier de A1 : C2 en dessous mon tableau par bouton.

 

[sylvanu]

Re,
Je suppose que vous voulez copier toute la plage à la fin du tableau ?
( A2:AT11 dans le premier cas, A1 : C2 dans le second )
En PJ un essai avec :

Sub CopierColler()
    T = [A1].CurrentRegion                                  ' Transfert tableau dans array
    DL = 1 + [A65500].End(xlUp).Row                         ' Première ligne dispo
    Cells(DL, 1).Resize(UBound(T, 1), UBound(T, 2)) = T     ' Collage tableau à la fin
End Sub