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

XL 2016 Copier plage

KTM

XLDnaute Impliqué

xUpsilon

XLDnaute Accro

KTM

XLDnaute Impliqué

xUpsilon

XLDnaute Accro

KTM

XLDnaute Impliqué

Discussions similaires

Privacy & Transparency

Privacy & Transparency