Copier/Coller colonnes classeur 1 à 6 vers classeur cible [Résolu]

Créer une discussion
Répondre
  • Initiateur de la discussion Initiateur de la discussion webdo87
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
W

webdo87

XLDnaute Nouveau
Bonjour la communauté,

Je dois réaliser une macro permettant de copier/coller plusieurs colonnes à la suite provenant de plusieurs classeurs dans un classeur cible et je souhaiterais avoir de l'aide de votre part.

Merci de suivre la discussion à partir du 3ème message.

Meilleures salutations,

J.S
 
Dernière édition:
Trier par date Trier par votes
Re : Copier/Coller colonnes classeur 1 à 6 vers classeur cible

Bonjour

Il faut que la taille de Source1 et Cible soit identique.
Cliquez pour agrandir...

Donc pour cela il faudrait faire quelque chose comme ceci ? :

Code: 
Source1 = Array("J", "H", "I", "AG", "AB", "V", "W", "Y", "Z")
CibleSource1 = Array("A", "B", "C", "D", "E", "F", "G", "H", "I")

Source2 = Array("AK", "AM", "W", "X", "Y", "Z", "AI", "AJ", "AP", "AS", "AE", "AG")
CibleSource2 =  Array("J", "K", "L", "M", "N", "O", "P", "Q", "R", "S", "T", "U", "V")

Merci encore à toi, Staple1600. Personne d'autre de la communauté pour me donner un coup de main svp ?


Cordialement,

J.S
 
Vote positif 0 Vote négatif
Re : Copier/Coller colonnes classeur 1 à 6 vers classeur cible

Bonjour

webdo87 à dit:
Merci encore à toi, Staple1600. Personne d'autre de la communauté pour me donner un coup de main svp ?


Cordialement,

J.S
Cliquez pour agrandir...

Faut croire que non 😉

Ou alors c'est parce que nous sommes en week-end et que la communauté privilégie la vie de famille 😉
(ce en quoi elle a pas tort 😉 )

Pour ma part, je suis chargé du barbecue, donc je serai aléatoirement présent sur XLD entre deux merguez 😉
 
Vote positif 0 Vote négatif
Re : Copier/Coller colonnes classeur 1 à 6 vers classeur cible

Bonjour,

Je suis toujours coincé à l'étape de la copie..comment dire de prendre source 1 -> cible puis source 2 -> cible avec les mêmes grandeurs de tableau.

VBA :

Code: 
Sub a()
Dim Test$, arrWBK
Dim Source1(), Source2(), Cible()
Dim MaPlage As Range, DerLig As Long, Wk5 As Workbook
'Ajout
Dim Ws5 As Worksheet
arrWBK = Array("classeur1.xls", "classeur2.xls","classeur3.xls", "classeur4.xls")
'Ajout
Set Wk5 = Workbooks("classeur5.xls")
'Ajout
Set Ws5 = Wk5.Worksheets("Feuil1")
    Source1 = Array("J", "H", "I", "AG", "AB", "V", "W", "Y", "Z")
    Source2 = Array("AK", "AM", "W", "X", "Y", "Z", "AI", "AJ", "AP", "AS", "AE", "AG")
    Cible = Array("A", "B", "C", "D", "E", "F", "G", "H", "I", "J", "K", "L", "M", "N", "O", "P", "Q", "R", "S", "T", "U", "V")
    'A remanier
    For i = 0 To UBound(arrWBK)
        For j = 0 To UBound(Source1)
        With Workbooks(arrWBK(i)).Sheets(1)
            DerLig = .Cells(65536, Source1(j)).End(xlUp).Row
            MsgBox "Derlig= " & DerLig
            Set MaPlage = Cells(2, CStr(Source1(j))).Resize(DerLig)
            Test = Workbooks(arrWBK(i)).Name & ": " & .Name & ": " & MaPlage.Address
            MsgBox Test
            'Ajout
            MaPlage.Copy Destination:=Ws5.Range(Cible(j) & 2)
            Set MaPlage = Nothing
        End With
        Next j
    Next i
    'Ajout
    Set Ws5 = Nothing
    'Ajout
    Set Wk5 = Nothing
End Sub

Cordialement,

J.S
 
Vote positif 0 Vote négatif
Re : Copier/Coller colonnes classeur 1 à 6 vers classeur cible

Re

Fais l'essai en faisant exprès d'avoir taille Source1 = taille Cible
Source1 = Array("J", "H", "I", "AG", "AB", "V", "W", "Y", "Z")
Cible = Array("A", "B", "C", "D", "E", "F", "G", "H", "I")

Est-ce que la copie se fait?
 
Vote positif 0 Vote négatif
Re : Copier/Coller colonnes classeur 1 à 6 vers classeur cible

Re,

Fais l'essai en faisant exprès d'avoir taille Source1 = taille Cible
Source1 = Array("J", "H", "I", "AG", "AB", "V", "W", "Y", "Z")
Cible = Array("A", "B", "C", "D", "E", "F", "G", "H", "I")

Est-ce que la copie se fait?
Cliquez pour agrandir...

Non pas de changement...ça plante à la fin de la macro
 
Vote positif 0 Vote négatif
Re : Copier/Coller colonnes classeur 1 à 6 vers classeur cible

Bonsoir


Je viens de faire un test rapide (avec 3 classeurs ouverts mais non enregistrés)
Code: 
Sub ab()
Dim arrWBK, derligg&, Ws5 As Worksheet
Dim Source1(), Cible()
Dim MaPlage As Range, derlig As Long, Wk5 As Workbook
arrWBK = Array("classeur2", "classeur3")
Set Wk5 = ThisWorkbook 'Workbooks("classeur5.xls")
Set Ws5 = Wk5.Worksheets("Feuil1")
    Source1 = Array("H", "I", "J")
    Cible = Array("A", "B", "C")
    'A remanier
    For i = 0 To UBound(arrWBK)
        For j = 0 To UBound(Source1)
        With Workbooks(arrWBK(i)).Sheets(1)
            derlig = .Cells(65536, Source1(j)).End(xlUp).Row
            Set MaPlage = .Cells(2, CStr(Source1(j))).Resize(derlig)
            derligg = Ws5.Cells(65536, Cible(j)).End(xlUp).Row
            MaPlage.Copy Destination:=Ws5.Cells(derligg + 1, Cible(j))
            Set MaPlage = Nothing
        End With
        Next j
    Next i
    Set Ws5 = Nothing: Set Wk5 = Nothing
End Sub

La recopie se fait bien sur mon pc
Le code de la macro est dans le classeur1.
 
Vote positif 0 Vote négatif
Re : Copier/Coller colonnes classeur 1 à 6 vers classeur cible

Bonjour,

C'est super ça marche très bien 🙂 Je te remercie beaucoup pour ton aide. Mon problème est résolu. Si dessous Le code remanié pour 4 classeurs enregistrés :

Code: 
Sub ab()
Dim arrWBK, arrWBK2, derligg&, Ws5 As Worksheet
Dim Source1(), Source2(), Cible()
Dim MaPlage As Range, derlig As Long, Wk5 As Workbook
arrWBK = Array("classeur1.xls", "classeur2.xls")
arrWBK2 = Array("classeur3.xls", "classeur4.xls")
Set Wk5 = ThisWorkbook 'Workbooks("classeur5.xls")
Set Ws5 = Wk5.Worksheets("Feuil1")
    Source1 = Array("J", "H", "I", "AG", "AB")
    Source2 = Array("Z")
    Cible = Array("A", "B", "C", "D", "E")
    Cible2 = Array("F")
    'A remanier
    For i = 0 To UBound(arrWBK)
        For j = 0 To UBound(Source1)
        With Workbooks(arrWBK(i)).Sheets(1)
            derlig = .Cells(65536, Source1(j)).End(xlUp).Row
            Set MaPlage = .Cells(2, CStr(Source1(j))).Resize(derlig)
            derligg = Ws5.Cells(65536, Cible(j)).End(xlUp).Row
            MaPlage.Copy Destination:=Ws5.Cells(derligg + 1, Cible(j))
            Set MaPlage = Nothing
        End With
        Next j
    Next i
    For i = 0 To UBound(arrWBK2)
        For j = 0 To UBound(Source2)
        With Workbooks(arrWBK2(i)).Sheets(1)
            derlig = .Cells(65536, Source2(j)).End(xlUp).Row
            Set MaPlage = .Cells(2, CStr(Source2(j))).Resize(derlig)
            derligg = Ws5.Cells(65536, Cible2(j)).End(xlUp).Row
            MaPlage.Copy Destination:=Ws5.Cells(derligg + 1, Cible2(j))
            Set MaPlage = Nothing
        End With
        Next j
    Next i
    Set Ws5 = Nothing: Set Wk5 = Nothing
End Sub

Cordialement,

J.S
 
Vote positif 0 Vote négatif
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

S
  • Résolu(e)
XL 2016 Coller nom classeur sur plage cellules
Réponses
9
Affichages
525
safranien
S
jeff1494
  • Question Question
XL 2021 Comment supprimer des noms du gestionnaire de noms dans un classeur
Réponses
7
Affichages
757
jeff1494
jeff1494
P
  • Résolu(e)
XL 2021 Besoin d'aide pour copier/coller données de plusieurs classeurs
2
Réponses
20
Affichages
1 K
Pac41240
P
Y
  • Question Question
XL 2019 copier/coller colonne vers ligne
Réponses
4
Affichages
520
sylvanu
sylvanu
M
  • Question Question
Microsoft 365 VBA copier des données d'un classeur à un autre
Réponses
4
Affichages
2 K
sylvanu
sylvanu
D
  • Question Question
XL 2016 Copier coller en transposant d'une feuille à l'autre
Réponses
3
Affichages
776
job75
job75
W
  • Question Question
XL 2021 Boucle copier-coller par nom d'en-tête de colonnes
Réponses
10
Affichages
772
whiteshark
W
X
  • Question Question
XL 2016 Souci copier/coller avec un filtre.
2 3 4
Réponses
55
Affichages
4 K
Xender
X
9
  • Question Question
Microsoft 365 Copier Coller les données (cellules) de plusieurs feuilles d'un classeur vers plusieurs autres feuilles d'un classeur
Réponses
5
Affichages
1 K
92lever
9
D
  • Question Question
XL 2013 Copier/Coller vers un autre classeur
Réponses
6
Affichages
904
M.Ben
M
A
  • Question Question
Microsoft 365 copier coller des cellules sur la feuille 2 vers la feuille 1
2
Réponses
18
Affichages
2 K
alberto974
A
T
  • Résolu(e)
XL 2010 VBA - Copier (sans coller) une cellule ou un groupe de cellules avec le bouton droite de la souris
Réponses
3
Affichages
645
Compte Supprimé 979
C
X
  • Question Question
XL 2016 Copier à partir de la dernière ligne renseignée.
Réponses
8
Affichages
759
Xender
X
D
  • Question Question
XL 2013 Copier/coller vers d'autre classeur
Réponses
10
Affichages
1 K
Dafaka7
D
F
  • Résolu(e)
XL 2019 Exporter une feuille dans un classeur (ouvert ou fermé)
Réponses
2
Affichages
1 K
farid
F
S
  • Question Question
XL 2016 Copier coller feuille dans un autre classeur excel
Réponses
8
Affichages
2 K
StanislasC
S
A
  • Résolu(e)
XL 2016 Résolu - Copier coller feuilles nouveau classeur
Réponses
2
Affichages
1 K
aragdur
A
B
  • Question Question
XL 2021 Transfert tableau structuré EXCEL à un endroit précis de WORD
Réponses
8
Affichages
1 K
job75
job75
L
  • Résolu(e)
XL 2019 Comparaison valeurs de deux feuilles et copier-coller des colonnes correspondantes
2
Réponses
15
Affichages
1 K
Lolexcel
L
T
  • Question Question
Microsoft 365 Copier/coller d'un onglet à l'autre correspondant au mois
2
Réponses
19
Affichages
1 K
TAL
T
Retour