Discussion :

[Bouyax]

Bonjour,

Après moultes recherches en ligne je n'arrive pas à trouver à la solution à mon problème.
J'ai deux onglets d'export de données que je dois regrouper dans un tableau. A chaque nouvelle exportation de données il faut donc réitérer l'assemblement de ces données.
Ma macro colle donc mes données du premier onglet "X1" dans le nouvel onglet "X_ALL". Je cherche ensuite à ce que les données de l'onglet "X2" se copie (à partir de la ligne 2 pour ne pas reprendre les intitulés) puis se colle juste en dessous de l'ensemble des données de l'onglet "X1" dans l'onglet "XALL".

Sheets("X1").Select
Range("A1:K1").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Sheets("XAll").Select
Range("A1").Select
ActiveSheet.Paste

Sheets("X2").Select
Range("A2:K2").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Sheets("XAll").Select

Le retout à la ligne ici pour pouvoir coller les données juste en dessous?

ActiveSheet.Paste

Voila à quoi ça ressemble, merci en avance!

[joe.levrai]

Bonjour,

la propriété End de l'objet Range te renvoie le Range situé à la fin

Code :

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

Sheets("XAll").Cells(rows.count,1).End(xlup)(2)

te positionne sur la première cellule de la colonne A qui est vide .... en partant du bas et en remontant
le (2) te positionnes donc en dessous de la dernière ligne écrite, si tu l'enlèves tu es sur la dernière ligne écrite