Copier une plage de cellule ( range) sur un autre fichier excel

Réponse 2 / 11

michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 303
19 sept. 2013 à 09:47

Bonjour,

Il faudrait que tu nous en dise +

Ou sont tes 11 fichiers source (chemin) ?
quel est le nom de la feuille contenant les plages à copier ?
les plages ont elles une structure identique et un nombre de lignes identique ?
quelle est la version Excel ?

le mieux serait de nous fournir un exemplaire d'une source
pour joindre une pièce
mettre le classeur sans données confidentielles en pièce jointe sur
https://www.cjoint.com/
puis copier l'adresse du lien et la coller dans le message de réponse

Réponse 3 / 11

Iama Messages postés 319 Date d'inscription mercredi 13 janvier 2010 Statut Membre Dernière intervention 27 mars 2020 14
20 sept. 2013 à 16:32

Bonjour

As-tu essaie à contourner le problème
en copiant tes différentes feuilles dans un seul classeur, et après avoir regroupées tes données , les supprimer?

Puisse que tu sais le faire dans un casseur.

Iama

Réponse 4 / 11

abdou-éco Messages postés 8 Date d'inscription mercredi 18 septembre 2013 Statut Membre Dernière intervention 20 septembre 2013
19 sept. 2013 à 16:29

Je te remercie pour ta réponse.
je t'envoie le code c'est mieux à mon avis.
j'ai trouvé la solution tout à l'heure, la je cherche une façon de le faciliter avec une boucle mais je sais pas le faire.

pour les lignes ils sont identiques pour les 11 fichiers à chaque fois, par contre sa peut changer si je travaille avec d'autres 11 fichiers tout dépend de la nomenclature du produit.

Mon code contient 11 fonction à chaque fois je dois changer la plage ou je dois coller les données et aussi le nom du fichier ou je fais le copier des plages de données.

Sub CopierColler2()
With Workbooks("AA.xls").Worksheets("Manufacturing").Range("A1:A82").Copy
End With
Range("E1:E82").PasteSpecial
End Sub
______________________________________________________________
Sub CopierColler3()
With Workbooks("AT.xls").Worksheets("Manufacturing").Range("A1:A82").Copy
End With
Range("F1:F82").PasteSpecial
End Sub
______________________________________________________________
Sub CopierColler4()
With Workbooks("ED.xls").Worksheets("Manufacturing").Range("A1:A82").Copy
End With
Range("G1:G82").PasteSpecial
End Sub
______________________________________________________________

je t'ai mi que les 3 premières fonction parce que c'est long pour les 11.

Merci

Cordialement

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question

Réponse 5 / 11

abdou-éco Messages postés 8 Date d'inscription mercredi 18 septembre 2013 Statut Membre Dernière intervention 20 septembre 2013
20 sept. 2013 à 10:50

c'est pas question que je veux pas communiquer les fichiers c'est juste long à faire sa 11 fois, je t'envoie sa alors et merci :)

Réponse 6 / 11

abdou-éco Messages postés 8 Date d'inscription mercredi 18 septembre 2013 Statut Membre Dernière intervention 20 septembre 2013
20 sept. 2013 à 10:54

vérifie stp si ta recu les lfichiers

Réponse 7 / 11

michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 303
Modifié par michel_m le 20/09/2013 à 11:40

as tu regardé le principe que je t'ai fourni pour éviter de créer tes 11 macros?

Michel

Réponse 8 / 11

abdou-éco Messages postés 8 Date d'inscription mercredi 18 septembre 2013 Statut Membre Dernière intervention 20 septembre 2013
20 sept. 2013 à 11:49

non pas encore ton code est logique mais sur mon fichier par exemple AA comment je fais pour sélectionner la feuille manufacturing parceque sur ton code ta choisi les fichiers que je vais utiliser mais pas les feuilles tu as directement sélectioné les plages, tu vois ce que je veux dire ?

michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 303
20 sept. 2013 à 12:12

non

Réponse 9 / 11

abdou-éco Messages postés 8 Date d'inscription mercredi 18 septembre 2013 Statut Membre Dernière intervention 20 septembre 2013
20 sept. 2013 à 13:04

je t'ai envoyé les fichiers oar exemple quand tu ouvre le fichier excel AA tu va voir qu'il contient plusieurs feuilles et moi j'en ai besoin que de la 2 feuille manufacturing donc comment je fais pour copier la plage de données que je veux sur cette feuille et pas dans les autres
et c'est pareil pour tt les autres fichiers.

Réponse 10 / 11

michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 303
Modifié par michel_m le 20/09/2013 à 13:56

Lorsque tu écris

With Workbooks("AA.xls").Worksheets("Manufacturing").Range("A1:A82").Copy
End With
Range("E1:E82").PasteSpecial

cela veut dire que tu copies la plage A1:A82 de la feuille "manufacturing" du fichier AA dans E1:E82 de la feuille active du classeur qui regroupe les données des 11 fichiers ?

si oui, c'est ce que fait la macro paramétrée qui t'évite d'écrire les 11 macos
Sub copier(classeur, plage)

mais , bien sûr, il faut que les classeurs AA, AT.... soient ouverts , chose que je ne peux pas savoir!!!
Michel

Réponse 11 / 11

abdou-éco Messages postés 8 Date d'inscription mercredi 18 septembre 2013 Statut Membre Dernière intervention 20 septembre 2013
20 sept. 2013 à 14:05

et le 1 code que tu as mis il sert à quoi enfaîte ?
Sub Main()
Application.ScreenUpdating = False
fichier = Array("AA", "BB", "CC", "DD")
zone = Array("A3:A78", "B3:B78", "C3:C78", "D3:D78")
For cptr = 0 To 3
copier fichier(cptr), zone(cptr)
Next
End Sub

michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 303
20 sept. 2013 à 14:14

Réflèchis un peu!

ce code va incrémenter successivement les noms des classeurs source et la plage de destinations
et il appelle la macro paramétrée qui va effectuer la recopie

fais une maquette en utilisant le pas à pas (touche F8) et tu comprendras

Bon WE

abdou-éco Messages postés 8 Date d'inscription mercredi 18 septembre 2013 Statut Membre Dernière intervention 20 septembre 2013
20 sept. 2013 à 14:30

ton code coince à next ....

Copier une plage de cellule ( range) sur un autre fichier excel

11 réponses

Discussions similaires

Newsletters