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 1504 Date d'inscription vendredi 25 mai 2007 Statut Membre Dernière intervention 31 janvier 2018 - 31 janv. 2018 à 15:29
melanie1324 Messages postés 1504 Date d'inscription vendredi 25 mai 2007 Statut Membre Dernière intervention 31 janvier 2018 - 31 janv. 2018 à 15:29
A voir également:
- Retour à la ligne via VBA pour juxtaposer 2 tableaux
- Aller à la ligne excel - Guide
- Vente en ligne particulier - Guide
- Chaque fichier en ligne sur le web a un chemin d’accès sur un serveur. c’est le cas du fichier du logo présent sur la page de cette ville. quel est le chemin de ce fichier à partir de la racine du site ? - Forum Graphisme
- Retour à la ligne google sheet ✓ - Forum Google Docs
- Retour à la ligne css - Forum CSS
1 réponse
melanie1324
Messages postés
1504
Date d'inscription
vendredi 25 mai 2007
Statut
Membre
Dernière intervention
31 janvier 2018
154
31 janv. 2018 à 13:32
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
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
31 janv. 2018 à 14:29
31 janv. 2018 à 15:29