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

Souris sans fil ergonomique verticale Logitech Lift (Bluetooth, Logi Bolt) à 59,99 €
59,99 € ~~79,99 €~~ -25% @Amazon

Amazon fait une promotion sur la souris ergonomique sans fil Logitech Lift qui passe à 59,99 € au lieu de 79,99 €. Avec la Logitech Lift dites oui au confort. Cette souris ergonomique verticale vous permet de travailler des heures durant sans ressentir la moindre douleur dans votre poignet. Parfaitement adaptée aux mains de petite taille et de taille moyenne, elle possède un revêtement légèrement texturé, 6 boutons faciles d'accès, un capteur optique de 4000 dpi ainsi qu'un repose-pouce confortable. Vous pouvez la connecter sans fil via Bluetooth ou bien via le récepteur USB Logi Bolt fourni.

Voir le bon plan

Ecran 27 pouces LG Ultragear 27GL63T (FullHD IPS, 144 Hz, 1ms, FreeSync/Gsync compatible) à 199,99 €
199,99 € ~~250 €~~ -20% @Amazon

Amazon fait belle une promotion sur l'écran LG Ultragear 27GL63T qui passe à 199,99 € au lieu de 250 € ailleurs. Cet écran possède une dalle IPS 27 pouces FHD (1920x1080) à 144 Hz, un temps de réponse de 1 ms. Il est compatible Nvidia G-SYNC et Adaptive Sync.

Voir le bon plan

Boîtier SSD M.2 NVMe/SATA Orico USB 3.2 Type C à 17,77 €
17,77 € ~~25 €~~ -29% @Amazon

Amazon fait une promotion sur le boîtier SSD M.2 NVMe Orico USB 3.2 Type C qui passe à 17,77 € au lieu de 25 €. Ce boîtier vous permettra de transformer en SSD externe un SSD interne au format M.2 KEY (2280, 2260, 2242 et 2230) NVMe ou SATA récupéré dans un ordinateur après un upgrade de capacité par exemple.

Ce boitier en aluminium permet de dissiper la chaleur, prend en charge le TRIM et offre des débits jusqu'à 1000 Mo/s en NVMe grâce à l'USB 3.2 GEN2 (450 Mo/s en SATA). Câble USB C -> USB C fourni.

Voir le bon plan

Smartphone Poco X5 Pro 5G (6,67 pouces 120 Hz, Snapdragon 778G, 6 Go/ 128 Go) à 249 €
249 € ~~349 €~~ -29% @AliExpress

AliExpress fait une belle promotion sur le smartphone Poco X5 Pro 5G qui passe à 249 € en activant le coupon vendeur sur la page du produit et avec le code promo AEFR55 au lieu de 349 €. Il est équipé du processeur Qualcomm Snapdragon 778G(8 coeurs), de 6 Go de RAM, de 128 Go de stockage et d’un écran de 6,67 pouces ultra fluide 120 Hz.

Il comprend aussi une Quad-Caméra de 108 MP avec IA et une caméra selfie poinçonnée de 16 MP. Il comprend une grande batterie de 5000 mAh, pour une utilisation sur plusieurs jours (supporte la charge rapide de 67W). Le POCO X5 Pro dispose également d'un capteur d’empreinte digitale sur le côté et une prise jack 3,5 mm pour vous permettre de brancher vos haut-parleurs ou vos écouteurs filaires.

Avec GPS, NFC, Bluetooth 5, WiFi, USB C et charge rapide 67W. Le tout tourne sous Android 13. Livraison depuis la France (rapide et sans douane).

Voir le bon plan

Adaptateur Bluetooth 5.0 USB TP-Link UB500 à 10,99 €
10,99 € ~~15 €~~ -27% @Amazon

Amazon fait une promotion sur l'adaptateur Bluetooth 5.0 USB TP-Link UB500 qui passe à 10,99 €. Cet adaptateur à brancher sur un port USB va vous permettre d'ajouter le bluetooth à votre ordinateur et d'utiliser ensuite sans fil vos périphériques bluetooth : souris, clavier, casque, manette, téléphone, ...

L'adaptateur UB500 dote votre PC d'une technologie Bluetooth 5.0 plus avancée. Il offre des débits de connexion plus rapides et une portée plus étendue que la technologie Bluetooth 4.0. Rétrocompatible avec Bluetooth V4.0/3.0/2.1/2.0/1.1

C'est le récepteur que nous avons utilisé pour notre dossier pratique : Ajouter le bluetooth à son ordinateur.

Voir le bon plan

Graveuse laser SCULPFUN S9 (5.5W, 0,06 mm, 410x420 mm) à 207,82 €
207,82 € ~~329 €~~ -37% @Geekbuying

Geekbuying fait une superbe promotion sur la graveuse laser SCULPFUN S9 qui passe à 207,82 € avec le code GKB23MS3 alors qu'on la trouve ailleurs à partir de 329 €. Cette machine de gravure laser va vous permettre de graver et découper le papier, le cuir, le bois, le bambou, la corne, le plastique, la céramique, l'acier, l'acrylique, ...

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

Voir le bon plan