XL 2013 Coller la sélection vers une autre feuille au niveau de la dernière ligne vide !!!!

hamzaelouazzani · 24 Septembre 2019

Bonjour,

Je souhaite coller une sélection (macro : coller_11) vers une feuille (synthèse) au niveau de la dernière ligne vide pour éviter de sélectionner cette ligne et coller avec un ctrl+v.
Voici le code que j'ai ;

Sub coller_11()
'
' coller_11 Macro
'

'
Range("V8").Select
Sheets("MAT").Select
Range("I4:U4").Select
Selection.Copy
Range("R18").Select
ActiveWindow.LargeScroll ToRight:=-1
Range("D6").Select
Sheets("synthèse").Select
Range("A12").Select
ActiveSheet.Paste
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("A13").Select
Application.CutCopyMode = False
End Sub

Merci d'avance.

Paf · 24 Septembre 2019

Bonjour,
connaissant la dernière ligne contenant des données, y ajouter 1 donne la première ligne vide.

pour connaitre la dernière ligne d'une colonne (ici colonne A):

VB:

Range("A" & Rows.Count).End(xlUp).Row

le code complet pourrait devenir :

Code:

Worksheets("MAT").Range("I4:U4").Copy
With Worksheets("synthèse")
dlig = .Range("A" & Rows.Count).End(xlUp).Row + 1
.Range("A" & dlig).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
End With

A+

EDIT : Oups! erreur de lecture de la demande. ce code copie sur la première ligne vide et non sur la dernière

job75 · 24 Septembre 2019

Bonjour,

Dernière ligne vide ??? A partir d'Excel 2007 c'est la ligne 1048576 !!!

A+

XL 2013 Coller la sélection vers une autre feuille au niveau de la dernière ligne vide !!!!

hamzaelouazzani

XLDnaute Nouveau

Paf

XLDnaute Barbatruc

job75

XLDnaute Barbatruc

Discussions similaires