Retour à la ligne via VBA pour juxtaposer 2 tableaux
Résolu
Bouyax
Messages postés
11
Date d'inscription
Statut
Membre
Dernière intervention
-
melanie1324 Messages postés 1504 Date d'inscription Statut Membre Dernière intervention -
melanie1324 Messages postés 1504 Date d'inscription Statut Membre Dernière intervention -
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!
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:
- Retour à la ligne via VBA pour juxtaposer 2 tableaux
- Retour à la ligne excel formule - Guide
- Partager photos en ligne - Guide
- Notepad++ retour à la ligne ✓ - Forum Bureautique
- Retour à la ligne google sheet - Forum Google Docs
- Retour à la ligne google sheets android ✓ - Forum Google Docs
1 réponse
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
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
Messages postés
11
Date d'inscription
Statut
Membre
Dernière intervention
Ça marche niquel, merci!
melanie1324
Messages postés
1504
Date d'inscription
Statut
Membre
Dernière intervention
155
de rien