XL 2019 Copier plage de cellule et coller avec offset

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

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

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

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

Dernière édition:
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
3
Affichages
116
Réponses
10
Affichages
375
Réponses
9
Affichages
165
Retour