XL 2016 Copier plage

KTM

XLDnaute Impliqué
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

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

XLDnaute Impliqué
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
 

Discussions similaires

Réponses
2
Affichages
1 K
Réponses
2
Affichages
885

Statistiques des forums

Discussions
311 733
Messages
2 082 015
Membres
101 868
dernier inscrit
pierreselo33