copie les valeurs col B a la suite de la colA

fid

XLDnaute Nouveau
bonsoir le forum,

je veux copier les valeurs des colonnes C et D
à la suite des cols A et B
puis celles des cols E et F
à la suite des cols A et B
puis celles des cols G et H
à la suite des cols A et B

j'y arrive pour les cols C et D
mais ensuite, les copies suivantes ne se font pas correctement car elles écrasent les valeurs de C et D collées

comment redonner le bon "range" après la première copie ?

voici mon code :
Code:
Sub Copie_col_dessous()
'
' Copie_col_dessous Macro


With Sheets("couleurs")

DerligA = .Range("A65536").End(xlUp)(2).Row
DerligB = .Range("B65536").End(xlUp)(2).Row


End With

'
    Range("C2:C" & DerligB).Select
    Selection.Cut
    Range("A" & DerligA).Select
    ActiveSheet.Paste
    Range("D2:D" & DerligB).Select
    Selection.Cut
    Range("B" & DerligB).Select
    ActiveSheet.Paste
    Range("E2:E" & DerligA).Select
    Selection.Cut
    'comment resélectionner la bonne cellule A après ?-----
    Range("A" & DerligA).Select
    ActiveSheet.Paste
    Range("F2:F" & DerligB).Select
    Selection.Cut
    Range("B" & DerligB).Select
    ActiveSheet.Paste
    Range("G1:G" & DerligA).Select
    Selection.Cut
    Range("A" & DerligA).Select
    ActiveSheet.Paste
    Range("H1:H" & DerligB).Select
    Selection.Cut
    Range("B" & DerligB).Select
    ActiveSheet.Paste
    Range("A1").Select

End Sub

ci-joint le fichier exemple
d'avance merci pour votre aide
 

Pièces jointes

  • COULEURS TEST.xlsm
    14.9 KB · Affichages: 59

xhudi69

XLDnaute Accro
Re : copie les valeurs col B a la suite de la colA

Bonsoir fid, le Forum

en retour ton fichier, si cela convient.

@+
 

Pièces jointes

  • COULEURS TEST_bis.xlsm
    18.1 KB · Affichages: 53
  • COULEURS TEST_bis.xlsm
    18.1 KB · Affichages: 55
  • COULEURS TEST_bis.xlsm
    18.1 KB · Affichages: 52

Discussions similaires

Statistiques des forums

Discussions
312 947
Messages
2 093 843
Membres
105 852
dernier inscrit
Bast