Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

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

Yuby

XLDnaute Nouveau
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

XLDnaute Barbatruc
Supporter XLD
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 :
VB:
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
 

Pièces jointes

  • Test (2).xlsm
    13.8 KB · Affichages: 2

Discussions similaires

Réponses
8
Affichages
403
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…