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

Lampe écran pour bureau BlitzWolf BW-CML2 Pro (blanc réglable + RGB arrière) à 23,13 €
23,13 € ~~45 €~~ -49% @Banggood

Banggood fait une promotion sur la lampe écran pour bureau BlitzWolf BW-CML2 Pro (RGB) qui passe à 23,13 € avec le code promo BGb6c9e8. La livraison se fait depuis un entrepôt chinois. La TVA FR est incluse.

Cette lampe se fixe au dessus de votre écran pour éclairer en blanc (400 à 1000 lux, température de 2700 à 6500K) votre surface de travail sans reflet sur l'écran: clavier, tablette graphique, bureau. Un ruban RGB peut aussi être activé à l'arrière pour éclairer et décorer le mur derrière votre écran. Alimentation USB, télécommande fournie. 46 cm de large.

Voir le bon plan

Ecran 32 pouces incurvé KTC H32S17 (QHD, 165 Hz, 1 ms, HDR10) à 229,64 €
229,64 € ~~350 €~~ -34% @Geekbuying

Geekbuying fait une promotion sur le tout nouvel écran 32 pouces incurvé KTC H32S17 qui passe à 239 € avec le code promo NNNFRSOLDEKTC au lieu de 350 €. En payant par Paypal vous obtiendrez une remise supplémentaire de 10$ (9,36 €), passant le prix total à 229,64 € ! Cet écran incurvé (courbure 1500R) possède une dalle QHD 2560x1440 à 165 Hz, offre un temps de réponse de 1 ms et est compatible FreeSync et GSync. Connectique : 1xHDMI, 2xDP.

L'envoi se fait depuis un entrepôt européen. Vous êtes ainsi certains de recevoir l'écran rapidement et sans douane.

Voir le bon plan

PC Portable 16 pouces HP Victus (FHD, Ryzen 5 5600H, 16Go/512Go, RTX 3060 6 Go, Win11) à 899,99 €
899,99 € ~~1099 €~~ -18% @RueDuCommerce

RueDuCommerce fait une promotion sur le PC Portable 16 pouces HP Victus 16-e0019nf qui passe à 899,99 €. On le trouve habituellement à 1099 €.

Il comporte un écran IPS Full HD de 16 pouces, un processeur AMD Ryzen 5 5600H (6 coeurs), 16 Go de RAM, un SSD de 512 Go, une carte graphique dédiée GeForce RTX 3060 6 Go, un clavier rétro éclairé, une batterie charge rapide (autonomie 10h). Il possède aussi le WiFi 6, le bluetooth 5.2, 2 ports USB 3.1 type C, un port USB 3.2 Gen 2, un port HDMI 2.1 et un port Ethernet.

Le tout tourne sous Windows 11. Une bonne affaire pour un portable polyvalent : bureautique, Internet, multimédia et jeux.

Voir le bon plan

Mini PC ACEMAGICIAN GK3 Pro (Celeron N5105, 16 Go RAM, SSD 512 Go, Windows 11 Pro) à 249,91 €
249,91 € ~~299,99 €~~ -17% @Amazon

Amazon fait une promotion sur le mini PC ACEMAGICIAN GK3 Pro qui passe à 249,91 € grâce à un coupon à activer sur la page du produit. On le trouve habituellement à 299,99 €.

Ce mini PC intègre un processeur Intel Celeron N5105 (4 coeurs), 16 Go de RAM DDR4 et un SSD M.2 de 512 Go (un port 2.5 pouces SATA est également présent pour ajouter un SSD ou un disque dur). Il possède un chip graphique Intel UHD. Il intègre le WiFi 5, le Bluetooth, un port Ethernet Gigabit, 2 ports USB 3.0, 2 ports USB 2.0, un connecteur VGA et deux connecteurs HDMI. Le tout tourne sous Windows 11 Pro.

Une bonne affaire pour un PC efficace dans toutes les tâches bureautiques et multimédia, totalement silencieux, économe et qui ne prendra pas de place ! Il peut même être directement fixé à l'arrière d'un écran PC grâce à son support VESA.

Voir le bon plan

TV QLED 50 pouces Samsung The Frame 4K UHD à 629 €
629 € ~~999 €~~ -37% @RueDuCommerce

RueDuCommerce fait une belle promotion sur la TV QLED 55 pouces (125 cm) Samsung The Frame QE55LS03AA qui passe à 629 €. On la trouve ailleurs à partie de 999 €. Cette smart TV QLED 4K est tellement fine que vous pouvez l'utiliser comme tableau pour afficher vos oeuvres d'art préférées.

Voir le bon plan

Samsung Galaxy A13 (6.6 pouces, 8 coeurs, 4 Go / 32 Go) à 149,99 €
149,99 € ~~190 €~~ -21% @Cdiscount

Cdiscount fait une promotion sur le smartphone Samsung Galaxy A13 32 Go qui passe à 149,99 € au lieu de 190 €. Ce smartphone possède un écran panoramique de 6.6 pouces FHD+ (1080x2408 pixels), 4 Go de RAM, un processeur octo-core Exynos 850, 32 Go de stockage extensible par MicroSD, un appareil photo principal de 50 mégapixels avec 3 capteurs, une caméra frontale de 8 MP et une batterie 5000 mAh à charge rapide 15W. Le tout tourne sous Android 12.

Voir le bon plan