XL 2019 Copier plage de cellule et coller avec offset

netparty

XLDnaute Occasionnel
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
 

Pièces jointes

  • Copier plage avec offset.xlsm
    15.6 KB · Affichages: 3

Jacky67

XLDnaute Barbatruc
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
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
 

Pièces jointes

  • Copier plage avec offset.xlsm
    25.2 KB · Affichages: 3

netparty

XLDnaute Occasionnel
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
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
 

Jacky67

XLDnaute Barbatruc
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
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
 

Pièces jointes

  • Copier plage avec offset V2.xlsm
    25.5 KB · Affichages: 4
Dernière édition:

Discussions similaires

Statistiques des forums

Discussions
313 204
Messages
2 096 206
Membres
106 529
dernier inscrit
ironmachine