Macro pour copie de colonne vers d'autre feuilles et colonnes diferente

[post prod]

Bonjour je cale sur une macro de copie de colonne
voir les renseignement sur le fichier
un grand merci d'avance

 

[Robert]

Re : Macro pour copie de colonne vers d'autre feuilles et colonnes diferente

Bonjour Post Prod, bonjour le forum,

Peut-être comme ça :

Sub Macro1()
Sheets("Feuil1").Columns(1).Copy Sheets("Feuil2").Range("D1")
Sheets("Feuil1").Columns(3).Copy Sheets("Feuil2").Range("E1")
Sheets("Feuil3").Columns(2).Copy Sheets("Feuil4").Range("G1")
Sheets("Feuil3").Columns(6).Copy Sheets("Feuil4").Range("H1")
End Sub

 

[post prod]

Re : Macro pour copie de colonne vers d'autre feuilles et colonnes diferente

Bonjour ROBERT et merci
ca marche super
j'avais juste oublier de dire que la copie origine et destination commence en ligne 7

 

[Robert]

Re : Macro pour copie de colonne vers d'autre feuilles et colonnes diferente

Bonjour Post Prod

j'avais juste oublier de dire que la copie origine et destination commence en ligne 7

Ha oui c'est couillon ! Essaie comme ça alors :

Sub Macro1()
With Sheets("Feuil1")
    .Range("A7:A" & .Cells(Application.Rows.Count, 1).End(xlUp).Row).Copy Sheets("Feuil2").Range("D7")
    .Range("C7:C" & .Cells(Application.Rows.Count, 3).End(xlUp).Row).Copy Sheets("Feuil2").Range("E7")
End With
With Sheets("Feuil3")
    .Range("B7:B" & .Cells(Application.Rows.Count, 2).End(xlUp).Row).Copy Sheets("Feuil4").Range("G7")
    .Range("F7:F" & .Cells(Application.Rows.Count, 6).End(xlUp).Row).Copy Sheets("Feuil4").Range("H7")
End With
End Sub

 

[post prod]

Re : Macro pour copie de colonne vers d'autre feuilles et colonnes diferente

merci robert je l'ai adapté sa fonctionne
juste pour comprendre
c'est quoi le chiffre 1 3 2 6 apres ROWS.COUNT

 

[Robert]

Re : Macro pour copie de colonne vers d'autre feuilles et colonnes diferente

Bonjour Post Prod, bonjour de forum,

Ce sont les numéro de colonne 1 = A, 2 = B, 3 = C, etc... J'aurais pu écrire :

Sub Macro1()
With Sheets("Feuil1")
    .Range("A7:A" & .Cells(Application.Rows.Count, "A").End(xlUp).Row).Copy Sheets("Feuil2").Range("D7")
    .Range("C7:C" & .Cells(Application.Rows.Count, "C").End(xlUp).Row).Copy Sheets("Feuil2").Range("E7")
End With
With Sheets("Feuil3")
    .Range("B7:B" & .Cells(Application.Rows.Count, "B").End(xlUp).Row).Copy Sheets("Feuil4").Range("G7")
    .Range("F7:F" & .Cells(Application.Rows.Count, "F").End(xlUp).Row).Copy Sheets("Feuil4").Range("H7")
End With
End Sub