Copie onglets excel dans une seule feuille

Copie onglets excel dans une seule feuille Sujet résolu

Ajouter un message à la discussion

WINNIE0931

Posté le 04/02/2010 @ 14:23

Bonjour à tous,

je dispose d'un classeur excel avec 12 onglets avec des colonnes identiques dans chaque onglet et des données différentes ; j'aimerais (par macro ou autre moyen) rassembler le contenu de chaque onglet dans un seul onglet d'un autre classeur (plutôt que d'ouvrir un nouveau classeur et de copier/coller le contenu de chaque onglet à tour de rôle par ctrl C et ctrl V). (en fait de 12 fichiers en faire un seul)

Je vous remercie de votre aide.

Bérylion

Posté le 04/02/2010 à 23:37

salut

tu peux essayer ce bout de code dans ton classeur à copier :

Sub test()
With Workbooks.Add
For i% = 1 To ThisWorkbook.Sheets.Count '12
ThisWorkbook.Sheets(i).UsedRange.Copy
With .ActiveSheet
.Cells(.UsedRange.Rows.Count + i - 1, 1).Activate
.Paste
End With
Next
End With
End Sub

WINNIE0931

Posté le 07/02/2010 à 18:59

Bonsoir bérilyon,

désolé de te remercier si tard mais je n'ai pas de connection internet le week-end.

J'ai esayé ton code mais cela m'ouvre un nouveau classeur sans rien dedans.

Je suis certain que ton code fonctionne mais je pense que je ne le colle pas où il faut.

Dois je le coller dans le classeur en ouvrant Visual basic editor ou dans un classeur de macros personnelles ?

Merci de ta patience.

Bonne soirée.

Bérylion

Posté le 07/02/2010 à 21:36

WINNIE0931 a écrit :

Bonsoir bérilyon,

désolé de te remercier si tard mais je n'ai pas de connection internet le week-end.

J'ai esayé ton code mais cela m'ouvre un nouveau classeur sans rien dedans.

Je suis certain que ton code fonctionne mais je pense que je ne le colle pas où il faut.

Dois je le coller dans le classeur en ouvrant Visual basic editor ou dans un classeur de macros personnelles ?

Merci de ta patience.

Bonne soirée.

Salut

c'est à coller dans :

WINNIE0931 a écrit :

un classeur excel avec 12 onglets avec des colonnes identiques dans chaque onglet et des données différentes

c'est le plus simple.

(c'est possible de le mettre ailleurs, mais il faudra récupérer le nom du classeur "source" et c'est à peine plus compliqué ; tu reviens si t'en veux...)

WINNIE0931

Posté le 07/02/2010 à 22:25

Bonsoir Bérilyon effectivement ça marche en le collant dans visual basic editor dans le fichier source, microsoft excel objects/onglet this workbook.

Est ce le bon endroit pour coller ce script ?

Je suis aussi intéressé pour stocker ce code ailleurs si la manip est plus simple.

Je te remercie de ton efficacité et de ton aide.

Bérylion

Posté le 08/02/2010 à 23:28

re-

pour moi, c'est le meilleur endroit !

on peut le mettre ailleurs, mais c'est plus compliqué... (ex.: si tu déplaces ou renommes ton classeur, ça marchera plus !!)

WINNIE0931

Posté le 09/02/2010 à 08:05

Eh bien je vais suivre tes conseils.

En tout cas, je te remercie une nouvelle fois.

Très bonne journée.

Vous devez être connecté pour participer à la discussion.
Cliquez ici pour vous identifier.

Vous n'avez pas de compte ? Créez-en un gratuitement !

Les bons plans du moment PC Astuces

Tous les Bons Plans

Mini PC BMAX B7 Pro (Core i5-1145G7, 16 Go RAM, SSD 1 To, WiFi 6, BT 5.2, Windows 11) à 298 €
298 € ~~450 €~~ -34% @Geekbuying

Geekbuying fait une belle promotion sur le très bon mini PC BMAX B7 Pro qui passe à 298 € avec le code promo NNNFRSOLDEB7PRO. On le trouve habituellement autour de 450 €. Ce mini PC intègre un processeur Intel Core i5-1145G7 (4 coeurs), 16 Go de RAM DDR4 et un SSD SATA de 1 To au format M.2 (un emplacement 2.5' libre est également disponible). Il possède un chip graphique Iris Xe qui fera tourner tous vos petits jeux. Il intègre le WiFi 6, le bluetooth 5.2, un port Ethernet Gigabit, 2 ports USB 3.0, 2 ports USB 2.0, un port USB-C et deux connecteurs HDMI. Le tout tourne sous Windows 11 Pro.

Une excellente affaire pour un PC très performant, silencieux et qui ne prendra pas de place !

Voir le bon plan

Pâte thermique Arctic MX-4 (4 g) à 4,44 €
4,44 € ~~6,99 €~~ -36% @Amazon

Amazon fait une promotion sur la pâte thermique Arctic MX-4 (4 g) à 4,44 € au lieu de 6,99 €. La pâte thermique ARCTIC MX-4 composée de microparticules de carbone garantit une conductivité thermique extrêmement élevée. Ainsi, la chaleur du processeur ou des puces est dissipée rapidement et efficacement. Pour CPU et GPU PC, XBox, PS4, ...

Voir le bon plan

Processeur AMD Ryzen 5 7600X (6 coeurs, 12 threads, 4.7 GHz/5.3 GHz, DDR5, PCIe 5.0) + carte mère MAG B650 Tomahawk WIFI à 479,90 €
479,90 € ~~550 €~~ -13% @RueDuCommerce

RueDuCommerce fait une promotion sur un pack comprenant un processeur AMD Ryzen 5 7600X (6 coeurs, 12 threads, 4.7 GHz/5.3 GHz, DDR5, PCIe 5.0) et une carte mère MAG B650 Tomahawk WIFI à 479,90 € au lieu de 550 €.

Voir le bon plan

Enceinte bluetooth Anker Soundcore Motion Boom à 74,99 €
74,99 € ~~99,99 €~~ -25% @Amazon

Amazon fait une promotion sur la très bonne enceinte bluetooth Anker Soundcore Motion Boom qui passe à 74,99 €. On la trouve ailleurs à partir de 99,99 €. La livraison est gratuite.

Cette enceinte offre un son Hi-Res 30W et supporte le bluetooth 5.0 et l'aptX. L'enceinte est étanche IPX7, flotte, possède une poignée et offre jusqu'à 24 heures d'autonomie. Rechargement via un port USB-C.

Voir le bon plan

Lego Creator Exprert 10298 Vespa 125 à 76,90 €
76,90 € ~~99,99 €~~ -23% @Cdiscount

Cdiscount fait une promotion sur le Lego Creator Exprert 10298 Vespa 125 qui passe à 76,90 € alors qu'on le trouve ailleurs à partir de 99,99 €.

Voir le bon plan

Tablette N-one Npad Pro (10.4'' IPS FHD, 8 coeurs, 8 Go/ 128 Go, Android 12) + coque et verre trempé à 159,13 €
159,13 € ~~230 €~~ -31% @Geekbuying

Geekbuying fait une promotion sur la très bonne tablette N-one Npad Pro qui passe à 159,13 € avec le code GKB23MS3 au lieu de 230 €. Cette tablette possède un écran 10.4 pouces IPS FHD (2000x1200 pixels), un processeur T616 à 8 coeurs, 8 Go de RAM, 128 Go de stockage extensible par microSD, le GPS, le WiFi/Bluetoot et la 4G via un emplacement Dual SIM. Une webcam frontale 5MP + IR, une arrière de 13MP + flash LED et la reconnaissance facile sont présentes. Son châssis est en aluminium et elle offre une batterie de 6600 mAH à charge rapide 18W (USB Type C).

Le tout tourne sous Android 12 en français et intègre les codecs Widevine L1 pour lire le contenu HD en streaming (Netflix, Disney, etc...). De quoi tout faire sur cette tablette performante : jeux, vidéo, internet, bureautique, système GPS pour voiture, etc.

Une coque de protection avec rabat magnétique, un verre trempé pour protéger l'écran et un chargeur 18W sont fournis dans le pack.

La livraison se faisant depuis un entrepôt européen, vous êtes certains de recevoir rapidement la tablette et sans risque de douane.

Voir le bon plan