Retour à la ligne via VBA pour juxtaposer 2 tableaux [Résolu]

Bouyax 3 Messages postés mercredi 31 janvier 2018Date d'inscription 1 février 2018 Dernière intervention - 31 janv. 2018 à 12:44 - Dernière réponse : melanie1324 1513 Messages postés vendredi 25 mai 2007Date d'inscription 31 janvier 2018 Dernière intervention
- 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!
Afficher la suite 

3 réponses

Répondre au sujet
melanie1324 1513 Messages postés vendredi 25 mai 2007Date d'inscription 31 janvier 2018 Dernière intervention - 31 janv. 2018 à 13:32
+1
Utile
2
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
Bouyax 3 Messages postés mercredi 31 janvier 2018Date d'inscription 1 février 2018 Dernière intervention - 31 janv. 2018 à 14:29
Ça marche niquel, merci!
melanie1324 1513 Messages postés vendredi 25 mai 2007Date d'inscription 31 janvier 2018 Dernière intervention - 31 janv. 2018 à 15:29
de rien
Commenter la réponse de melanie1324