XL 2016 Copier plage

KTM · 12 Février 2020

Bonjour chers amis du forum
J'utilise le code ci dessous pour copier mes données vers ma feuille "Export"

Sub cpie()
Range("C5:E37").Select
Selection.Copy
Sheets("Export").Select
Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub

Ici ma dernière colonne non vide utilisée est la colonne "E"
Je voudrais le réécrire de sorte que ma plage a copier s’étende systématiquement a la dernière colonne non vide utilisée.
Les lignes 5 et 37 et la colonne C sont fixes
merci a tous

xUpsilon · 12 Février 2020

Bonjour,

A essayer

VB:

Sub cpie()
Range("C5:E37").Copy
Sheets("Export").Cells(1,Cells(1,Columns.Count).End(xlToLeft).Column).PasteSpecial xlPasteValues
End Sub

Bonne continuation

PS : En fait je viens de remarquer un truc, ce n'est peut être pas ça que tu voulais. Cette macro copie/colle à la suite de la dernière chose que tu as copié/collé sur Export. Est-ce que c'est ce que tu veux ou tu veux juste adapter Range("C5:__37") ?

KTM · 12 Février 2020

xUpsilon à dit:
Bonjour,

A essayer

VB:

Sub cpie() Range("C5:E37").Copy Sheets("Export").Cells(1,Cells(1,Columns.Count).End(xlToLeft).Column).PasteSpecial xlPasteValues End Sub

Bonne continuation

PS : En fait je viens de remarquer un truc, ce n'est peut être pas ça que tu voulais. Cette macro copie/colle à la suite de la dernière chose que tu as copié/collé sur Export. Est-ce que c'est ce que tu veux ou tu veux juste adapter Range("C5:__37") ?

je veux adapter effectivement Range("C5:__37")
Merci

xUpsilon · 12 Février 2020

Re,

Alors comme ceci :

VB:

Sub cpie()
Range(Cells(5,"C"):Cells(37,Cells(37,Columns.count).end(xlToLeft).Column)).copy
Sheets("Export").Range("A1").PasteSpecial xlPasteValues
End Sub

Bonne continuation

KTM · 12 Février 2020

xUpsilon à dit:
Re,

Alors comme ceci :

VB:

Sub cpie() Range(Cells(5,"C"):Cells(37,Cells(37,Columns.count).end(xlToLeft).Column)).copy Sheets("Export").Range("A1").PasteSpecial xlPasteValues End Sub

Bonne continuation

Merci beaucoup

XL 2016 Copier plage

KTM

XLDnaute Impliqué

xUpsilon

XLDnaute Accro

KTM

XLDnaute Impliqué

xUpsilon

XLDnaute Accro

KTM

XLDnaute Impliqué

Discussions similaires