Retour à la ligne via VBA pour juxtaposer 2 tableaux

Résolu/Fermé
Bouyax Messages postés 11 Date d'inscription mercredi 31 janvier 2018 Statut Membre Dernière intervention 26 mars 2018 - 31 janv. 2018 à 12:44
melanie1324 Messages postés 1505 Date d'inscription vendredi 25 mai 2007 Statut Membre Dernière intervention 31 janvier 2018 - 31 janv. 2018 à 15:29
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!
A voir également:

1 réponse

melanie1324 Messages postés 1505 Date d'inscription vendredi 25 mai 2007 Statut Membre Dernière intervention 31 janvier 2018 154
31 janv. 2018 à 13:32
Bonjour,

Voici comment tu dois procéder :


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

Sheets("X2").Select
Range("A2:K2").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Sheets("XAll").Select
Range("A1:K1").Select
ligne = Selection.End(xlDown).Row
cells(ligne+1,1).Select
ActiveSheet.Paste
1
Bouyax Messages postés 11 Date d'inscription mercredi 31 janvier 2018 Statut Membre Dernière intervention 26 mars 2018
31 janv. 2018 à 14:29
Ça marche niquel, merci!
0
melanie1324 Messages postés 1505 Date d'inscription vendredi 25 mai 2007 Statut Membre Dernière intervention 31 janvier 2018 154
31 janv. 2018 à 15:29
de rien
0