Insérer ligne en fin de tableau
Q
Bonjour à tous,
J'ai plusieurs tableaux sur une même feuille Excel.
J'aimerais ajouter à la fin de chacun de ces tableau une ligne. J'ai un bouton "insérer ligne" en face de chaque tableau.
Le problème avec le code
Range("A" & Rows.Count).End(xlUp).Select
ActiveCell.Offset(1, 0).Select
ActiveCell.EntireRow.Insert
c'est que ça prend la dernieère ligne de la feuille et non celle du tableau.
Connaissez-vous une ligne de code qui permette de selectionner automatiquement l'ultime ligne d'un tableau en particulier? Par exemple le "Table 1 ".
Merci d'avance, bonne soirée à tous
Q
Chers collègues,
J'ai trouvé, le code était
ActiveSheet.ListObjects("Table1").ListRows.Add AlwaysInsert:=True
@+
Bonjour,
Merci de joindre un fichier à ta demande.
Cdlt.