copie d'un tableau excel sous vb

Bonjour

SVP j'ai une feuille dans laquelle j'ai 2 tableau de de nbre colonnes et lignespareil , mais le pb c' est que le nombre de ligne n'est pas tjs le même. et moi je veux que le tableau 2 soit coupé et mis a cote du premier tableau
Miniatures attachées

Tes deux tableaux ont le même nombre de lignes ?
Sinon, tu copies le premier, tu te places sur la première cellule libre de la première ligne de ton second et tu colles ce qui devrait donner :
... pour avoir la dernière ligne du tableau à copier, c'est

Code:

---

1 2	NoCol = 1 'si le tableau à copier commence sur la colonne 1 DerniereLigne = Cells(Columns(NoCol).Cells.Count, NoCol).End(xlUp).Row

---

Si le nombre de colonnes est toujours le même, alors tu peux maintenant copier/coller (en supposant que la colonne 1 ne soit pas à recopier)

Code:

---

Worksheets("Feuil1").range("A2:D" & derniereLigne).copy Worksheets("Feuil2").range("E1")

---

PS - Je viens de voir ton autre discussion. Pour supprimer la dernière colonne renseignée d'un tableau, tu as aussi

Code:

---

1 2	NoLigne = 1 Columns(Cells(NoLigne, Rows(NoLigne).Cells.Count).End(xlToLeft).Column).entireColumn.Delete

---

merci beaucoup ça marche