Discussion :

[bouddine]

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

[ouskel'n'or]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[bouddine]

merci beaucoup ça marche