Copier Coller Réorganiser des colonnes

Le 09/08/2018 à 16:22

Bonjour à toutes et tous,

Je n'arrive pas à adapter un code déjà existant qui me permettrait de copier des colonnes sur une base A puis de les coller sur une base B mais en réorganisant les colonnes selon une table de correspondance.

Dans ma démarche et au vue de mes connaissances (à priori encore insuffisante) j'ai opté pour une logique du copier/coller mais peut être y'a t'il moyen de faire l'opération sur la base A.

Je joins un classeur exemple

Ci après le code que j'ai modifié sans sucés :

Sub Colonne()
Dim DerLigne As Long

With Sheets("TABLE CORREPONDANCE")

DerLigne = .Range("A" & Rows.Count).End(xlUp).Row

For i = 2 To .DerLigne
If Not .Range("A" & i) = "" Then
plg1 = Range(.Range("A" & i) & ":" & .Range("A" & i)).Address
plg2 = Range(.Range("B" & i) & "1").Address
Sheets("CADOR").Range(plg1).Copy Sheets("CADOR HUGUES").Range(plg2)
End If
Next
End With
End Sub

Merci

Cordialement

Hugues

12copier-coller-deplacer-des-colonnes-v01.xlsm (24.39 Ko)

Le 09/08/2018 à 16:38

bonjour,

une proposition

Sub Colonne()
    Dim DerLigne As Long
    Set ws1 = Sheets("BASE A") ' à adapter
    Set ws2 = Sheets("BASE B") 'à adapter
    With Sheets("TABLE CORREPONDANCE")

        DerLigne = .Range("A" & Rows.Count).End(xlUp).Row

        For i = 2 To DerLigne
            If Not .Range("A" & i) = "" Then
                colshA = .Cells(i, "B")
                colshA = colshA & ":" & colshA
                colshB = .Cells(i, "C")
                colshB = colshB & ":" & colshB
                ws1.Range(colshA).Copy ws2.Range(colshB)
            End If
        Next
    End With
End Sub

Le 09/08/2018 à 17:35

Bonjour h2so4,

Tout d'abord merci d'avoir pris le temps de lire et mon post et d'y avoir répondu très rapidement.

Ensuite bravo, car en première lecture cela fonctionne comme je le voulais.

Je fais quelques tests sur ma base réelle avant de marquer résolu.

Merci beaucoup

Cordialement

Hugues

Le 09/08/2018 à 17:39

Bonjour à tous

Une variante.

Bye !