XL 2019 Copier plage de cellule et coller avec offset

netparty à dit:

Bonjour à tous
Je cherche à copier une plage de cellule et de la coller 2 colonnes plus loin si je relance la macro j'aimerai copier de nouveau ma première plage la la suite du collage précédant.

Je ne sais pas si cela est possible.

Merci d'avance pour votre aide

Cliquez pour agrandir...

Sub copie_decaler()
    Dim plage As Range
    Set plage = Range("A4").CurrentRegion
    plage.Offset(1).Resize(plage.Rows.Count - 1).Copy Cells(Cells(Rows.Count, "d").End(xlUp).Row + 1, 4)
End Sub

Jacky67 à dit:

Bonsoir,
Quelque chose comme ceci peut-être

VB:

Sub copie_decaler()
    Dim plage As Range
    Set plage = Range("A4").CurrentRegion
    plage.Offset(1).Resize(plage.Rows.Count - 1).Copy Cells(Cells(Rows.Count, "d").End(xlUp).Row + 1, 4)
End Sub

Cliquez pour agrandir...

netparty à dit:

Bonjour @Jacky67

Merci pour ton fichier

Est-il possible que la copie se fasse a chaque fois vers la droite et pas vers le bas.

bonne journée

Cliquez pour agrandir...

Sub copie_decaler()
    Range("A4").CurrentRegion.Copy Cells(4, Cells(4, Columns.Count).End(1).Column + 2)
    Columns.EntireColumn.AutoFit
End Sub

Jacky67 à dit:

Re...
Oui..

VB:

Sub copie_decaler()
    Range("A4").CurrentRegion.Copy Cells(4, Cells(4, Columns.Count).End(1).Column + 2)
    Columns.EntireColumn.AutoFit
End Sub

Cliquez pour agrandir...